'Nome       : Despesas.std
'Tipo       : LST
'Data       : 2008/08/10
'Versao     : 3.7
'Descricao  : Listagem de modelos de despesas

'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 3.7  2008/??/?? ---------------------------------------------------
'Correcao da listagem ord. por reg. em modo grafico
'Correcao dos totais da listagem ord. por rubrica em modo grafico

'- Versao : 3.6  2007/06/29 ---------------------------------------------------
'Correcao da descricao da rubrica nos totais em modo grafico

'- Versao : 3.5  2006/09/15 ---------------------------------------------------
'modo grafico

'- Versao : 3.0  2001/07/10 ---------------------------------------------------
'passa a usar decimais da moeda (FrmMoe)

'- Versao : 2.1  2001/03/13 ---------------------------------------------------
'permitir listar listar so totais normais e descontos na mesma pagima


'- Versao : 2.0a 2000/11/28 ---------------------------------------------------
'nas listagens ordenadas por No. de Registo listar a rubrica

'- Versao : 2.0  2000/08/30 ---------------------------------------------------
'listagens ordenadas por No. de Registo

'- Versao : 1.4  2000/04/24 ---------------------------------------------------
'alteracoes/correcoes na listagem


'- Versao : 1.3  2000/04/10 ---------------------------------------------------
'correcoes na listagem

'- Versao : 1.2  2000/04/05 ---------------------------------------------------
'ajuste na impressao de alguns campos

'- Versao : 1.1  2000/02/29 ---------------------------------------------------
'usar novo formato da data

'- Versao : 1.0  1999/11/11 ---------------------------------------------------
'versao base


'==============================================================================
#DEF - Definicao global do documento
'==============================================================================
Caracteres invalidos             [CarInv]=#
Subtotalizadores                 [SbtNiv]=2
##


'==============================================================================
#ESP - Campos especificos
'==============================================================================
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=RUBRICA
Nome                       [DocNom]=MOD6,Modelo 6 - Ord. Rúbrica

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Modelo valido              [DocEsp]=CMO=06
Titulo da listagem         [DocEsp]=TIT=Despesas Gerais
Descricao do modelo        [DocEsp]=Tit2=Modelo 6
Total por pagina           [DocEsp]=TotPag=1
Configuracao de colunas    [DocEsp]=COL=IvaLnc$.VLD.RED,INT,NOR,GSL;+
                                       +IvaLnc$.TAX.RED,INT,NOR,GSL;+
                                       +IvaLnc$.IVA.RED,INT,NOR,GSL;+
                                       +IvaLnc$.VLD.SDD;+
                                       +IvaLnc$.VLD.ISE;+
                                       +IvaLnc$.VLD.NUL,OUT,AUT;

'funcoes de listagem
Listar cabecalho            [FxCAB]=Mod_Cab
Listar linhas               [FxLIN]=Mod_Lin; Tot
Listar fim                  [FxFIM]=Mod_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=MODELO
Nome                       [DocNom]=MOD6,Modelo 6 - Ord. No. Reg.

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Modelo valido              [DocEsp]=CMO=06
Titulo da listagem         [DocEsp]=TIT=Despesas Gerais
Descricao do modelo        [DocEsp]=Tit2=Modelo 6
Total por pagina           [DocEsp]=TotPag=1
Configuracao de colunas    [DocEsp]=COL=IvaLnc$.VLD.RED,INT,NOR,GSL;+
                                       +IvaLnc$.TAX.RED,INT,NOR,GSL;+
                                       +IvaLnc$.IVA.RED,INT,NOR,GSL;+
                                       +IvaLnc$.VLD.SDD;+
                                       +IvaLnc$.VLD.ISE;+
                                       +IvaLnc$.VLD.NUL,OUT,AUT;

'funcoes de listagem
Listar cabecalho            [FxCAB]=Mod_Cab
Listar linhas               [FxLIN]=Mod_Lin; Tot
Listar fim                  [FxFIM]=Mod_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=RUBRICA
Nome                       [DocNom]=MOD6R,Modelo 6  - Resumido

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Modelo valido              [DocEsp]=CMO=06
Titulo da listagem         [DocEsp]=TIT=Despesas Gerais - Resumo por Rubricas
Descricao do modelo        [DocEsp]=Tit2=Modelo 6

