'Nome       : Compras.std
'Tipo       : LST
'Data       : 2007/11/02
'Versao     : 4.0
'Descricao  : Listagem de modelos de compras

'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 4.0  2007/??/?? ---------------------------------------------------
'Listagem do IVA por conta do adquirente

'- Versao : 3.1  2007/03/13 ---------------------------------------------------
'Permitir codigos de compras de tabaco e combustiveis configuraveis (TC, CC)
'Correcao da listagem em modo grafico

'- Versao : 3.0  2005/06/28 ---------------------------------------------------
'modo grafico

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

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

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

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



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


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


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=MODELO
Nome                       [DocNom]=MOD1, Mercadorias (Mod.1)

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
'Ajustar pagina             [DocApg]=-1
Ajustar pagina             [DocApg]=0

Modelo valido              [DocEsp]=CMO=01
Titulo da listagem         [DocEsp]=TIT=Compra de Mercadorias
Descricao do modelo        [DocEsp]=Tit2=Modelo 1
Configuracao de colunas    [DocEsp]=COL=VlLiq$;+
                                       +IvaLnc$.IVA.RED;+
                                       +IvaLnc$.IVA.INT;+
                                       +IvaLnc$.IVA.NOR;+
                                       +IvaIse$;+
                                       +CodLnc$.TC;+
                                       +CodLnc$.CC
'funcoes de listagem
Listar cabecalho            [FxCAB]=Mod_Cab
Listar linhas               [FxLIN]=Mod_Lin
Listar fim                  [FxFIM]=Mod_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=MODELO
Nome                       [DocNom]=MOD2,Mat.-Prima e Subsid. (Mod.2)

'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=02
Titulo da listagem         [DocEsp]=TIT=Compra de Matérias-Primas e Subsidiárias
Descricao do modelo        [DocEsp]=Tit2=Modelo 2
Configuracao de colunas    [DocEsp]=COL=VlLiq$;+
                                       +IvaLnc$.IVA.RED;+
                                       +IvaLnc$.IVA.INT;+
                                       +IvaLnc$.IVA.NOR,PCA;+
                                       +IvaIse$;+
                                       +CodLnc$.TC;+
                                       +CodLnc$.CC

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

'==============================================================================
'= GRF = Listagem grafica =====================================================
'==============================================================================
'==============================================================================
#DOC - Configuracao do documento 
'==============================================================================
Tipo                       [DocTip]=MODELO
Nome                       [DocNom]=MOD1_G, Mercadorias (Mod.1)

'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=01
Titulo da listagem         [DocEsp]=TIT=Compra de Mercadorias
Descricao do modelo        [DocEsp]=Tit2=Modelo 1
Configuracao de colunas    [DocEsp]=COL=VlLiq$;+
                                       +IvaLnc$.IVA.RED;+
                                       +IvaLnc$.IVA.INT;+
                                       +IvaLnc$.IVA.NOR;+
                                       +IvaIse$;+
                                       +CodLnc$.TC;+
                                       +CodLnc$.CC
'funcoes de listagem
Listar cabecalho            [FxCAB]=ModG_Cab
Listar linhas               [FxLIN]=ModG_Lin
Listar fim                  [FxFIM]=ModG_Fim
##


'==============================================================================
#DOC - Configuracao do documento 
'==============================================================================
Tipo                       [DocTip]=MODELO
Nome                       [DocNom]=MOD2_G,Mat.-Prima e Subsid. (Mod.2)

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

'parametros especificos
Modelo valido              [DocEsp]=CMO=02
Titulo da listagem         [DocEsp]=TIT=Compra de Matérias-Primas e Subsidiárias
Descricao do modelo        [DocEsp]=Tit2=Modelo 2
Configuracao de colunas    [DocEsp]=COL=VlLiq$;+
                                       +IvaLnc$.IVA.RED;+
                                       +IvaLnc$.IVA.INT;+
                                       +IvaLnc$.IVA.NOR,PCA;+
                                       +IvaIse$;+
                                       +CodLnc$.TC;+
                                       +CodLnc$.CC

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


