'Nome       : Vendas.std
'Tipo       : LST
'Data       : 2010/05/19
'Versao     : 4.1
'Descricao  : Listagem de modelos de vendas


'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 4.1  2010/??/?? ---------------------------------------------------
'Correcao na margem da listagem de prestacao de servicos

'- Versao : 4.0  2007/11/05 ---------------------------------------------------
'Listagem do IVA por conta do adquirente (texto e grafica)

'- Versao : 3.1  2007/09/11 ---------------------------------------------------
'Correcoes no modo grafico

'- Versao : 3.0  2006/09/14 ---------------------------------------------------
'modo grafico

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

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

'- Versao : 1.2  2000/06/07 ---------------------------------------------------
'alterar coluna de impressao dos codigos de IVA isentos e outros

'- 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]=MODELO
Nome                       [DocNom]=MOD3,Mercadorias (Mod 3)

'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=03
Titulo da listagem         [DocEsp]=TIT=Venda de Mercadorias
Descricao do modelo        [DocEsp]=Tit2=Modelo 3
Configuracao de colunas    [DocEsp]=COL=IvaLnc$.VLD.RED;+
                                       +IvaLnc$.IVA.RED;+ 
                                       +IvaLnc$.VLD.INT;+ 
                                       +IvaLnc$.IVA.INT;+ 
                                       +IvaLnc$.VLD.NOR;+ 
                                       +IvaLnc$.IVA.NOR;+ 
                                       +IvaLnc$.VLD.ISE;+ 
                                       +IvaLnc$.VLD.NUL,SDD,OUT,AUT;+ 
'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]=MOD4,Produtos Acabados (Mod 4)

'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=04
Titulo da listagem         [DocEsp]=TIT=Venda de Produtos Acabados
Descricao do modelo        [DocEsp]=Tit2=Modelo 4
Configuracao de colunas    [DocEsp]=COL=IvaLnc$.VLD.RED;+
                                       +IvaLnc$.IVA.RED;+ 
                                       +IvaLnc$.VLD.INT;+ 
                                       +IvaLnc$.IVA.INT;+ 
                                       +IvaLnc$.VLD.NOR;+ 
                                       +IvaLnc$.IVA.NOR;+ 
                                       +IvaLnc$.VLD.ISE;+ 
                                       +IvaLnc$.VLD.NUL,SDD,OUT,AUT;+
'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]=MOD5,Prestação Serviços (Mod 5)

'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=05
Titulo da listagem         [DocEsp]=TIT=Prestacao de Serviços
Descricao do modelo        [DocEsp]=Tit2=Modelo 5
Configuracao de colunas    [DocEsp]=COL=IvaLnc$.VLD.RED;+
                                       +IvaLnc$.IVA.RED;+ 
                                       +IvaLnc$.VLD.INT;+ 
                                       +IvaLnc$.IVA.INT;+ 
                                       +IvaLnc$.VLD.NOR,PCA;+ 
                                       +IvaLnc$.IVA.NOR,PCA;+ 
                                       +IvaLnc$.VLD.ISE;+ 
                                       +IvaLnc$.VLD.NUL,SDD,OUT,AUT;+
'funcoes de listagem
Listar cabecalho            [FxCAB]=Mod_Cab
Listar linhas               [FxLIN]=Mod_Lin
Listar fim                  [FxFIM]=Mod5_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=MODELO
Nome                       [DocNom]=MOD8,Prestação Serviços (Liberais)

'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=08
Titulo da listagem         [DocEsp]=TIT=Prestacao Servicos (Liberais)
Descricao do modelo        [DocEsp]=Tit2=Modelo 8
Configuracao de colunas    [DocEsp]=COL=IvaLnc$.VLD.RED;+
                                       +IvaLnc$.IVA.RED;+ 
                                       +IvaLnc$.VLD.INT;+ 
                                       +IvaLnc$.IVA.INT;+ 
                                       +IvaLnc$.VLD.NOR;+ 
                                       +IvaLnc$.IVA.NOR;+ 
                                       +IvaLnc$.VLD.ISE;+ 
                                       +IvaLnc$.VLD.NUL,SDD,OUT,AUT;+
'funcoes de listagem
Listar cabecalho            [FxCAB]=Mod_Cab
Listar linhas               [FxLIN]=Mod_Lin
Listar fim                  [FxFIM]=Mod_Fim
##