'funcoes de listagem
Listar cabecalho            [FxCAB]=Mod_ResCab
'Listar linhas               [FxLIN]=Mod_ResLin; Tot
Listar linhas               [FxLIN]=Mod_ResLin
Listar fim                  [FxFIM]=Mod_ResFim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=RUBRICA
Nome                       [DocNom]=MOD9,Liberais (Mod 9) - Ord. Rúbrica

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Modelo valido              [DocEsp]=CMO=09
Titulo da listagem         [DocEsp]=TIT=Despesas Gerais 
Descricao do modelo        [DocEsp]=Tit2=Modelo 9
Total por pagina           [DocEsp]=TotPag=1
Configuracao de colunas    [DocEsp]=COL=IvaLnc$.VLD.RED,INT,NOR,GSL;+
                                       +IvaLnc$.TAX.RED,INT,NOR,GSL;+
                                       +IvaLnc$.IVA.RED,INT,NOR,GSL;+
                                       +IvaLnc$.VLD.SDD;+
                                       +IvaLnc$.VLD.ISE;+
                                       +IvaLnc$.VLD.NUL,OUT,AUT;

'funcoes de listagem
Listar cabecalho            [FxCAB]=Mod_Cab
Listar linhas               [FxLIN]=Mod_Lin; Tot
Listar fim                  [FxFIM]=Mod_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=MODELO
Nome                       [DocNom]=MOD9,Liberais (Mod 9) - Ord. No. Reg.

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Modelo valido              [DocEsp]=CMO=09
Titulo da listagem         [DocEsp]=TIT=Despesas Gerais 
Descricao do modelo        [DocEsp]=Tit2=Modelo 9
Total por pagina           [DocEsp]=TotPag=1
Configuracao de colunas    [DocEsp]=COL=IvaLnc$.VLD.RED,INT,NOR,GSL;+
                                       +IvaLnc$.TAX.RED,INT,NOR,GSL;+
                                       +IvaLnc$.IVA.RED,INT,NOR,GSL;+
                                       +IvaLnc$.VLD.SDD;+
                                       +IvaLnc$.VLD.ISE;+
                                       +IvaLnc$.VLD.NUL,OUT,AUT;

'funcoes de listagem
Listar cabecalho            [FxCAB]=Mod_Cab
Listar linhas               [FxLIN]=Mod_Lin; Tot
Listar fim                  [FxFIM]=Mod_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=RUBRICA
Nome                       [DocNom]=MOD9R,Liberais (Mod 9) - Resumido

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Modelo valido              [DocEsp]=CMO=09
Titulo da listagem         [DocEsp]=TIT=Despesas Gerais - Resumo por Rubricas
Descricao do modelo        [DocEsp]=Tit2=Modelo 9

'funcoes de listagem
Listar cabecalho            [FxCAB]=Mod_ResCab
Listar linhas               [FxLIN]=Mod_ResLin; Tot
Listar fim                  [FxFIM]=Mod_ResFim
##


'==============================================================================
'= GRF = Listagem grafica =====================================================
'==============================================================================
'==============================================================================
#DOC - Configuracao do documento 
'==============================================================================
Tipo                       [DocTip]=RUBRICA
Nome                       [DocNom]=MOD6_G,Modelo 6 - Ord. Rúbrica

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=54
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'parametros especificos
Modelo valido              [DocEsp]=CMO=06
Titulo da listagem         [DocEsp]=TIT=Despesas Gerais
Descricao do modelo        [DocEsp]=Tit2=Modelo 6
Total por pagina           [DocEsp]=TotPag=1
Configuracao de colunas    [DocEsp]=COL=IvaLnc$.VLD.RED,INT,NOR,GSL;+
                                       +IvaLnc$.TAX.RED,INT,NOR,GSL;+
                                       +IvaLnc$.IVA.RED,INT,NOR,GSL;+
                                       +IvaLnc$.VLD.SDD;+
                                       +IvaLnc$.VLD.ISE;+
                                       +IvaLnc$.VLD.NUL,OUT,AUT;

'funcoes de listagem
Listar cabecalho            [FxCAB]=ModG_Cab
Listar linhas               [FxLIN]=ModG_Lin; Tot
Listar fim                  [FxFIM]=ModG_Fim
##