'==============================================================================
#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")
MoeAbrv  = trim$(EmpTabCon$("MOEDA", Emp_Inf_Moeda, "ABRV"))
ST       = MemTxt$(52)

Reg      = FrmNum$(6,Ctb_Mov_NReg$)
Ndoc     = FrmNdo$("04",Ctb_Mov_Tdoc$,Ctb_Mov_Ndoc$)
Dtl      = FrmVal$(Ctb_Mov_Dtl,44,0)
Forn     = Left$(Ctb_Mov_Ent$,10)
ForNom   = Left$(Ctb_Ent_Nome$,10)
Descr    = Left$(Ctb_Mov_Descr$,15)
IvaCod   = Ctb_Mov_IvaCod
IvaMod   = MemTxt$(30)

'valores de linha
Vliq     = FrmMoe$("",13,MemNum(31))
IvaRes   = FrmMoe$("",10,MemNum(32))
IvaInt   = FrmMoe$("",10,MemNum(33))
IvaNor   = FrmMoe$("",10,MemNum(34))
Isent    = FrmMoe$("",10,MemNum(35))
Tabaco   = FrmMoe$("",10,MemNum(36))
Combust  = FrmMoe$("",10,MemNum(37))

'totais
TVliq     = FrmMoe$("",13,Total(VLiq)))
TIvaRes   = FrmMoe$("",10,Total(IvaRes))
TIvaInt   = FrmMoe$("",10,Total(IvaInt))
TIvaNor   = FrmMoe$("",10,Total(IvaNor))
TIsent    = FrmMoe$("",10,Total(Isent))
TTabaco   = FrmMoe$("",10,Total(Tabaco))
TCombust  = FrmMoe$("",10,Total(Combust))

'totais em euro
TEVliq     = FrmNum$(10.2,MoeCnv("N",Total(VLiq),Ctb_Mov_Moeda,2))
TEIvaRes   = FrmNum$(7.2,MoeCnv("N",Total(IvaRes),Ctb_Mov_Moeda,2))
TEIvaInt   = FrmNum$(7.2,MoeCnv("N",Total(IvaInt),Ctb_Mov_Moeda,2))
TEIvaNor   = FrmNum$(7.2,MoeCnv("N",Total(IvaNor),Ctb_Mov_Moeda,2))
TEIsent    = FrmNum$(7.2,MoeCnv("N",Total(Isent),Ctb_Mov_Moeda,2))
TETabaco   = FrmNum$(7.2,MoeCnv("N",Total(Tabaco),Ctb_Mov_Moeda,2))
TECombust  = FrmNum$(7.2,MoeCnv("N",Total(Combust),Ctb_Mov_Moeda,2))

'totais gerais
TgVliq     = FrmMoe$("",13,MemNum(51))
TgIvaRes   = FrmMoe$("",10,MemNum(52))
TgIvaInt   = FrmMoe$("",10,MemNum(53))
TgIvaNor   = FrmMoe$("",10,MemNum(54))
TgIsent    = FrmMoe$("",10,MemNum(55))
TgTabaco   = FrmMoe$("",10,MemNum(56))
TgComb     = FrmMoe$("",10,MemNum(57))

'totais gerais em euro
TgEVliq    = FrmNum$(10.2,MoeCnv("N",MemNum(51),Ctb_Mov_Moeda,2))
TgEIvaRes  = FrmNum$(7.2,MoeCnv("N",MemNum(52),Ctb_Mov_Moeda,2))
TgEIvaInt  = FrmNum$(7.2,MoeCnv("N",MemNum(53),Ctb_Mov_Moeda,2))
TgEIvaNor  = FrmNum$(7.2,MoeCnv("N",MemNum(54),Ctb_Mov_Moeda,2))
TgEIsent   = FrmNum$(7.2,MoeCnv("N",MemNum(55),Ctb_Mov_Moeda,2))
TgETabaco  = FrmNum$(7.2,MoeCnv("N",MemNum(56),Ctb_Mov_Moeda,2))
TgEComb    = FrmNum$(7.2,MoeCnv("N",MemNum(57),Ctb_Mov_Moeda,2))