'==============================================================================
'Modo Grafico
'==============================================================================
'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=MODELO
Nome                       [DocNom]=MOD3_G,Mercadorias (Mod 3) (G)

'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=03
Titulo da listagem         [DocEsp]=TIT=Venda de Mercadorias
Descricao do modelo        [DocEsp]=Tit2=Modelo 3
Configuracao de colunas    [DocEsp]=COL=IvaLnc$.VLD.RED;+
                                       +IvaLnc$.IVA.RED;+ 
                                       +IvaLnc$.VLD.INT;+ 
                                       +IvaLnc$.IVA.INT;+ 
                                       +IvaLnc$.VLD.NOR;+ 
                                       +IvaLnc$.IVA.NOR;+ 
                                       +IvaLnc$.VLD.ISE;+ 
                                       +IvaLnc$.VLD.NUL,SDD,OUT,AUT;+
'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]=MOD4_G,Produtos Acabados (Mod 4) (G)

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=04
Titulo da listagem         [DocEsp]=TIT=Venda de Produtos Acabados
Descricao do modelo        [DocEsp]=Tit2=Modelo 4
Configuracao de colunas    [DocEsp]=COL=IvaLnc$.VLD.RED;+
                                       +IvaLnc$.IVA.RED;+ 
                                       +IvaLnc$.VLD.INT;+ 
                                       +IvaLnc$.IVA.INT;+ 
                                       +IvaLnc$.VLD.NOR;+ 
                                       +IvaLnc$.IVA.NOR;+ 
                                       +IvaLnc$.VLD.ISE;+ 
                                       +IvaLnc$.VLD.NUL,SDD,OUT,AUT;+
'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]=MOD5_G,Prestação Serviços (Mod 5) (G)

'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=05
Titulo da listagem         [DocEsp]=TIT=Prestacao de Serviços
Descricao do modelo        [DocEsp]=Tit2=Modelo 5
Configuracao de colunas    [DocEsp]=COL=IvaLnc$.VLD.RED;+
                                       +IvaLnc$.IVA.RED;+ 
                                       +IvaLnc$.VLD.INT;+ 
                                       +IvaLnc$.IVA.INT;+ 
                                       +IvaLnc$.VLD.NOR,PCA;+ 
                                       +IvaLnc$.IVA.NOR,PCA;+ 
                                       +IvaLnc$.VLD.ISE;+ 
                                       +IvaLnc$.VLD.NUL,SDD,OUT,AUT;+
'funcoes de listagem
Listar cabecalho            [FxCAB]=ModG_Cab
Listar linhas               [FxLIN]=ModG_Lin
Listar fim                  [FxFIM]=ModG5_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=MODELO
Nome                       [DocNom]=MOD8_G,Prestação Serviços (Liberais) (G)

'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=08
Titulo da listagem         [DocEsp]=TIT=Prestacao Servicos (Liberais)
Descricao do modelo        [DocEsp]=Tit2=Modelo 8
Configuracao de colunas    [DocEsp]=COL=IvaLnc$.VLD.RED;+
                                       +IvaLnc$.IVA.RED;+ 
                                       +IvaLnc$.VLD.INT;+ 
                                       +IvaLnc$.IVA.INT;+ 
                                       +IvaLnc$.VLD.NOR;+ 
                                       +IvaLnc$.IVA.NOR;+ 
                                       +IvaLnc$.VLD.ISE;+ 
                                       +IvaLnc$.VLD.NUL,SDD,OUT,AUT;+
'funcoes de listagem
Listar cabecalho            [FxCAB]=ModG_Cab
Listar linhas               [FxLIN]=ModG_Lin
Listar fim                  [FxFIM]=ModG_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$)
Dtl      = FrmVal$(Ctb_Mov_Dtl,44,0)
Descr    = left$(Ctb_Mov_Descr$,7)
ClDc     = FrmNdo$("04",Ctb_Mov_Tdoc$,Ctb_Mov_Ndoc$)

IvaMod   = MemTxt$(30)

'valores calculados
Rliq     = FrmMoe$("",13,MemNum(31))
RImp     = FrmMoe$("",10,MemNum(32))
Iliq     = FrmMoe$("",13,MemNum(33))
IImp     = FrmMoe$("",10,MemNum(34))
Nliq     = FrmMoe$("",13,MemNum(35))
Nimp     = FrmMoe$("",10,MemNum(36))
Isent    = FrmMoe$("",10,MemNum(37))
Outras   = FrmMoe$("",10,MemNum(38))