'==============================================================================
#DOC - Configuracao do documento 
'==============================================================================
Tipo                       [DocTip]=MODELO
Nome                       [DocNom]=MOD6_G,Modelo 6 - Ord. No. Reg.

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=54
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'parametros especificos
Modelo valido              [DocEsp]=CMO=06
Titulo da listagem         [DocEsp]=TIT=Despesas Gerais
Descricao do modelo        [DocEsp]=Tit2=Modelo 6
Total por pagina           [DocEsp]=TotPag=1
Configuracao de colunas    [DocEsp]=COL=IvaLnc$.VLD.RED,INT,NOR,GSL;+
                                       +IvaLnc$.TAX.RED,INT,NOR,GSL;+
                                       +IvaLnc$.IVA.RED,INT,NOR,GSL;+
                                       +IvaLnc$.VLD.SDD;+
                                       +IvaLnc$.VLD.ISE;+
                                       +IvaLnc$.VLD.NUL,OUT,AUT;

'funcoes de listagem
Listar cabecalho            [FxCAB]=ModG_Cab
Listar linhas               [FxLIN]=ModG_Lin; Tot
Listar fim                  [FxFIM]=ModG_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=RUBRICA
Nome                       [DocNom]=MOD6R_G,Modelo 6  - Resumido

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=54
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'parametros especificos
Modelo valido              [DocEsp]=CMO=06
Titulo da listagem         [DocEsp]=TIT=Despesas Gerais - Resumo por Rubricas
Descricao do modelo        [DocEsp]=Tit2=Modelo 6

'funcoes de listagem
Listar cabecalho            [FxCAB]=ModG_ResCab
Listar linhas               [FxLIN]=ModG_ResLin
Listar fim                  [FxFIM]=ModG_ResFim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=RUBRICA
Nome                       [DocNom]=MOD9_G,Liberais (Mod 9) - Ord. Rúbrica

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=54
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'parametros especificos
Modelo valido              [DocEsp]=CMO=09
Titulo da listagem         [DocEsp]=TIT=Despesas Gerais 
Descricao do modelo        [DocEsp]=Tit2=Modelo 9
Total por pagina           [DocEsp]=TotPag=1
Configuracao de colunas    [DocEsp]=COL=IvaLnc$.VLD.RED,INT,NOR,GSL;+
                                       +IvaLnc$.TAX.RED,INT,NOR,GSL;+
                                       +IvaLnc$.IVA.RED,INT,NOR,GSL;+
                                       +IvaLnc$.VLD.SDD;+
                                       +IvaLnc$.VLD.ISE;+
                                       +IvaLnc$.VLD.NUL,OUT,AUT;
'funcoes de listagem
Listar cabecalho            [FxCAB]=ModG_Cab
Listar linhas               [FxLIN]=ModG_Lin; Tot
Listar fim                  [FxFIM]=ModG_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=MODELO
Nome                       [DocNom]=MOD9_G,Liberais (Mod 9) - Ord. No. Reg.

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=54
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'parametros especificos
Modelo valido              [DocEsp]=CMO=09
Titulo da listagem         [DocEsp]=TIT=Despesas Gerais 
Descricao do modelo        [DocEsp]=Tit2=Modelo 9
Total por pagina           [DocEsp]=TotPag=1
Configuracao de colunas    [DocEsp]=COL=IvaLnc$.VLD.RED,INT,NOR,GSL;+
                                       +IvaLnc$.TAX.RED,INT,NOR,GSL;+
                                       +IvaLnc$.IVA.RED,INT,NOR,GSL;+
                                       +IvaLnc$.VLD.SDD;+
                                       +IvaLnc$.VLD.ISE;+
                                       +IvaLnc$.VLD.NUL,OUT,AUT;
'funcoes de listagem
Listar cabecalho            [FxCAB]=ModG_Cab
Listar linhas               [FxLIN]=ModG_Lin; Tot
Listar fim                  [FxFIM]=ModG_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=RUBRICA
Nome                       [DocNom]=MOD9R_G,Liberais (Mod 9) - Resumido

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=54
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'parametros especificos
Modelo valido              [DocEsp]=CMO=09
Titulo da listagem         [DocEsp]=TIT=Despesas Gerais - Resumo por Rubricas
Descricao do modelo        [DocEsp]=Tit2=Modelo 9

'funcoes de listagem
Listar cabecalho            [FxCAB]=ModG_ResCab
Listar linhas               [FxLIN]=ModG_ResLin; Tot
Listar fim                  [FxFIM]=ModG_ResFim
##


'==============================================================================
#VAR - Variaveis
'==============================================================================
TitLst   = TxTit$("TT=16CPI, LD, PT=66C",Memtxt$(1))
TitMod   = MemTxt$(2)
Pag      = Doc_CntPag
DataMod  = FrmVal$(Sig_DtHoje,45,0)
LstPar   = MemTxt$(20)
MoeEmp   = EmpTabCon$("MOEDA",Emp_Inf_Moeda,"NOME")