IvaNorLiq  = FrmMoe$("",13,TIvaNorLiq)
IvaNorImp  = FrmMoe$("",10,TIvaNorImp)

IvaPcaLiq  = FrmMoe$("",13,TIvaPcaLiq)
IvaPcaImp  = FrmMoe$("",10,TIvaPcaImp)
##


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


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


SUB Mod_CabIni
TIvaNorLiq = 0
TIvaNorImp = 0

TIvaPcaLiq = 0
TIvaPcaImp = 0
end sub


SUB ModG_CabIni
TIvaNorLiq = 0
TIvaNorImp = 0

TIvaPcaLiq = 0
TIvaPcaImp = 0
end sub


SUB Mod_Cab 'cabecalho
FxDiv LstIde,16CPI,1
?@TitLst                                                                                                                           #
Print PrtCmd$("[16CPILN]");
'?  Mes: @LstPar                                                                                                   @TitMod          #
'? Data: @DataMod                                                                                                  Folha No : @Pag  #
?                                                                                                                 @TitMod           #
? Data: @LstPar                                                                                                   Folha No : @Pag   #
?====================================================================================================================================
?|Ordem |   Documento    |          |               |           SUJEITAS COM IVA DEDUTIVEL         |          |          |          |
?|  de  |----------------|  Fornec. |   Descricao   |----------------------------------------------| OUT/ISEN | TAB/FOSF.| COMBUST. |
?|Regist| No. |   Data   |          |               |Valor Liquido|Tx. Reduz.|Tx. Inter.|Tx. Normal|          |          |          |
?====================================================================================================================================
end sub


SUB Mod_Lin 'linha
'?|@Reg  |@Ndoc|@Dtl      |@Forn     |@Descr         |@Vliq        |@IvaRes   |@IvaInt   |@IvaNor   |@Isent    |@Tabaco   |@Combust  |

if @IvaMod = "PCA" then
TIvaPcaLiq = TIvaPcaLiq + MemNum(31)
TIvaPcaImp = TIvaPcaImp + MemNum(34)
?|@Reg  |@Ndoc|@Dtl      |@Forn     |@Descr         |@Vliq        *@IvaRes   |@IvaInt   |@IvaNor   *@Isent    |@Tabaco   |@Combust  |
else
TIvaNorLiq = TIvaNorLiq + MemNum(31)
TIvaNorImp = TIvaNorImp + MemNum(34)
?|@Reg  |@Ndoc|@Dtl      |@Forn     |@Descr         |@Vliq        |@IvaRes   |@IvaInt   |@IvaNor   |@Isent    |@Tabaco   |@Combust  |
end if
end sub


Sub Mod_Fim 'fim
?====================================================================================================================================
?|     Total IVA a Taxa Normal:                     |@IvaNorLiq   |          |          |@IvaNorImp|          |          |          |
?------------------------------------------------------------------------------------------------------------------------------------
?| (*) Total IVA por conta do adquirente:           |@IvaPcaLiq   |          |          |@IvaPcaImp|          |          |          |
?====================================================================================================================================
?|   Total em @MoeEmp                               |@TVliq       |@TIvaRes  |@TIvaInt  |@TIvaNor  |@TIsent   |@TTabaco  |@TCombust |
if @MoeAbrv<>"EUR" then
?|   Total em Euro                                  |@TEVliq      |@TEIvaRes |@TEIvaInt |@TEIvaNor |@TEIsent  |@TETabaco |@TECombust|
end if
?====================================================================================================================================

if MemTxt$(50)="D" then
?
?====================================================================================================================================
?|   Total Geral em @MoeEmp                         |@TgVliq      |@TgIvaRes |@TgIvaInt |@TgIvaNor |@TgIsent  |@TgTabaco |@TgComb   |
if @MoeAbrv<>"EUR" then
?|   Total Geral em Euro                            |@TgEVliq     |@TgEIvaRes|@TgEIvaInt|@TgEIvaNor|@TgEIsent |@TgETabaco|@TgEComb  |
end if
?====================================================================================================================================
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 (COMPRAS) - Modo gráfico
'-------------------------------------------------------------------------------------------------------------------------
SUB ModG_Cab 'Modelos (compras) - 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=185
Cmax=TCol13