'Totais
TRliq    = FrmMoe$("",13,Total(RLiq))
TIliq    = FrmMoe$("",13,Total(ILiq))
TNliq    = FrmMoe$("",13,Total(NLiq))
TRImp    = FrmMoe$("",10,Total(RImp))
TIImp    = FrmMoe$("",10,Total(IImp))
TNimp    = FrmMoe$("",10,Total(NImp))
TIsent   = FrmMoe$("",10,Total(Isent))
TOutras  = FrmMoe$("",10,Total(Outras))

'totais em euro
TERliq    = FrmNum$(10.2,MoeCnv("N",Total(RLiq),Ctb_Mov_Moeda,2))
TEILiq    = FrmNum$(10.2,MoeCnv("N",Total(Iliq),Ctb_Mov_Moeda,2))
TENLiq    = FrmNum$(10.2,MoeCnv("N",Total(NLiq),Ctb_Mov_Moeda,2))
TERImp    = FrmNum$(07.2,MoeCnv("N",Total(RImp),Ctb_Mov_Moeda,2))
TEIImp    = FrmNum$(07.2,MoeCnv("N",Total(IImp),Ctb_Mov_Moeda,2))
TENImp    = FrmNum$(07.2,MoeCnv("N",Total(NImp),Ctb_Mov_Moeda,2))
TEIsent   = FrmNum$(07.2,MoeCnv("N",Total(Isent),Ctb_Mov_Moeda,2))
TEOutras  = FrmNum$(07.2,MoeCnv("N",Total(Outras),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 Mod_CabIni
TIvaNorLiq = 0
TIvaNorImp = 0

TIvaPcaLiq = 0
TIvaPcaImp = 0
end sub


SUB Lst_AJT
end sub


SUB Mod_Cab
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                                      | ISENTAS  |  OUTRAS  |
?|  de  |----------|Descric| Cl/Doc.|--------------------------------------------------------------------------|----------|----------|
?|Regist|   Data   |       |        |     TAXA REDUZIDA      |    TAXA INTERMEDIA     |      TAXA NORMAL       |Bens Lista|S/ Direito|
?|      |          |       |        |------------------------|------------------------|------------------------|    I     |     a    |
?|      |          |       |        | Vl. Liquido |  Imposto | Vl. Liquido |  Imposto | Vl. Liquido |  Imposto |Exportacao|  Deducao |
?=====================================================================================================================================
end sub


SUB Mod_Lin
'?|@Reg  |@Dtl      |@Descr |@ClDc   |@Rliq        |@RImp     |@Iliq        |@IImp     |@Nliq        |@NImp     |@Isent    |@Outras   |

if @IvaMod = "PCA" then
TIvaPcaLiq = TIvaPcaLiq + MemNum(35)
TIvaPcaImp = TIvaPcaImp + MemNum(36)
?|@Reg  |@Dtl      |@Descr |@ClDc   |@Rliq        |@RImp     |@Iliq        |@IImp     |@Nliq        *@NImp     *@Isent    |@Outras   |
else
TIvaNorLiq = TIvaNorLiq + MemNum(35)
TIvaNorImp = TIvaNorImp + MemNum(36)
?|@Reg  |@Dtl      |@Descr |@ClDc   |@Rliq        |@RImp     |@Iliq        |@IImp     |@Nliq        |@NImp     |@Isent    |@Outras   |
end if
end sub


Sub Mod_Fim
?=====================================================================================================================================
?|   Totais em @MoeEmp              |@TRliq       |@TRImp    |@TIliq       |@TIImp    |@TNliq       |@TNImp    |@TIsent   |@TOutras  |
if @MoeAbrv<>"EUR" then
?|   Totais em Euro                 |@TERliq      |@TERImp   |@TEIliq      |@TEIImp   |@TENliq      |@TENImp   |@TEIsent  |@TEOutras |
end if
?=====================================================================================================================================

if @ST = "ST" then
?
else
FxDiv LstPer,SP
end if

end sub


Sub Mod5_Fim
?=====================================================================================================================================
?|     Total IVA a Taxa Normal:                   |          |             |          |@IvaNorLiq   |@IvaNorImp|          |          |
?-------------------------------------------------------------------------------------------------------------------------------------
?| (*) Total IVA por conta do adquirente:         |          |             |          |@IvaPcaLiq   |@IvaPcaImp|          |          |
?=====================================================================================================================================
?|   Totais em @MoeEmp              |@TRliq       |@TRImp    |@TIliq       |@TIImp    |@TNliq       |@TNImp    |@TIsent   |@TOutras  |
if @MoeAbrv<>"EUR" then
?|   Totais em Euro                 |@TERliq      |@TERImp   |@TEIliq      |@TEIImp   |@TENliq      |@TENImp   |@TEIsent  |@TEOutras |
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


SUB ModG_CabIni
TIvaNorLiq = 0
TIvaNorImp = 0

TIvaPcaLiq = 0
TIvaPcaImp = 0

Margem = Margem - 5                     'ajuste de margem
end sub


'-------------------------------------------------------------------------------------------------------------------------
'- Modelos (Vendas) - Modo gráfico
'-------------------------------------------------------------------------------------------------------------------------
SUB ModG_Cab 'Modelos (vendas) - cabecalho (modo grafico)
Call SigLstCab
Lin1=1                         		'linha 1
Lin2=6                                  'linha 2
Lin3=11                                 'linha 3
esp=30 

TCol1 =  0
TCol2 = 10
TCol3 = 18
TCol4 = 25
TCol5 = 45
TCol6 = 60
TCol7 = 80
TCol8 = 95
TCol9 =115
TCol10=130
TCol11=150
TCol12=165
TCol13=180
TCol14=195
Cmax=TCol14

'TCol1 =  0
'TCol2 = Tcol1 + 05
'TCol3 = Tcol2 + 08
'TCol4 = Tcol3 + 07
'TCol5 = Tcol4 + 20
'TCol6 = Tcol5 + 15
'TCol7 = Tcol6 + 20
'TCol8 = Tcol7 + 15
'TCol9 = Tcol8 + 20
'TCol10= Tcol9 + 15
'TCol11= Tcol10+ 15
'TCol12= Tcol11+ 15
'TCol13= Tcol12+ 15
'TCol14= Tcol13+ 15
'Cmax=TCol14

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,15                     'caixa geral
PrWIN GR_CX, Tcol2 , 0, Tcol4 ,15               'caixa superior documento
PrWIN GR_CX, Tcol2 , 5, Tcol4 ,15               'caixa inferior documento
PrWIN GR_CX, Tcol4 , 0, Tcol5 ,15               'caixa descricao
PrWIN GR_CX, Tcol5 , 0, Tcol6 ,15               'caixa documento
PrWIN GR_CX, Tcol6 , 0, TCol12, 5               'caixa Vendas sujeitas a imposto
PrWIN GR_CX, Tcol6 , 5, TCol8 ,10               'caixa Vendas - taxa reduzida
PrWIN GR_CX, Tcol6 ,10, TCol7 ,15               'caixa Vendas - taxa reduzida - valor liquido
PrWIN GR_CX, Tcol7 ,10, Tcol8 ,15               'caixa Vendas - taxa reduzida - imposto
PrWIN GR_CX, Tcol8 , 5, TCol10,10               'caixa Vendas - taxa intermedia
PrWIN GR_CX, Tcol8 ,10, TCol9 ,15               'caixa Vendas - taxa intermedia - valor liquido
PrWIN GR_CX, Tcol9 ,10, Tcol10 ,15              'caixa Vendas - taxa intermedia - imposto
PrWIN GR_CX, Tcol10, 5, TCol12,10               'caixa Vendas - taxa normal
PrWIN GR_CX, Tcol10,10, TCol11,15               'caixa Vendas - taxa normal - valor liquido
PrWIN GR_CX, Tcol11,10, Tcol12,15               'caixa Vendas - taxa normal - imposto
PrWIN GR_CX, Tcol12, 0, Tcol13, 5               'isentos
PrWIN GR_CX, Tcol12, 5, Tcol13,15               'bens lista I exportacao
PrWIN GR_CX, Tcol13, 0, Tcol14, 5               'outras
PrWIN GR_CX, Tcol13, 5, Tcol14,15               'sem direito a dedução

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,TCol4 ,Lin3,"Data"
PrWIN TX_CTR,  TCol4 ,Lin2,TCol5 ,Lin2,"Descrição"
PrWIN TX_CTR,  TCol5 ,Lin2,TCol6 ,Lin2,"Documento"
PrWIN TX_CTR,  TCol6 ,Lin1,TCol12,Lin1,"VENDAS SUJEITAS A IMPOSTO"
PrWIN TX_CTR,  TCol6 ,Lin2,TCol8 ,Lin2,"TAXA REDUZIDA"
PrWIN TX_CTR,  TCol6 ,Lin3,TCol7 ,Lin3,"Valor Líquido"
PrWIN TX_CTR,  TCol7 ,Lin3,TCol8 ,Lin3,"Imposto"
PrWIN TX_CTR,  TCol8 ,Lin2,TCol10,Lin2,"TAXA INTERMÉDIA"
PrWIN TX_CTR,  TCol8 ,Lin3,TCol9 ,Lin3,"Valor Líquido"
PrWIN TX_CTR,  TCol9 ,Lin3,TCol10,Lin3,"Imposto"
PrWIN TX_CTR,  TCol10,Lin2,TCol12,Lin2,"TAXA NORMAL"
PrWIN TX_CTR,  TCol10,Lin3,TCol11,Lin3,"Valor Líquido"
PrWIN TX_CTR,  TCol11,Lin3,TCol12,Lin3,"Imposto"
PrWIN TX_CTR,  TCol12,Lin1,TCol13,Lin1,"ISENTAS"
PrWIN TX_CTR,  TCol12,Lin2,TCol13,Lin2,"Bens Lista I."
PrWIN TX_CTR,  TCol12,Lin3,TCol13,Lin3,"Exportação"
PrWIN TX_CTR,  TCol13,Lin1,TCol14,Lin1,"OUTRAS"
PrWIN TX_CTR,  TCol13,Lin2,TCol14,Lin2,"Sem direito a"
PrWIN TX_CTR,  TCol13,Lin3,TCol14,Lin3,"Dedução"

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


SUB ModG_Lin 'modelos (vendas) - linha (modo grafico)
LCol1 =  1
LCol2 = 12
LCol3 = 30
LCol4 = 53
LCol5 = 62
LCol6 = 81
LCol7 = 97
LCol8 =116
LCol9 =132
LCol10=151
LCol11=166
LCol12=181
Cmax=LCol14

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

if @IvaMod = "PCA" then
   TIvaPcaLiq = TIvaPcaLiq + MemNum(35)
   TIvaPcaImp = TIvaPcaImp + MemNum(36)

   PrWIN COR_T,    CorLin
   PrWIN TX_N,     LCol1 ,0          ,@Reg
   PrWIN TX_N,     LCol2 ,0          ,@Dtl
   PrWIN TX_N,     LCol3 ,0          ,@Descr
   PrWIN TX_N,     LCol4 ,0          ,@ClDc
   PrWIN TX_NP,    LCol5 ,0      ,"N",@Rliq
   PrWIN TX_NP,    LCol6 ,0      ,"N",@RImp
   PrWIN TX_NP,    LCol7 ,0      ,"N",@Iliq
   PrWIN TX_NP,    LCol8 ,0      ,"N",@IImp
   PrWIN TX_NP,    LCol9 ,0      ,"N",@Nliq
   PrWIN TX_N,LCol10-1.5 ,0          ,"*"
   PrWIN TX_NP,    LCol10,0      ,"N",@Nimp
   PrWIN TX_N,LCol11-1.5 ,0          ,"*"
   PrWIN TX_NP,    LCol11,0      ,"N",@Isent
   PrWIN TX_NP,    LCol12,0      ,"N",@Outras
else
   TIvaNorLiq = TIvaNorLiq + MemNum(35)
   TIvaNorImp = TIvaNorImp + MemNum(36)

   PrWIN COR_T,    CorLin
   PrWIN TX_N,     LCol1 ,0          ,@Reg
   PrWIN TX_N,     LCol2 ,0          ,@Dtl
   PrWIN TX_N,     LCol3 ,0          ,@Descr
   PrWIN TX_N,     LCol4 ,0          ,@ClDc
   PrWIN TX_NP,    LCol5 ,0      ,"N",@Rliq
   PrWIN TX_NP,    LCol6 ,0      ,"N",@RImp
   PrWIN TX_NP,    LCol7 ,0      ,"N",@Iliq
   PrWIN TX_NP,    LCol8 ,0      ,"N",@IImp
   PrWIN TX_NP,    LCol9 ,0      ,"N",@Nliq
   PrWIN TX_NP,    LCol10,0      ,"N",@Nimp
   PrWIN TX_NP,    LCol11,0      ,"N",@Isent
   PrWIN TX_NP,    LCol12,0      ,"N",@Outras
end if
end sub


SUB ModG_Fim 'modelo 5 (vendas)- final (modo grafico)
TCol1 =  0
TCol2 = 10
TCol3 = 18
TCol4 = 25
TCol5 = 45
TCol6 = 60
TCol7 = 80
TCol8 = 95
TCol9 =115
TCol10=130
TCol11=150
TCol12=165
TCol13=180
TCol14=195
Cmax=TCol14

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,  0, 0, Cmax,5                      'caixa geral
PrWIN GR_CX, Tcol6 , 0, TCol7 ,5                'caixa Vendas - taxa reduzida - valor liquido
PrWIN GR_CX, Tcol7 , 0, Tcol8 ,5                'caixa Vendas - taxa reduzida - imposto
PrWIN GR_CX, Tcol8 , 0, TCol10,5                'caixa Vendas - taxa intermedia
PrWIN GR_CX, Tcol8 , 0, TCol9 ,5                'caixa Vendas - taxa intermedia - valor liquido
PrWIN GR_CX, Tcol9 , 0, Tcol10,5                'caixa Vendas - taxa intermedia - imposto
PrWIN GR_CX, Tcol10, 0, TCol12,5                'caixa Vendas - taxa normal
PrWIN GR_CX, Tcol10, 0, TCol11,5                'caixa Vendas - taxa normal - valor liquido
PrWIN GR_CX, Tcol11, 0, Tcol12,5                'caixa Vendas - taxa normal - imposto
PrWIN GR_CX, Tcol12, 0, Tcol13,5                'isentos
PrWIN GR_CX, Tcol13, 0, Tcol14,5                'outras

TeCol1 =  1
TeCol5 = 62
TeCol6 = 81
TeCol7 = 97
TeCol8 =116
TeCol9 =132
TeCol10=151
TeCol11=166
TeCol12=181
Cmax=TeCol12

memp$=@MoeEmp
PrWIN TX_CTR,   TeCol1,Lin1,TeCol5,Lin1,"Total em Euro:"
PrWIN TX_NP,    TeCol5 ,1      ,"N",@TRliq
PrWIN TX_NP,    TeCol6 ,1      ,"N",@TRImp
PrWIN TX_NP,    TeCol7 ,1      ,"N",@TIliq
PrWIN TX_NP,    TeCol8 ,1      ,"N",@TIImp
PrWIN TX_NP,    TeCol9 ,1      ,"N",@TNliq
PrWIN TX_NP,    TeCol10,1      ,"N",@TNImp
PrWIN TX_NP,    TeCol11,1      ,"N",@TIsent
PrWIN TX_NP,    TeCol12,1      ,"N",@TOutras

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


SUB ModG5_Fim 'modelo 5 (vendas - prestacao de serviços)- final (modo grafico)
TCol1 =  0
TCol2 = 10
TCol3 = 18
TCol4 = 25
TCol5 = 45
TCol6 = 60
TCol7 = 80
TCol8 = 95
TCol9 =115
TCol10=130
TCol11=150
TCol12=165
TCol13=180
TCol14=195
Cmax=TCol14

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,  0, 0, Cmax,5                      'caixa geral
PrWIN GR_CX, Tcol6 , 0, TCol7 ,5                'caixa Vendas - taxa reduzida - valor liquido
PrWIN GR_CX, Tcol7 , 0, Tcol8 ,5                'caixa Vendas - taxa reduzida - imposto
PrWIN GR_CX, Tcol8 , 0, TCol10,5                'caixa Vendas - taxa intermedia
PrWIN GR_CX, Tcol8 , 0, TCol9 ,5                'caixa Vendas - taxa intermedia - valor liquido
PrWIN GR_CX, Tcol9 , 0, Tcol10,5                'caixa Vendas - taxa intermedia - imposto
PrWIN GR_CX, Tcol10, 0, TCol12,5                'caixa Vendas - taxa normal
PrWIN GR_CX, Tcol10, 0, TCol11,5                'caixa Vendas - taxa normal - valor liquido
PrWIN GR_CX, Tcol11, 0, Tcol12,5                'caixa Vendas - taxa normal - imposto
PrWIN GR_CX, Tcol12, 0, Tcol13,5                'isentos
PrWIN GR_CX, Tcol13, 0, Tcol14,5                'outras

TeCol1 =  1
TeCol5 = 62
TeCol6 = 81
TeCol7 = 97
TeCol8 =116
TeCol9 =132
TeCol10=151
TeCol11=166
TeCol12=181
Cmax=TeCol12

memp$=@MoeEmp
PrWIN TX_CTR,   TeCol1,Lin1,TeCol5,Lin1,"Total IVA à Taxa Normal:"
PrWIN TX_NP,    TeCol9 ,1      ,"N",@IvaNorLiq
PrWIN TX_NP,    TeCol10,1      ,"N",@IvaNorImp

PrWIN AJT_B,Margem,FimDoc                       'posicao base
PrWIN GR_CX,  0, 0, Tcol14,5                    'caixa geral
PrWIN GR_CX, Tcol6 , 0, TCol7 ,5                'caixa Vendas - taxa reduzida - valor liquido
PrWIN GR_CX, Tcol7 , 0, Tcol8 ,5                'caixa Vendas - taxa reduzida - imposto
PrWIN GR_CX, Tcol8 , 0, TCol10,5                'caixa Vendas - taxa intermedia
PrWIN GR_CX, Tcol8 , 0, TCol9 ,5                'caixa Vendas - taxa intermedia - valor liquido
PrWIN GR_CX, Tcol9 , 0, Tcol10,5                'caixa Vendas - taxa intermedia - imposto
PrWIN GR_CX, Tcol10, 0, TCol11,5                'caixa Vendas - taxa normal - valor liquido
PrWIN GR_CX, Tcol11, 0, Tcol12,5                'caixa Vendas - taxa normal - imposto
PrWIN GR_CX, Tcol12, 0, Tcol13,5                'isentos
PrWIN GR_CX, Tcol13, 0, Tcol14,5                'outras

PrWIN TX_CTR,   TeCol1,Lin1,TeCol5,Lin1,"(*) Total IVA por conta adquirente:"
PrWIN TX_NP,    TeCol9 ,1      ,"N",@IvaPcaLiq
PrWIN TX_NP,    TeCol10,1      ,"N",@IvaPcaImp

PrWIN AJT_B,Margem,FimDoc+5                     'posicao base
PrWIN GR_CX,  0, 0, Tcol14,5                    'caixa geral
PrWIN GR_CX, Tcol6 , 0, TCol7 ,5                'caixa Vendas - taxa reduzida - valor liquido
PrWIN GR_CX, Tcol7 , 0, Tcol8 ,5                'caixa Vendas - taxa reduzida - imposto
PrWIN GR_CX, Tcol8 , 0, TCol10,5                'caixa Vendas - taxa intermedia
PrWIN GR_CX, Tcol8 , 0, TCol9 ,5                'caixa Vendas - taxa intermedia - valor liquido
PrWIN GR_CX, Tcol9 , 0, Tcol10,5                'caixa Vendas - taxa intermedia - imposto
PrWIN GR_CX, Tcol10, 0, TCol12,5                'caixa Vendas - taxa normal
PrWIN GR_CX, Tcol10, 0, TCol11,5                'caixa Vendas - taxa normal - valor liquido
PrWIN GR_CX, Tcol11, 0, Tcol12,5                'caixa Vendas - taxa normal - imposto
PrWIN GR_CX, Tcol12, 0, Tcol13,5                'isentos
PrWIN GR_CX, Tcol13, 0, Tcol14,5                'outras

PrWIN GR_CX,  0, 0, Tcol14,5                    'caixa geral
PrWIN TX_CTR,   TeCol1,Lin1,TeCol5,Lin1,"Total em Euro:"
PrWIN TX_NP,    TeCol5 ,1      ,"N",@TRliq
PrWIN TX_NP,    TeCol6 ,1      ,"N",@TRImp
PrWIN TX_NP,    TeCol7 ,1      ,"N",@TIliq
PrWIN TX_NP,    TeCol8 ,1      ,"N",@TIImp
PrWIN TX_NP,    TeCol9 ,1      ,"N",@TNliq
PrWIN TX_NP,    TeCol10,1      ,"N",@TNImp
PrWIN TX_NP,    TeCol11,1      ,"N",@TIsent
PrWIN TX_NP,    TeCol12,1      ,"N",@TOutras

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