'Modelo resumido
'Rub      = frmNum$(2,MemTxt$(11))
'Rb       = frmNum$(2,MemTxt$(11))

TL       = MemTxt$(51)
ST       = MemTxt$(52)

Rub      = MemTxt$(11)
Rb       = MemTxt$(11)
RubNom   = left$(MemTxt$(12),40)
RubNom2  = left$(MemTxt$(12),32)
Rb2      = MemTxt$(11)+" "+left$(MemTxt$(12),32)

'Modelo resumido - linha
RC1      = FrmMoe$("",13,MemNum(11))
RC2      = FrmNum$(2,CtbIva$("TAX",0,MemNum(12)))
RC3      = FrmMoe$("",10,MemNum(13))
RC4      = FrmMoe$("",10,MemNum(14))
RC5      = FrmMoe$("",10,MemNum(15))
RC6      = FrmMoe$("",10,MemNum(16))

'Modelo resumido - totais
TRC1     = FrmMoe$("",13,Total(Rc1)))
TRC3     = FrmMoe$("",10,Total(RC3)))
TRC4     = FrmMoe$("",10,Total(RC4)))
TRC5     = FrmMoe$("",10,Total(RC5)))
TRC6     = FrmMoe$("",10,Total(RC6)))

'Modelo Completo
Reg      = FrmNum$(5,MemTxt$(15))
Ndoc     = FrmNdo$("06",Ctb_Mov_Tdoc$,MemTxt$(16))
Dtl      = FrmVal$(MemTxt$(17),44,0)
Descr    = Left$(MemTxt$(18),15)

Vliq     = FrmMoe$("",13,MemNum(31))
Tax      = FrmNum$(2,CtbIva$("TAX",0,MemNum(32)))
Imposto  = FrmMoe$("",10,MemNum(33))
IvaNd    = FrmMoe$("",10,MemNum(34))
Isent    = FrmMoe$("",10,MemNum(35))
Outras   = FrmMoe$("",10,MemNum(36))
SaldoRub = FrmMoe$("",16,MemNum(31)+MemNum(34)+MemNum(35)+MemNum(36))

'Modelo completo totais
TVliq     = FrmMoe$("",13,Total(Vliq))
TImposto  = FrmMoe$("",10,Total(Imposto))
TIvaNd    = FrmMoe$("",10,Total(IvaNd))
TIsent    = FrmMoe$("",10,Total(Isent))
TOutras   = FrmMoe$("",10,Total(Outras))
TSaldoRub = FrmMoe$("",16,Total(SaldoRub))
##


'==============================================================================
#INC - Inclusao de ficheiros
'==============================================================================
Funcoes comuns                    =[SIG_Dir.Div],LsComVar.std
##


'==============================================================================
#PGM - Programa/Funcoes
'==============================================================================
SUB Lst_AJT
end sub


'- Modelo Resumido --------------------------------------------------------------
SUB Mod_ResCab
FxDiv LstIde,16CPI,1
?@TitLst                                                                                                       #
Print PrtCmd$("[16CPILN]");
'?            Mes: @LstPar                                                                               @TitMod          #
'?           Data: @DataMod                                                                              Folha No : @Pag  #
?                                                                                                         @TitMod          #
?        Data: @LstPar                                                                                    Folha No : @Pag  #
?       ====================================================================================================================
?       | Codigo |                                        |  COMPRAS SUJEITAS A IMPOSTO   | COM IVA  |          |          |
?       |   de   |               RUBRICA                  |-------------------------------|   NAO    |  ISENTAS |  OUTRAS  |
?       | Rubrica|                                        | Vl. Liquido | Taxa |  Imposto |DEDUTIVEL |          |          |
?       ====================================================================================================================
end sub


SUB Mod_ResLin
?       |  @Rub  |@RubNom                                 |@RC1         |  @RC2|@RC3      |@RC4      |@RC5      |@RC6      |
end sub


'Sub Mod_ResFimAjt
'?       ====================================================================================================================
'End Sub


Sub Mod_ResFim
?       ====================================================================================================================
?       |   Totais                                        |@TRC1        |@TRC2 |@TRC3     |@TRC4     |@TRC5     |@TRC6     |
?       ====================================================================================================================
FxDiv LstPer,SP
end sub