PrWIN COR_T,  CorTitLst                         'cor de titulo
PrWIN FON  ,   8,   1                        	'activar fonte
PrWIN AJT_B,  Margem, 30                    	'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 fornecedor
PrWIN GR_CX, Tcol5 , 0, Tcol6 ,10               'caixa descricao
PrWIN GR_CX, Tcol6 , 0, TCol10,10               'caixa sujeitas com Iva dedutivel
PrWIN GR_CX, Tcol6 , 5, Tcol10,10               'caixa sujeitas com Iva dedutivel (separador)
PrWIN GR_CX, Tcol6 , 5, Tcol7 ,10               'caixa valor liquido
PrWIN GR_CX, Tcol7 , 5, Tcol8 ,10               'caixa taxa reduzida
PrWIN GR_CX, Tcol8 , 5, Tcol9 ,10               'caixa taxa intermedia
PrWIN GR_CX, Tcol9 , 5, Tcol10,10               'caixa taxa normal
PrWIN GR_CX, Tcol10, 0, Tcol11,10               'caixa out/Isen
PrWIN GR_CX, Tcol11, 0, Tcol12,10               'caixa tab/fosf.
PrWIN GR_CX, Tcol12, 0, Tcol13,10               'caixa combustiveis

'PrWIN FON,"BOLD+"                               'activar bold
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,"Fornecedor"
PrWIN TX_CTR,  TCol5 ,Lin2,TCol6 ,Lin2,"Descrição"
PrWIN TX_CTR,  TCol6 ,Lin1,TCol10,Lin1,"SUJEITAS COM I.V.A. DEDUTÍVEL"
PrWIN TX_CTR,  TCol6 ,Lin3,TCol7 ,Lin3,"Valor Líquido"
PrWIN TX_CTR,  TCol7 ,Lin3,TCol8 ,Lin3,"Tx Reduzida"
PrWIN TX_CTR,  TCol8 ,Lin3,TCol9 ,Lin3,"Tx Interméd."
PrWIN TX_CTR,  TCol9 ,Lin3,TCol10,Lin3,"Tx Normal"
PrWIN TX_CTR,  TCol10,Lin2,TCol11,Lin2,"Outros/Isentos"
PrWIN TX_CTR,  TCol11,Lin2,TCol12,Lin2,"Tabaco/Fósf."
PrWIN TX_CTR,  TCol12,Lin2,TCol13,Lin2,"Combustíveis"

PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN COR_T,CorLin                              'cor de linhas
'PrWIN FON,"BOLD-"                               'desactivar bold

InicioLinhas=38
end sub


SUB ModG_Lin 'modelos (compras) - linha (modo grafico)
LCol1 =  1
LCol2 = 11
LCol3 = 18
LCol4 = 31
LCol5 = 46
LCol6 = 61
LCol7 = 81
LCol8 = 96
LCol9 =111
LCol10=131
LCol11=151
LCol12=171
LCol13=190
Cmax=lCol13

PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base

if @IvaMod = "PCA" then
   TIvaPcaLiq = TIvaPcaLiq + MemNum(31)
   TIvaPcaImp = TIvaPcaImp + MemNum(34)

   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          ,@Forn
   PrWIN TX_N,     LCol5 ,0          ,@Descr
   PrWIN TX_NP,    LCol6 ,0      ,"N",@Vliq
   PrWIN TX_N,LCol7-3.0  ,0          ,"*"
   PrWIN TX_NP,    LCol7 ,0      ,"N",@IvaRes
   PrWIN TX_NP,    LCol8 ,0      ,"N",@IvaInt
   PrWIN TX_NP,    LCol9 ,0      ,"N",@IvaNor
   PrWIN TX_N,LCol10-6.5 ,0          ,"*"
   PrWIN TX_NP,    LCol10,0      ,"N",@Isent
   PrWIN TX_NP,    LCol11,0      ,"N",@Tabaco
   PrWIN TX_NP,    LCol12,0      ,"N",@Combust