'-- Modelo Geral ---------
SUB Mod_Cab
if Doc_CntPag=1 then
   x=TotLpz(0)
end if

FxDiv LstIde,16CPI,1
?@TitLst                                                                                                                             #
Print PrtCmd$("[16CPILN]");
'?  Mes: @LstPar                                                                                                     @TitMod          #
'? Data: @DataMod                                                                                                    Folha No : @Pag  #
?                                                                                                                   @TitMod          #
? Data: @LstPar                                                                                                     Folha No : @Pag  #
?=====================================================================================================================================
?|Ordem |    Documento     |                |    |  VENDAS SUJEITAS A IMPOSTO    | COM IVA  |          |          |                  |
?|  de  |------------------|   Descricao    |Rub.|-------------------------------|   NAO    |  ISENTAS |  OUTRAS  |       SALDO      |
?|Regist|  No.  |   Data   |                |    | Vl. Liquido | Taxa |  Imposto |DEDUTIVEL |          |          |                  |
?=====================================================================================================================================
end sub


SUB Mod_Lin
?| @Reg |@Ndoc  |@Dtl      |@Descr          | @Rb|@Vliq        |  @Tax|@Imposto  |@IvaND    |@Isent    |@Outras   |@SaldoRub         |
end sub


Sub Mod_Fim
?=====================================================================================================================================
if @TL = "REG" then
?| Totais                                   |    |@TVliq       |      |@TImposto |@TIvaNd   |@TIsent   |@TOutras  |@TSaldoRub        |
else
?|Rub. @Rb @RubNom2                         |    |@TVliq       |      |@TImposto |@TIvaNd   |@TIsent   |@TOutras  |@TSaldoRub        |
end if
?=====================================================================================================================================
if @ST = "ST" then
?
else
FxDiv LstPer,SP
end if
end sub


'==============================================================================
'= GRF = Listagem grafica =====================================================
'==============================================================================
SUB FxIni 'funcao de inicializacao
Call SigLstIni
FimDoc=263
End sub


'-------------------------------------------------------------------------------------------------------------------------
'- Modelos (DESPESAS) - Modo gráfico
'-------------------------------------------------------------------------------------------------------------------------
SUB ModG_Cab 'Modelos (despesas) - cabecalho (modo grafico)
Call SigLstCab
Lin1=1                         		'linha 1
Lin2=4                                  'linha 2
Lin3=6.5                                  'linha 3
esp=30 

TCol1 =  0
TCol2 = 10
TCol3 = 17
TCol4 = 30
TCol5 = 45
TCol6 = 60
TCol7 = 80
TCol8 = 95
TCol9 =110
TCol10=125
TCol11=145
TCol12=165
TCol13=188
Cmax=TCol13

if Doc_CntPag=1 then
   x=TotLpz(0)
end if

PrWIN COR_T,  CorTitLst                         'cor de titulo
PrWIN FON  ,   8,   1                        	'activar fonte
PrWIN AJT_B,  Margem, 25                    	'posicao base

PrWIN GR_CX,  0, 0, Cmax,10                     'caixa geral
PrWIN GR_CX, Tcol2 , 0, Tcol4 , 5               'caixa superior documento
PrWIN GR_CX, Tcol2 , 5, Tcol4 ,10               'caixa inferior documento
PrWIN GR_CX, Tcol2 , 5, Tcol3 ,10               'divisoria caixa inferior documento
PrWIN GR_CX, Tcol4 , 0, Tcol5 ,10               'caixa descricao
PrWIN GR_CX, Tcol5 , 0, Tcol6 ,10               'caixa rubrica
PrWIN GR_CX, Tcol6 , 0, TCol9 ,10               'caixa vendas sujeitas a imposto
PrWIN GR_CX, Tcol6 , 5, Tcol7 ,10               'caixa valor liquido
PrWIN GR_CX, Tcol7 , 5, Tcol8 ,10               'caixa taxa
PrWIN GR_CX, Tcol8 , 5, Tcol9 ,10               'caixa imposto
PrWIN GR_CX, Tcol9 , 0, Tcol10,10               'caixa com iva nao dedutivel
PrWIN GR_CX, Tcol10, 0, Tcol11,10               'caixa isentas
PrWIN GR_CX, Tcol11, 0, Tcol12,10               'caixa outras
PrWIN GR_CX, Tcol12, 0, Tcol13,10               'caixa saldo