else
   TIvaNorLiq = TIvaNorLiq + MemNum(31)
   TIvaNorImp = TIvaNorImp + MemNum(34)

   PrWIN TX_N,     LCol1 ,0          ,@Reg
   PrWIN TX_N,     LCol2 ,0          ,@Ndoc
   PrWIN TX_N,     LCol3 ,0          ,@Dtl
   PrWIN TX_N,     LCol4 ,0          ,@Forn
   PrWIN TX_N,     LCol5 ,0          ,@Descr
   PrWIN TX_NP,    LCol6 ,0      ,"N",@Vliq
   PrWIN TX_NP,    LCol7 ,0      ,"N",@IvaRes
   PrWIN TX_NP,    LCol8 ,0      ,"N",@IvaInt
   PrWIN TX_NP,    LCol9 ,0      ,"N",@IvaNor
   PrWIN TX_NP,    LCol10,0      ,"N",@Isent
   PrWIN TX_NP,    LCol11,0      ,"N",@Tabaco
   PrWIN TX_NP,    LCol12,0      ,"N",@Combust
end if
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=185
Cmax=TCol13

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

PrWIN GR_CX, Tcol1 ,   0, Tcol5 ,  9            'texto Total em Euro
PrWIN GR_CX, Tcol5 ,   0, Tcol6 ,  9            'caixa valor liquido (taxa reduzida)
PrWIN GR_CX, Tcol6 ,   0, Tcol7 ,  9            'caixa imposto (taxa reduzida)
PrWIN GR_CX, Tcol7 ,   0, Tcol8 ,  9            'caixa valor liquido (taxa intermedia)
PrWIN GR_CX, Tcol8 ,   0, Tcol9 ,  9            'caixa imposto (taxa intermedia)
PrWIN GR_CX, Tcol9 ,   0, Tcol10,  9            'caixa valor liquido (taxa normal)
PrWIN GR_CX, Tcol10,   0, Tcol11,  9            'caixa imposto (taxa normal)
PrWIN GR_CX, Tcol11,   0, Tcol12,  9            'caixa isentas (bens exportacao)
PrWIN GR_CX, Tcol12,   0, Tcol13,  9            'caixa outras (sem direito a dedução)

TeCol1 =  1
TeCol2 = 11
TeCol3 = 18
TeCol4 = 31
TeCol5 = 46
TeCol6 = 61
TeCol7 = 81
TeCol8 = 96
TeCol9 =111
TeCol10=131
TeCol11=151
TeCol12=171
TeCol13=185
Cmax=TeCol13

memp$=@MoeEmp

PrWIN COR_T,    CorLin                                          'cor de valores
   
if @MoeAbrv<>"EUR" then
   PrWIN TX_CTR,   TeCol2,Lin1,TeCol5,Lin1,"Total em Euro:"
   PrWIN TX_NP,    TeCol6 ,1      ,"N",@TEVliq
   PrWIN TX_NP,    TeCol7 ,1      ,"N",@TEIvaRes
   PrWIN TX_NP,    TeCol8 ,1      ,"N",@TEIvaInt
   PrWIN TX_NP,    TeCol9 ,1      ,"N",@TEIvaNor
   PrWIN TX_NP,    TeCol10,1      ,"N",@TEIsent
   PrWIN TX_NP,    TeCol11,1      ,"N",@TETabaco
   PrWIN TX_NP,    TeCol12,1      ,"N",@TECombust
else
   PrWIN TX_CTR,   TeCol2,Lin1,TeCol5,Lin1,"Total em "+memp$
   PrWIN TX_NP,    TeCol6,1       ,"N",@TVliq
   PrWIN TX_NP,    TeCol7,1       ,"N",@TIvaRes
   PrWIN TX_NP,    TeCol8,1       ,"N",@TIvaInt
   PrWIN TX_NP,    TeCol9,1       ,"N",@TIvaNor
   PrWIN TX_NP,    TeCol10,1      ,"N",@TIsent
   PrWIN TX_NP,    TeCol11,1      ,"N",@TTabaco
   PrWIN TX_NP,    TeCol12,1      ,"N",@TCombust