PrWIN FON  ,   7,   1                           'activar fonte
PrWIN TX_CTR,  TCol1 ,Lin1,TCol2 ,Lin1,"Ordem"
PrWIN TX_CTR,  TCol1 ,Lin2,TCol2 ,Lin2,"de"
PrWIN TX_CTR,  TCol1 ,Lin3,TCol2 ,Lin3,"Registo"
PrWIN TX_CTR,  TCol2 ,Lin1,TCol4 ,Lin1,"Documento"
PrWIN TX_CTR,  TCol2 ,Lin3,TCol3 ,Lin3,"Nº"
PrWIN TX_CTR,  TCol3 ,Lin3,TCol4 ,Lin3,"Data"
PrWIN TX_CTR,  TCol4 ,Lin2,TCol5 ,Lin2,"Descrição"
PrWIN TX_CTR,  TCol5 ,Lin2,TCol6 ,Lin2,"Rubrica"
PrWIN TX_CTR,  TCol6 ,Lin1,TCol9 ,Lin1,"VENDAS SUJEITAS A IMPOSTO"
PrWIN TX_CTR,  TCol6 ,Lin3,TCol7 ,Lin3,"Valor Líquido"
PrWIN TX_CTR,  TCol7 ,Lin3,TCol8 ,Lin3,"Taxa"
PrWIN TX_CTR,  TCol8 ,Lin3,TCol9 ,Lin3,"Imposto"
PrWIN TX_CTR,  TCol9 ,Lin1,TCol10,Lin1,"COM IVA"
PrWIN TX_CTR,  TCol9 ,Lin2,TCol10,Lin2,"NÃO"
PrWIN TX_CTR,  TCol9 ,Lin3,TCol10,Lin3,"DEDUTÍVEL"
PrWIN TX_CTR,  TCol10,Lin2,TCol11,Lin2,"ISENTAS"
PrWIN TX_CTR,  TCol11,Lin2,TCol12,Lin2,"OUTRAS"
PrWIN TX_CTR,  TCol12,Lin2,TCol13,Lin2,"SALDO"

PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN COR_T,CorLin                              'cor de linhas
InicioLinhas=33
end sub


SUB ModG_Lin 'modelos (compras) - linha (modo grafico)
LCol1 =  1
LCol2 =  9
LCol3 = 17
LCol4 = 31
LCol5 = 46
LCol6 = 61
LCol7 = 87
LCol8 = 95
LCol9 =111
LCol10=131
LCol11=151
LCol12=165
Cmax=lCol12

PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN COR_T,    CorLin
PrWIN TX_N,     LCol1 ,0          ,@Reg
PrWIN TX_N,     LCol2 ,0          ,@Ndoc
PrWIN TX_N,     LCol3 ,0          ,@Dtl
PrWIN TX_N,     LCol4 ,0          ,@Descr
PrWIN TX_N,     LCol5 ,0          ,@Rb
PrWIN TX_NP,    LCol6 ,0      ,"N",@Vliq
PrWIN TX_NP,    LCol7 ,0      ,"N",@Tax
PrWIN TX_NP,    LCol8 ,0      ,"N",@Imposto
PrWIN TX_NP,    LCol9 ,0      ,"N",@IvaND
PrWIN TX_NP,    LCol10,0      ,"N",@Isent
PrWIN TX_NP,    LCol11,0      ,"N",@Outras
PrWIN TX_NP,    LCol12,0      ,"N",@SaldoRub
end sub


SUB ModG_Fim 'modelos (compras)- final (modo grafico)
TCol1 =  0
TCol2 = 10
TCol3 = 17
TCol4 = 30
TCol5 = 45
TCol6 = 60
TCol7 = 80
TCol8 = 95
TCol9 =110
TCol10=125
TCol11=145
TCol12=165
TCol13=188
Cmax=TCol13

PrWIN AJT_B,Margem,FimDoc                       'posicao base
PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 0, Cmax, 0                      'linha

PrWIN GR_CX, Tcol1 ,   0, Tcol6 ,  5            'texto Totais
PrWIN GR_CX, Tcol6 ,   0, Tcol7 ,  5            'caixa valor liquido
PrWIN GR_CX, Tcol7 ,   0, Tcol8 ,  5            'caixa taxa
PrWIN GR_CX, Tcol8 ,   0, Tcol9 ,  5            'caixa imposto
PrWIN GR_CX, Tcol9 ,   0, Tcol10,  5            'caixa com iva nao dedutivel
PrWIN GR_CX, Tcol10,   0, Tcol11,  5            'caixa isentas
PrWIN GR_CX, Tcol11,   0, Tcol12,  5            'caixa outras
PrWIN GR_CX, Tcol12,   0, Tcol13,  5            'caixa saldo

TeCol1 =  1
TeCol2 = 10
TeCol3 = 18
TeCol4 = 31
TeCol5 = 46
TeCol6 = 61
TeCol7 = 86
TeCol8 = 95
TeCol9 =110
TeCol10=130
TeCol11=150
TeCol12=165
Cmax=TeCol12

if @TL = "REG" then
   PrWIN COR_T,    CorLin
   PrWIN TX_CTR,   TeCol1,Lin1,TeCol7,Lin1,"Totais:"
   PrWIN TX_NP,    TeCol6 ,1      ,"N",@TVliq
   PrWIN TX_NP,    TeCol8 ,1      ,"N",@TImposto
   PrWIN TX_NP,    TeCol9 ,1      ,"N",@TIvaNd
   PrWIN TX_NP,    TeCol10,1      ,"N",@TIsent
   PrWIN TX_NP,    TeCol11,1      ,"N",@TOutras
   PrWIN TX_NP,    TeCol12,1      ,"N",@TSaldoRub
else
   PrWIN TX_CTR,   TeCol1,Lin1,TeCol2,Lin1,"Rubrica:" 
   PrWIN TX_NP,    TeCol2 ,1      ,"N",@Rb2
   PrWIN TX_NP,    TeCol6 ,1      ,"N",@TVliq
   PrWIN TX_NP,    TeCol8 ,1      ,"N",@TImposto
   PrWIN TX_NP,    TeCol9 ,1      ,"N",@TIvaNd
   PrWIN TX_NP,    TeCol10,1      ,"N",@TIsent
   PrWIN TX_NP,    TeCol11,1      ,"N",@TOutras
   PrWIN TX_NP,    TeCol12,1      ,"N",@TSaldoRub
end if

Call SigLstRod
if @ST = "ST" then
   tmp=CntLin("INC",1)              'contar linhas
else
   PrWin FP
end if
end sub


'-------------------------------------------------------------------------------------------------------------------------
'- Modelos (DESPESAS RESUMIDO) - Modo gráfico
'-------------------------------------------------------------------------------------------------------------------------
SUB ModG_ResCab 'Modelos (despesas resumo) - cabecalho (modo grafico)
Call SigLstCab
Lin1=1                         		'linha 1
Lin2=4                                  'linha 2
Lin3=6.5                                'linha 3
esp=30 

TCol1 =  0
TCol2 = 10
TCol3 = 60
TCol4 = 80
TCol5 = 95
TCol6 =110
TCol7 =145
TCol8 =165
TCol9 =188
Cmax=TCol9

PrWIN COR_T,  CorTitLst                         'cor de titulo
PrWIN FON  ,   8,   1                        	'activar fonte
PrWIN AJT_B,  Margem, 25                    	'posicao base

PrWIN GR_CX,  0, 0, Cmax,10                     'caixa geral
PrWIN GR_CX, Tcol1 , 0, Tcol2 ,10               'caixa codigo rubrica
PrWIN GR_CX, Tcol2 , 0, Tcol3 ,10               'caixa rubrica
PrWIN GR_CX, Tcol3 , 0, TCol6 ,10               'caixa compras sujeitas a imposto
PrWIN GR_CX, Tcol3 , 5, Tcol4 ,10               'caixa valor liquido
PrWIN GR_CX, Tcol4 , 5, Tcol5 ,10               'caixa taxa
PrWIN GR_CX, Tcol5 , 5, Tcol6 ,10               'caixa imposto
PrWIN GR_CX, Tcol6 , 0, Tcol7 ,10               'caixa com iva nao dedutivel
PrWIN GR_CX, Tcol7 , 0, Tcol8 ,10               'caixa isentas
PrWIN GR_CX, Tcol8 , 0, Tcol9 ,10               'caixa outras