end if

if MemTxt$(50)="D" then                                         'ultima pagina - descontos 
   if @MoeAbrv<>"EUR" then
      PrWIN TX_CTR,   TeCol2,5,TeCol5,5,"Total Geral em Euro:"
      PrWIN TX_NP,    TeCol6 ,5      ,"N",@TgEVliq
      PrWIN TX_NP,    TeCol7 ,5      ,"N",@TgEIvaRes
      PrWIN TX_NP,    TeCol8 ,5      ,"N",@TgEIvaInt
      PrWIN TX_NP,    TeCol9 ,5      ,"N",@TgEIvaNor
      PrWIN TX_NP,    TeCol10,5      ,"N",@TgEIsent
      PrWIN TX_NP,    TeCol11,5      ,"N",@TgETabaco
      PrWIN TX_NP,    TeCol12,5      ,"N",@TgEComb
   else
      PrWIN TX_CTR,   TeCol2,5,TeCol5,5,"Total Geral em "+memp$
      PrWIN TX_NP,    TeCol6 ,5      ,"N",@TgVliq
      PrWIN TX_NP,    TeCol7 ,5      ,"N",@TgIvaRes
      PrWIN TX_NP,    TeCol8 ,5      ,"N",@TgIvaInt
      PrWIN TX_NP,    TeCol9 ,5      ,"N",@TgIvaNor
      PrWIN TX_NP,    TeCol10,5      ,"N",@TgIsent
      PrWIN TX_NP,    TeCol11,5      ,"N",@TgTabaco
      PrWIN TX_NP,    TeCol12,5      ,"N",@TgComb
   end if
end if

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


SUB ModG2_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=185
Cmax=TCol13

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

PrWIN GR_CX, Tcol1 ,   0, Tcol5 ,  9            'texto Total em Euro
PrWIN GR_CX, Tcol5 ,   0, Tcol6 ,  9            'caixa valor liquido (taxa reduzida)
PrWIN GR_CX, Tcol6 ,   0, Tcol7 ,  9            'caixa imposto (taxa reduzida)
PrWIN GR_CX, Tcol7 ,   0, Tcol8 ,  9            'caixa valor liquido (taxa intermedia)
PrWIN GR_CX, Tcol8 ,   0, Tcol9 ,  9            'caixa imposto (taxa intermedia)
PrWIN GR_CX, Tcol9 ,   0, Tcol10,  9            'caixa valor liquido (taxa normal)
PrWIN GR_CX, Tcol10,   0, Tcol11,  9            'caixa imposto (taxa normal)
PrWIN GR_CX, Tcol11,   0, Tcol12,  9            'caixa isentas (bens exportacao)
PrWIN GR_CX, Tcol12,   0, Tcol13,  9            'caixa outras (sem direito a dedução)

TeCol1 =  1
TeCol2 = 11
TeCol3 = 18
TeCol4 = 31
TeCol5 = 46
TeCol6 = 61
TeCol7 = 81
TeCol8 = 96
TeCol9 =111
TeCol10=131
TeCol11=151
TeCol12=171
TeCol13=185
Cmax=TeCol13

memp$=@MoeEmp
PrWIN COR_T,    CorLin                        'cor de valores
PrWIN TX_CTR,   TeCol1,Lin1,TeCol5,Lin1,"Total IVA à Taxa Normal"
PrWIN TX_NP,    TeCol6 ,1      ,"N",@IvaNorLiq
PrWIN TX_NP,    TeCol9 ,1      ,"N",@IvaNorImp


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

PrWIN COR_T,    CorLin                        'cor de valores
PrWIN TX_CTR,   TeCol1 ,Lin1,TeCol5,Lin1,"(*) Total IVA por conta do adquirente"
PrWIN TX_NP,    TeCol6 ,1      ,"N",@IvaPcaLiq
PrWIN TX_NP,    TeCol9 ,1      ,"N",@IvaPcaImp

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

PrWIN GR_CX, Tcol1 ,   0, Tcol5 ,  5            'texto Total em Euro
PrWIN GR_CX, Tcol5 ,   0, Tcol6 ,  5            'caixa valor liquido (taxa reduzida)
PrWIN GR_CX, Tcol6 ,   0, Tcol7 ,  5            'caixa imposto (taxa reduzida)
PrWIN GR_CX, Tcol7 ,   0, Tcol8 ,  5            'caixa valor liquido (taxa intermedia)
PrWIN GR_CX, Tcol8 ,   0, Tcol9 ,  5            'caixa imposto (taxa intermedia)
PrWIN GR_CX, Tcol9 ,   0, Tcol10,  5            'caixa valor liquido (taxa normal)
PrWIN GR_CX, Tcol10,   0, Tcol11,  5            'caixa imposto (taxa normal)
PrWIN GR_CX, Tcol11,   0, Tcol12,  5            'caixa isentas (bens exportacao)
PrWIN GR_CX, Tcol12,   0, Tcol13,  5            'caixa outras (sem direito a dedução)


if @MoeAbrv<>"EUR" then
   PrWIN TX_CTR,   TeCol2,Lin1,TeCol5,Lin1,"Total em Euro"
   PrWIN TX_NP,    TeCol6 ,1      ,"N",@TEVliq
   PrWIN TX_NP,    TeCol7 ,1      ,"N",@TEIvaRes
   PrWIN TX_NP,    TeCol8 ,1      ,"N",@TEIvaInt
   PrWIN TX_NP,    TeCol9 ,1      ,"N",@TEIvaNor
   PrWIN TX_NP,    TeCol10,1      ,"N",@TEIsent
   PrWIN TX_NP,    TeCol11,1      ,"N",@TETabaco
   PrWIN TX_NP,    TeCol12,1      ,"N",@TECombust
else
   PrWIN TX_CTR,   TeCol2,Lin1,TeCol5,Lin1,"Total em "+memp$
   PrWIN TX_NP,    TeCol6,1       ,"N",@TVliq
   PrWIN TX_NP,    TeCol7,1       ,"N",@TIvaRes
   PrWIN TX_NP,    TeCol8,1       ,"N",@TIvaInt
   PrWIN TX_NP,    TeCol9,1       ,"N",@TIvaNor
   PrWIN TX_NP,    TeCol10,1      ,"N",@TIsent
   PrWIN TX_NP,    TeCol11,1      ,"N",@TTabaco
   PrWIN TX_NP,    TeCol12,1      ,"N",@TCombust
end if

if MemTxt$(50)="D" then                                         'ultima pagina - descontos 
   if @MoeAbrv<>"EUR" then
      PrWIN TX_CTR,   TeCol2,5,TeCol5,5,"Total Geral em Euro:"
      PrWIN TX_NP,    TeCol6 ,5      ,"N",@TgEVliq
      PrWIN TX_NP,    TeCol7 ,5      ,"N",@TgEIvaRes
      PrWIN TX_NP,    TeCol8 ,5      ,"N",@TgEIvaInt
      PrWIN TX_NP,    TeCol9 ,5      ,"N",@TgEIvaNor
      PrWIN TX_NP,    TeCol10,5      ,"N",@TgEIsent
      PrWIN TX_NP,    TeCol11,5      ,"N",@TgETabaco
      PrWIN TX_NP,    TeCol12,5      ,"N",@TgEComb
   else
      PrWIN TX_CTR,   TeCol2,5,TeCol5,5,"Total Geral em "+memp$
      PrWIN TX_NP,    TeCol6 ,5      ,"N",@TgVliq
      PrWIN TX_NP,    TeCol7 ,5      ,"N",@TgIvaRes
      PrWIN TX_NP,    TeCol8 ,5      ,"N",@TgIvaInt
      PrWIN TX_NP,    TeCol9 ,5      ,"N",@TgIvaNor
      PrWIN TX_NP,    TeCol10,5      ,"N",@TgIsent
      PrWIN TX_NP,    TeCol11,5      ,"N",@TgTabaco
      PrWIN TX_NP,    TeCol12,5      ,"N",@TgComb
   end if
end if

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
##