PrWIN FON  ,   7,   1                           'activar fonte
PrWIN TX_CTR,  TCol1 ,Lin1,TCol2 ,Lin1,"Código"
PrWIN TX_CTR,  TCol1 ,Lin2,TCol2 ,Lin2,"de"
PrWIN TX_CTR,  TCol1 ,Lin3,TCol2 ,Lin3,"Rubrica"
PrWIN TX_CTR,  TCol2 ,Lin2,TCol3 ,Lin2,"Rubrica"
PrWIN TX_CTR,  TCol3 ,Lin1,TCol6 ,Lin1,"VENDAS SUJEITAS A IMPOSTO"
PrWIN TX_CTR,  TCol3 ,Lin3,TCol4 ,Lin3,"Valor Líquido"
PrWIN TX_CTR,  TCol4 ,Lin3,TCol5 ,Lin3,"Taxa"
PrWIN TX_CTR,  TCol5 ,Lin3,TCol6 ,Lin3,"Imposto"
PrWIN TX_CTR,  TCol6 ,Lin1,TCol7 ,Lin1,"COM IVA"
PrWIN TX_CTR,  TCol6 ,Lin2,TCol7 ,Lin2,"NÃO"
PrWIN TX_CTR,  TCol6 ,Lin3,TCol7 ,Lin3,"DEDUTÍVEL"
PrWIN TX_CTR,  TCol7 ,Lin2,TCol8 ,Lin2,"ISENTAS"
PrWIN TX_CTR,  TCol8 ,Lin2,TCol9 ,Lin2,"OUTRAS"

PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN COR_T,CorLin                              'cor de linhas
InicioLinhas=33
end sub


SUB ModG_ResLin 'modelos (compras) - linha (modo grafico)
LCol1 =  1
LCol2 = 11
LCol3 = 61
LCol4 = 87
LCol5 = 95
LCol6 =130
LCol7 =150
LCol8 =173
Cmax=lCol8

PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN COR_T,    CorLin
PrWIN TX_N,     LCol1 ,0          ,@Rub
PrWIN TX_N,     LCol2 ,0          ,@RubNom
PrWIN TX_NP,    LCol3 ,0      ,"N",@RC1
PrWIN TX_NP,    LCol4 ,0      ,"N",@RC2
PrWIN TX_NP,    LCol5 ,0      ,"N",@RC3
PrWIN TX_NP,    LCol6 ,0      ,"N",@RC4
PrWIN TX_NP,    LCol7 ,0      ,"N",@RC5
PrWIN TX_NP,    LCol8 ,0      ,"N",@RC6
end sub


SUB ModG_ResFim 'modelos (despesas resumo)- final (modo grafico)
TCol1 =  0
TCol2 = 10
TCol3 = 60
TCol4 = 80
TCol5 = 95
TCol6 =110
TCol7 =145
TCol8 =165
TCol9 =188
Cmax=TCol9

PrWIN AJT_B,Margem,FimDoc                       'posicao base
PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 0, Cmax, 0                      'linha
PrWIN GR_CX, Tcol1 ,   0, Tcol3 ,  5            'texto Totais
PrWIN GR_CX, Tcol3 ,   0, Tcol4 ,  5            'caixa valor liquido
PrWIN GR_CX, Tcol4 ,   0, Tcol5 ,  5            'caixa taxa
PrWIN GR_CX, Tcol5 ,   0, Tcol6 ,  5            'caixa imposto
PrWIN GR_CX, Tcol6 ,   0, Tcol7 ,  5            'caixa com iva nao dedutivel
PrWIN GR_CX, Tcol7 ,   0, Tcol8 ,  5            'caixa isentas
PrWIN GR_CX, Tcol8 ,   0, Tcol9 ,  5            'caixa outras

TeCol1 =  1
TeCol2 = 10
TeCol3 = 61
TeCol4 = 87
TeCol5 = 95
TeCol6 =130
TeCol7 =150
TeCol8 =173
Cmax=TeCol8

'PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*16          	'posicao base
PrWIN COR_T,    CorLin
PrWIN TX_CTR,   TeCol1,Lin1,TeCol3,Lin1,"Totais:"
PrWIN TX_NP,    TeCol3 ,1      ,"N",@TRC1
PrWIN TX_NP,    TeCol4 ,1      ,"N",@TRC2
PrWIN TX_NP,    TeCol5 ,1      ,"N",@TRC3
PrWIN TX_NP,    TeCol6 ,1      ,"N",@TRC4
PrWIN TX_NP,    TeCol7 ,1      ,"N",@TRC5
PrWIN TX_NP,    TeCol8 ,1      ,"N",@TRC6

Call SigLstRod
if @ST = "ST" then
   tmp=CntLin("INC",1)              'contar linhas
else
   PrWin FP
end if
end sub
##


'==============================================================================
#INC - Inclusao de ficheiros
'==============================================================================
Funcoes comuns                    =[SIG_Dir.Div],LsComPgm.std
##
