'Nome       : ENCMPV_G.STD
'Tipo       : LST
'Data       : 2005/01/31
'Versao     : 1.7
'Descricao  : Listagem de Encomendas (Mapas de Vendas) Modo Gráfico

'-----------------------------------------------------------------------------
' Modificacoes
'-----------------------------------------------------------------------------
'- Versao : 1.0  2000/09/28 -------------------------------------------------
'Versao base

'- Versao : 1.1   2000/10/12 -------------------------------------------------
'Mapa de vendas - correcao no liquido dos recibos

'- Versao : 1.1a  2000/11/29 -------------------------------------------------
'Mapa de vendas com quantidades - nao mostrava a coluna de medidas
'Mapa de vendas com quantidades - correcao nos valores

'- Versao : 1.2   2001/10/19 -------------------------------------------------
'Mostrar valores de IVA isento

'- Versao : 1.5  2002/05/14 -------------------------------------------------
'Mapa de IVA para iva normal e iva incluido

'- Versao : 1.6  2003/03/13 -------------------------------------------------
'Alteracao nos ficheiros a usar de inclusoes
'No mapa de IVA, listar titulos consoante 1 documento
'Mostrar pais listado 
'Mostrar titulos diferentes quando executa listagens de fornecedor

'- Versao : 1.7  2005/??/?? -------------------------------------------------
'Criar variavel para definir fim do documento


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


'-----------------------------------------------------------------------------
' Campos especificos
'-----------------------------------------------------------------------------
#ESP
Zoom para preview             [PrvZoom]=1.5
Opcoes para impressora WIN   [PrWinOpc]=[ORI=P]
##



'-----------------------------------------------------------------------------
' Configuracao do documento
'-----------------------------------------------------------------------------
#DOC
Tipo                       [DocTip]=EncMpv
Nome                       [DocNom]=EncMpv_G,Mapa de Vendas

'formato
'Saida/Impressora           [DocPrt]=PAG_W,PRV
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=55
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Titulo para fornecedores   [DocEsp]=TIT_GCOF=Mapa de Compras


'funcoes de listagem
Listar cabecalho            [FxCAB]=EncMpv_Cab
Listar linhas               [FxLIN]=EncMpv_Lin
Listar fim                  [FxFIM]=EncMpv_Fim
##


#DOC
Tipo                       [DocTip]=EncMpvQu
Nome                       [DocNom]=EncMpvQu_G,Mapa de Vendas+Quant.

'formato
'Saida/Impressora           [DocPrt]=PAG_W,PRV
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Titulo para fornecedores   [DocEsp]=TIT_GCOF=Mapa de Compras+Quant.


'funcoes de listagem
Listar cabecalho            [FxCAB]=EncMpvQu_Cab
Listar linhas               [FxLIN]=EncMpvQu_Lin
Listar fim                  [FxFIM]=EncMpvQu_Fim
##


#DOC
Tipo                       [DocTip]=ResVnd
Nome                       [DocNom]=ResVnd_G,Resumo de Vendas


'formato
'Saida/Impressora           [DocPrt]=PAG_W,PRV
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Titulo para fornecedores   [DocEsp]=TIT_GCOF=Resumo de Compras


'funcoes de listagem
Listar cabecalho            [FxCAB]=ResVnd_Cab
Listar linhas               [FxLIN]=ResVnd_Lin ; Tit,2 ; St,2
Listar fim                  [FxFIM]=ResVnd_Fim
##


#DOC
Tipo                       [DocTip]=MapIva
Nome                       [DocNom]=MapIva_G,Mapa de Iva

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

'funcoes de listagem
Listar cabecalho            [FxCAB]=MapIva_Cab
Listar linhas               [FxLIN]=MapIvaN_Lin,2
Listar fim                  [FxFIM]=MapIvaN_Fim
##


#DOC
Tipo                       [DocTip]=MapIva
Nome                       [DocNom]=MapIvaI_G,Mapa de Iva Incluido

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

'funcoes de listagem
Listar cabecalho            [FxCAB]=MapIva_Cab
Listar linhas               [FxLIN]=MapIvaI_Lin,2
Listar fim                  [FxFIM]=MapIvaI_Fim
##


#DOC
Tipo                       [DocTip]=MpvComVndD
Nome                       [DocNom]=MpvComVndI_G,Comissoes de Vendedor (I)

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

'funcoes de listagem
Listar cabecalho            [FxCAB]=MpComVnd_Cab
Listar linhas               [FxLIN]=MpComVnd_Lin ; Tit,3 ; St,2 ; IdeTot,3 ; Tot ; TotInf
Listar ajuste para fim      [FxAJT]=
Listar fim                  [FxFIM]=MpComVnd_Fim
##


#DOC
Tipo                       [DocTip]=MpvComVndD
Nome                       [DocNom]=MpComVndD_G,Comissoes de Vendedor (D)

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

'funcoes de listagem
Listar cabecalho            [FxCAB]=MpComVnd_Cab
Listar linhas               [FxLIN]=MpComVnd_Lin; Tit,3 ; St,2 ; IdeTot,3 ; Tot ; TotInf
Listar ajuste para fim      [FxAJT]=
Listar fim                  [FxFIM]=MpComVnd_Fim
##

'-----------------------------------------------------------------------------
' Variaveis
'-----------------------------------------------------------------------------
#VAR
Pag       = Doc_CntPag
Cnt       = FrmVal$(CntAux(1),21,4)
DataExt   = FrmVal$(Sig_DtHoje,45,0)
Tit80     = TxTit$("TT=10CPI, LD, PT=40C",Memtxt$(1))
Tit132    = TxTit$("TT=16CPI, LD, PT=66C",Memtxt$(1))

'mapa de vendas
Ct        = Enc_Mst_Ctent$
Nome      = VarAlt$("ENC_MST","Cta_Mst_Nome$")
Ndoc      = FrmNdo$("",Enc_Mst_Tdoc$,Enc_Mst_Ndoc$)
CmvNdoc   = Enc_Mst_Tdoc$+" "+FrmNdo$("04",Enc_Mst_Tdoc$,Enc_Mst_Ndoc$)
Vd        = FrmVal$(Enc_Mst_Vend,21,2.0)
VendIde   = FrmVal$(Enc_Mst_Vend,21,2.0)+" - "+EmpTabCon$("VEND",Enc_Mst_Vend,"NOME")
DtDoc     = FrmVal$(Enc_Mst_Dtl,42,0)
P         = FrmVal$(Enc_Mst_Ptv,21,2.0)
DocDescr  = Enc_Mst_Descr$

Ilq       = FrmMoe$("",13,MoeCnv("N",Enc_Mst_Ilq,Enc_Mst_Moeda,Emp_Inf_Moeda))
Iva       = FrmMoe$("",13,MoeCnv("I",Ado_Tot_Iva,Enc_Mst_Moeda,Emp_Inf_Moeda))
Desc      = FrmMoe$("",10,MoeCnv("N",Ado_Tot_Desco,Enc_Mst_Moeda,Emp_Inf_Moeda))
'Liq       = FrmMoe$("",16,MoeCnv("N",Ado_Tot_Tot,Enc_Mst_Moeda,Emp_Inf_Moeda))
Liq       = FrmMoe$("",16,MoeCnv("N",Enc_Mst_Ilq+Ado_Tot_Iva-Ado_Tot_Desco,Enc_Mst_Moeda,Emp_Inf_Moeda))

PM        = FrmVal$(Enc_Mst_Pais,21,2.0)+"/"+FrmVal$(Enc_Mst_Moeda,21,1.0)
PV        = FrmVal$(Enc_Mst_Ptv,21,1.0)+"/"+FrmVal$(Enc_Mst_Vend,21,2.0)

Tilq      = FrmMoe$("",14,Total(Ilq),Enc_Mst_Moeda)
Tdesc     = FrmMoe$("",14,Total(Desc),Enc_Mst_Moeda)
Tiva      = FrmMoe$("",14,Total(Iva),Enc_Mst_Moeda)
Tliq      = FrmMoe$("",14,Total(Liq),Enc_Mst_Moeda)


'mapa de vendas+quantidades
Ctrb      = Cta_Mst_Ctrb$
'QuRec1    = FrmVal$(Enc_Mov_Qu,21,8.3)
'QuRec2    = FrmVal$(Enc_Mov_Qu2,21,8.3)
'QuMed     = FrmVal$(Enc_Mov_MedVal,21,8.3)
QuRec1    = FrmVal$(MemNum(32),21,7.3)
QuRec2    = FrmVal$(MemNum(33),21,7.3)
QuMed     = FrmVal$(MemNum(34),21,7.3)

TquRec1   = FrmVal$(Total(QuRec1),21,9.3)
TquRec2   = FrmVal$(Total(QuRec2),21,9.3)
TquMed    = FrmVal$(Total(QuMed),21,9.3)


'Resumo de vendas
Tp        = Enc_Mst_Tdoc$
Cpag      = FrmVal$(Enc_Mst_CpagCod,21,2.0)
CpTxt     = MemTxt$(2)
StDesc    = FrmMoe$("",13,MemNum(10),Enc_Mst_Moeda)
Stot      = FrmMoe$("",13,MemNum(11),Enc_Mst_Moeda)


'Mapa da I.V.A.
'T1        = "Taxa 1 :" + IvaTax(1)+"%"
'T2        = "Taxa 2 :" + IvaTax(2)+"%"
'T3        = "Taxa 3 :" + IvaTax(3)+"%"
'T4        = "Taxa 4 :" + IvaTax(4)+"%"
'T5        = "Taxa 5 :" + IvaTax(5)+"%"
'T6        = "Taxa 6 :" + IvaTax(6)+"%"

IvaT1    = FrmMoe$("",13,IvaVal(0,1))
IvaT2    = FrmMoe$("",13,IvaVal(0,2))
IvaT3    = FrmMoe$("",13,IvaVal(0,3))
IvaT4    = FrmMoe$("",13,IvaVal(0,4))
IvaT5    = FrmMoe$("",13,IvaVal(0,5))
IvaT6    = FrmMoe$("",13,IvaVal(0,6))
IvaT11   = FrmMoe$("",13,IvaVal(1,1))
IvaT12   = FrmMoe$("",13,IvaVal(1,2))
IvaT13   = FrmMoe$("",13,IvaVal(1,3))
IvaT14   = FrmMoe$("",13,IvaVal(1,4))
IvaT15   = FrmMoe$("",13,IvaVal(1,5))
IvaT16   = FrmMoe$("",13,IvaVal(1,6))

IncT1    = FrmMoe$("",13,IvaInc(0,1))
IncT2    = FrmMoe$("",13,IvaInc(0,2))
IncT3    = FrmMoe$("",13,IvaInc(0,3))
IncT4    = FrmMoe$("",13,IvaInc(0,4))
IncT5    = FrmMoe$("",13,IvaInc(0,5))
IncT6    = FrmMoe$("",13,IvaInc(0,6))
IncT11   = FrmMoe$("",13,IvaInc(1,1))
IncT12   = FrmMoe$("",13,IvaInc(1,2))
IncT13   = FrmMoe$("",13,IvaInc(1,3))
IncT14   = FrmMoe$("",13,IvaInc(1,4))
IncT15   = FrmMoe$("",13,IvaInc(1,5))
IncT16   = FrmMoe$("",13,IvaInc(1,6))


TIvaT1   = FrmMoe$("",13,Total(IvaT1))
TIvaT2   = FrmMoe$("",13,Total(IvaT2))
TIvaT3   = FrmMoe$("",13,Total(IvaT3))
TIvaT4   = FrmMoe$("",13,Total(IvaT4))
TIvaT5   = FrmMoe$("",13,Total(IvaT5))
TIvaT6   = FrmMoe$("",13,Total(IvaT6))
TIvaT11  = FrmMoe$("",13,Total(IvaT11))
TIvaT12  = FrmMoe$("",13,Total(IvaT12))
TIvaT13  = FrmMoe$("",13,Total(IvaT13))
TIvaT14  = FrmMoe$("",13,Total(IvaT14))
TIvaT15  = FrmMoe$("",13,Total(IvaT15))
TIvaT16  = FrmMoe$("",13,Total(IvaT16))

TIncT1   = FrmMoe$("",13,Total(IncT1))
TIncT2   = FrmMoe$("",13,Total(IncT2))
TIncT3   = FrmMoe$("",13,Total(IncT3))
TIncT4   = FrmMoe$("",13,Total(IncT4))
TIncT5   = FrmMoe$("",13,Total(IncT5))
TIncT6   = FrmMoe$("",13,Total(IncT6))
TIncT11  = FrmMoe$("",13,Total(IncT11))
TIncT12  = FrmMoe$("",13,Total(IncT12))
TIncT13  = FrmMoe$("",13,Total(IncT13))
TIncT14  = FrmMoe$("",13,Total(IncT14))
TIncT15  = FrmMoe$("",13,Total(IncT15))
TIncT16  = FrmMoe$("",13,Total(IncT16))


Totdoc    = FrmMoe$("",13,Enc_Mst_ValMe,Enc_Mst_Moeda)
TotIva    = FrmMoe$("",13,Doc_Tot_IVA,Enc_Mst_Moeda)
TotIse    = FrmMoe$("",13,Doc_Tot_IVAISE,Enc_Mst_Moeda)

TotDocGer = FrmMoe$("",13,Total(TotDoc),Enc_Mst_Moeda)
TotIvaGer = FrmMoe$("",13,Total(TotIva),Enc_Mst_Moeda)
TotIseGer = FrmMoe$("",13,Total(TotIse),Enc_Mst_Moeda)


'Mapa de Comissoes de Vendedor
DtVenc    = FrmVal$(Enc_Mst_Dtv,42,0)
ValInc    = FrmMoe$("",13,Enc_Mst_ComInc,Enc_Mst_Moeda)
ValCom    = FrmMoe$("",13,Enc_Mst_ComTot,Enc_Mst_Moeda)

StValDoc  = FrmMoe$("",13,Total(TotDoc,1),Enc_Mst_Moeda)
StValInc  = FrmMoe$("",13,Total(ValInc,1),Enc_Mst_Moeda)
StValCom  = FrmMoe$("",13,Total(ValCom,1),Enc_Mst_Moeda)

TValDoc   = FrmMoe$("",13,Total(TotDoc,2),Enc_Mst_Moeda)
TValInc   = FrmMoe$("",13,Total(ValInc,2),Enc_Mst_Moeda)
TValCom   = FrmMoe$("",13,Total(ValCom,2),Enc_Mst_Moeda)

GrpVndIde = MemTxt$(20)
GrpVndVl  = FrmMoe$("",13,MemNum(21),Enc_Mst_Moeda)
GrpVndCmv = FrmMoe$("",13,MemNum(22),Enc_Mst_Moeda)


'Mapa de Extras
TotExt1   = FrmMoe$("",13,Enc_Mst_Ext1),Enc_Mst_Moeda)
TotExt2   = FrmMoe$("",13,Enc_Mst_Ext2),Enc_Mst_Moeda)
TotExt3   = FrmMoe$("",13,Enc_Mst_Ext3),Enc_Mst_Moeda)

TotExt1Ger= FrmMoe$("",13,Total(TotExt1),Enc_Mst_Moeda)
TotExt2Ger= FrmMoe$("",13,Total(TotExt2),Enc_Mst_Moeda)
TotExt3Ger= FrmMoe$("",13,Total(TotExt3),Enc_Mst_Moeda)

PaisNome  = PaisNome$

##

#INC
Variaveis  comuns                 =[SIG_Dir.Div],LsComVar.std
##


'-----------------------------------------------------------------------------
' Programa/Funcoes
'-----------------------------------------------------------------------------
#PGM
SUB FxIni 'funcao de inicializacao
Call SigLstIni
FimDoc=265
End sub



'- Mapa de Vendas -------------------------------------------------------------
SUB EncMpv_Cab
Call EncMpvCab

'posicoes das colunas
Col1=0                  'conta
Col2=20                 'nome
Col3=53                 'documento
Col4=78                 'posto venda/vendedor
Col5=86                 'data
Col6=100                'iliquido
Col7=122                'iva
Col8=148                'desconto
Col9=165                'valor documento
Col10=193               'portes/mao obra
Col11=MargemD
Lin=10

PrWIN COR_T,  CorTitLst                        'cor de titulo
PrWIN FON  ,   9,   1                        	'activar fonte

PrWIN TX_CTR,  Col1,Lin,Col2,Lin,"Conta"
PrWIN TX_CTR,  Col2,Lin,Col3,Lin,"Nome"
PrWIN TX_CTR,  Col3,Lin,Col4,Lin,"Documento"
PrWIN TX_CTR,  Col4,Lin,Col5,Lin,"Pv/Vd"
PrWIN TX_CTR,  Col5,Lin,Col6,Lin,"Data"
PrWIN TX_CTR,  Col6,Lin,Col7,Lin,"Iliquido"
PrWIN TX_CTR,  Col7,Lin,Col8,Lin,"I.V.A."
PrWIN TX_CTR,  Col8,Lin,Col9,Lin,"Desconto"
PrWIN TX_CTR,  Col9,Lin,Col10,Lin,"Valor Documento"
'PrWIN TX_CTR,  Col10,Lin,Col11,Lin,"P/M"

PrWIN FON  ,   8,   1                           'activar fonte
PrWIN COR_T,CorLin                              'cor de linhas
end sub


SUB EncMpv_Lin
PrWIN AJT_B,  Margem, InicioLinha+Doc_CntLin*4          	'posicao base
PrWIN TX_N,     Col1,0,@Ct
PrWIN TX_DMX,   Col2,0,Col3-Col2,@Nome
PrWIN TX_NP,    Col3,0,"N",@Ndoc
PrWIN TX_N,     Col4,0,@Pv
PrWIN TX_N,     Col5,0,@DtDoc
PrWIN TX_NP,    Col6,0,"N",@Ilq
PrWIN TX_NP,    Col7,0,"N",@Iva
PrWIN TX_NP,    Col8,0,"N",@Desc
PrWIN TX_NP,    Col9,0,"N",@Liq
'PrWIN TX_NP,   Col10,0,"N",@Pm
End Sub

SUB EncMpv_Fim
PrWIN AJT_B,Margem,Fimdoc                       'posicao base
PrWIN GR_LI,     0,  0, MargemD, 0            	'linha
PrWIN AJT_B,Margem,fimdoc+2                     'posicao base
PrWIN COR_T,     CorTotGer                      'cor azul
PrWIN FON,       8,  1                          'activar fonte
PrWIN TX_CTR, Col2,  0,Col3,0,"Totais ..."
PrWIN TX_NP,  Col6,  0,"N",@Tilq
PrWIN TX_NP,  Col8,  0,"N",@TDesc
PrWIN TX_NP,  Col7,  3,"N",@Tiva
PrWIN TX_NP,  Col9,  3,"N",@Tliq
PrWIN GR_LI,     0,  7, MargemD, 7            	'linha
call SigLstRod
PrWin FP
End Sub



'- Mapa de Vendas + Quantidades -----------------------------------------------
SUB EncMpvQu_Cab
Call EncMpvCab
'posicoes das colunas
Col1=0                  'conta
Col2=20                 'nome
Col3=55                 'contribuinte
Col4=70                 'documento
Col5=90                 'vend
Col6=95                'data
Col7=105                'total
Col8=130                'quantidade 1
Col9=155                'quantidade 2
Col10=172               'medidas
Col11=MargemD           
Lin=10

PrWIN COR_T,  CorTitLst                        'cor de titulo
PrWIN FON  ,   9,   1                        	'activar fonte

PrWIN TX_CTR,  Col1,Lin,Col2,Lin,"Conta"
PrWIN TX_CTR,  Col2,Lin,Col3,Lin,"Nome"
PrWIN TX_CTR,  Col3,Lin,Col4,Lin,"Contribuinte"
PrWIN TX_CTR,  Col4,Lin,Col5,Lin,"Documento"
PrWIN TX_CTR,  Col5,Lin,Col6,Lin,"Vnd"
PrWIN TX_CTR,  Col6,Lin,Col7,Lin,"Data"
PrWIN TX_CTR,  Col7,Lin,Col8,Lin,"Total"
PrWIN TX_CTR,  Col8,Lin,Col9,Lin,"Qnt 1"
PrWIN TX_CTR,  Col9,Lin,Col10,Lin,"Qnt 2"
PrWIN TX_CTR,  Col10,Lin,Col11,Lin,"Qnt Med"

PrWIN FON  ,   8,   1                           'activar fonte
PrWIN COR_T,CorLin                              'cor de linhas
end sub


SUB EncMpvQu_Lin
PrWIN AJT_B,  Margem, InicioLinha+Doc_CntLin*4          	'posicao base
PrWIN TX_N,     Col1,0,@Ct
PrWIN TX_DMX,   Col2,0,Col3-Col2,@Nome
PrWIN TX_N,     Col3,0,@Ctrb
PrWIN TX_NP,    Col4,0,"N",@Ndoc
PrWIN TX_N,     Col5,0,@Vd
PrWIN TX_N,     Col6,0,@DtDoc
PrWIN TX_NP,    Col7,0,"N",@Liq
PrWIN TX_NP,    Col8,0,"N",@QuRec1
PrWIN TX_NP,    Col9,0,"N",@QuRec2
PrWIN TX_NP,    Col10,0,"N",@QuMed
end sub


SUB EncMpvQu_Fim
PrWIN AJT_B,Margem,FimDoc                       'posicao base
PrWIN GR_LI,     0,  0, MargemD, 0            	'linha
PrWIN AJT_B,Margem,FimDoc             		'posicao base
PrWIN COR_T,     CorTotGer                      'cor azul
PrWIN FON,       8,  1                          'activar fonte
PrWIN TX_CTR, Col2,  0,Col3,0,"Totais ..."
PrWIN TX_NP,  Col7,  0,"N",@Tliq
PrWIN TX_NP,  Col9,  0,"N",@Tqurec2
PrWIN TX_NP,  Col8,  3,"N",@TquRec1
PrWIN TX_NP,  Col10,  3,"N",@TquMed
PrWIN GR_LI,     0,  7, MargemD, 7            	'linha
call SigLstRod
PrWin FP
end sub


'- Resumo de Vendas -----------------------------------------------------------
SUB ResVnd_Cab
Call EncMpvCab

'posicoes das colunas
Col1=0                  'conta
Col2=20                 'nome
Col3=55                 'contribuinte
Col4=70                 'documento
Col5=90                 'vend
Col6=95                 'data
Col7=120                'total
Col8=160                'quantidade 1
Col9=185                'quantidade 2
Col10=200               'medidas
Col11=MargemD           
Lin=10

PrWIN COR_T,  CorTitLst                        'cor de titulo
PrWIN FON  ,   9,   1                        	'activar fonte

PrWIN TX_CTR,  Col1,Lin,Col3,Lin,"Documento"
PrWIN TX_CTR,  Col3,Lin,Col4,Lin,"Vnd.
PrWIN TX_CTR,  Col4,Lin,Col5,Lin,"Data"
PrWIN TX_N,  Col5,Lin,"C.Pagamento"
PrWIN TX_CTR,  Col6,Lin,Col7,Lin,"Desconto
PrWIN TX_CTR,  Col7,Lin,Col8,Lin,"Total"
PrWIN FON  ,   8,   1                           'activar fonte
PrWIN COR_T,CorLin                              'cor de linhas
end sub


SUB ResVnd_LinTit
PrWIN AJT_B,  Margem, InicioLinha+Doc_CntLin*4          	'posicao base
PrWIN GR_LI,     0,  0, MargemD, 0            	'linha
PrWIN TX_N,     Col2,0,@Ct
PrWIN TX_N,     Col3,0,@Nome
end sub


SUB ResVnd_Lin
PrWIN AJT_B,  Margem, InicioLinha+Doc_CntLin*4          	'posicao base
PrWIN TX_N,     Col1,0,@Tp
PrWIN TX_NP,    Col2,0,"N",@Ndoc
PrWIN TX_N,     Col3,0,@Vd
PrWIN TX_N,     Col4,0,@DtDoc
PrWIN TX_N,     Col5,0,@Cpag
PrWIN TX_N,     Col6,0,@CpTxt
PrWIN TX_N,     Col7,0,@Desc
PrWIN TX_NP,    Col8,0,"N",@Liq
end sub


SUB ResVnd_LinSt
PrWIN AJT_B,  Margem, InicioLinha+Doc_CntLin*4          	'posicao base
PrWIN GR_LI,     0,  0, MargemD, 0            	'linha
PrWIN TX_N,     Col3,0,"Sub-Totais ..."
PrWIN TX_NP,    Col7,0,"N",@stDesc
PrWIN TX_NP,    Col8,0,"N",@STot
end sub


SUB ResVnd_Fim
PrWIN AJT_B,Margem,fimdoc                 		'posicao base
PrWIN GR_LI,     0,  0, MargemD, 0            	'linha
PrWIN AJT_B,Margem,fimdoc+2                 		'posicao base
PrWIN COR_T,     CorTotGer                      'cor azul
PrWIN FON,       8,  1                          'activar fonte
PrWIN TX_N,  Col3,   0,"Totais ..."
PrWIN TX_NP,  Col7,  0,"N",@Tdesc
PrWIN TX_NP,  Col8,  0,"N",@Tliq
PrWIN GR_LI,     0,  7, MargemD, 7            	'linha
call SigLstRod
PrWin FP
end sub


'- Mapa de I.V.A. -------------------------------------------------------------
SUB MapIva_Cab
PrWin Cor_F, 15

Call EncMpvCab2L



'posicoes das colunas
inicio=18
esp=22

Col1=0                  'documento
Col2=25                 'data
Col3=inicio+esp         'iva 1
Col4=inicio+esp*2      'iva 2
Col5=inicio+esp*3      'iva 3
Col6=inicio+esp*4      'iva 4
Col7=inicio+esp*5      'iva 5
Col8=inicio+esp*6      'iva 6
Col9=inicio+esp*7      'toais
Col10=MargemD           


Lin=10
Lin2=14

PrWIN COR_T,  CorTitLst                        'cor de titulo
PrWIN FON  ,   9,   1                        	'activar fonte

PrWIN TX_N,    Col1,Lin,"Documento"
PrWIN TX_CTR,  Col2,Lin,Col3,Lin,"Data"
PrWIN TX_N,    Col1,Lin2,"Valores Isentos


PrWIN TX_CTR,  Col3,Lin,Col4,Lin, "Taxa 1: "+ivatax(1)+"%"
PrWIN TX_CTR,  Col4,Lin,Col5,Lin, "Taxa 2: "+ivatax(2)+"%"
PrWIN TX_CTR,  Col5,Lin,Col6,Lin, "Taxa 3: "+ivatax(3)+"%"
PrWIN TX_CTR,  Col6,Lin,Col7,Lin, "Taxa 4: "+ivatax(4)+"%"
PrWIN TX_CTR,  Col7,Lin,Col8,Lin, "Taxa 5: "+ivatax(5)+"%"
PrWIN TX_CTR,  Col8,Lin,Col9,Lin, "Taxa 6: "+ivatax(6)+"%"

PrWIN TX_CTR,  Col3,Lin2,Col4,Lin2,"Incid./Valor"
PrWIN TX_CTR,  Col4,Lin2,Col5,Lin2,"Incid./Valor"
PrWIN TX_CTR,  Col5,Lin2,Col6,Lin2,"Incid./Valor"
PrWIN TX_CTR,  Col6,Lin2,Col7,Lin2,"Incid./Valor"
PrWIN TX_CTR,  Col7,Lin2,Col8,Lin2,"Incid./Valor"
PrWIN TX_CTR,  Col8,Lin2,Col9,Lin2,"Incid./Valor"

PrWIN TX_CTR,  Col9,Lin,Col10,Lin,"Tot.Documento"
PrWIN TX_CTR,  Col9,Lin2,Col10,Lin2,"Total de IVA"

PrWIN FON  ,   8,   1                           'activar fonte
PrWIN COR_T,CorLin                              'cor de linhas
end sub


SUB MapIvaN_Lin
PrWIN AJT_B,  Margem, InicioLinha+Doc_CntLin*4          	'posicao base

PrWIN TX_NP,    Col1,Lin,"N",@Ndoc
PrWIN TX_NP,    Col1,Lin2,"N",@TotIse

PrWIN TX_NP,    Col2,Lin,"N",@DtDoc

PrWIN TX_NP,    Col3,Lin,"N", @IncT1
PrWIN TX_NP,    Col4,Lin,"N", @IncT2
PrWIN TX_NP,    Col5,Lin,"N", @IncT3
PrWIN TX_NP,    Col6,Lin,"N", @IncT4
PrWIN TX_NP,    Col7,Lin,"N", @IncT5
PrWIN TX_NP,    Col8,Lin,"N", @IncT6

PrWIN TX_NP,    Col3,Lin2,"N", @IvaT1
PrWIN TX_NP,    Col4,Lin2,"N", @IvaT2
PrWIN TX_NP,    Col5,Lin2,"N", @IvaT3
PrWIN TX_NP,    Col6,Lin2,"N", @IvaT4
PrWIN TX_NP,    Col7,Lin2,"N", @IvaT5
PrWIN TX_NP,    Col8,Lin2,"N", @IvaT6

PrWIN TX_NP,   Col9,Lin,"N",@TotDoc
PrWIN TX_NP,   Col9,Lin2,"N",@TotIva
tmp=CntLin("INC",1)                             'acertar contador linhas
end sub


SUB MapIvaI_Lin
PrWIN AJT_B,  Margem, InicioLinha+Doc_CntLin*4          	'posicao base

PrWIN TX_NP,    Col1,Lin,"N",@Ndoc
PrWIN TX_NP,    Col1,Lin2,"N",@TotIse

PrWIN TX_NP,    Col2,Lin,"N",@DtDoc

PrWIN TX_NP,    Col3,Lin,"N", @IncT11
PrWIN TX_NP,    Col4,Lin,"N", @IncT12
PrWIN TX_NP,    Col5,Lin,"N", @IncT13
PrWIN TX_NP,    Col6,Lin,"N", @IncT14
PrWIN TX_NP,    Col7,Lin,"N", @IncT15
PrWIN TX_NP,    Col8,Lin,"N", @IncT16

PrWIN TX_NP,    Col3,Lin2,"N", @IvaT11
PrWIN TX_NP,    Col4,Lin2,"N", @IvaT12
PrWIN TX_NP,    Col5,Lin2,"N", @IvaT13
PrWIN TX_NP,    Col6,Lin2,"N", @IvaT14
PrWIN TX_NP,    Col7,Lin2,"N", @IvaT15
PrWIN TX_NP,    Col8,Lin2,"N", @IvaT16

PrWIN TX_NP,   Col9,Lin,"N",@TotDoc
PrWIN TX_NP,   Col9,Lin2,"N",@TotIva
tmp=CntLin("INC",1)                             'acertar contador linhas
end sub


SUB MapIvaN_Fim
Lin=0
Lin2=4
PrWIN AJT_B,Margem,fimdoc                 		'posicao base
PrWIN GR_LI,     0,  0, MargemD, 0            	'linha
PrWIN AJT_B,Margem,fimdoc+2                		'posicao base
PrWIN COR_T,     CorTotGer                      'cor azul
PrWIN FON,       8,  1                          'activar fonte

PrWIN TX_N,     Col1,Lin," TOTAIS ....
PrWIN TX_N,     Col1,Lin2,"N",@TotIseGer

PrWIN TX_NP,    Col3,Lin,"N", @TIncT1
PrWIN TX_NP,    Col4,Lin,"N", @TIncT2
PrWIN TX_NP,    Col5,Lin,"N", @TIncT3
PrWIN TX_NP,    Col6,Lin,"N", @TIncT4
PrWIN TX_NP,    Col7,Lin,"N", @TIncT5
PrWIN TX_NP,    Col8,Lin,"N", @TIncT6

PrWIN TX_NP,    Col3,Lin2,"N", @TIvaT1
PrWIN TX_NP,    Col4,Lin2,"N", @TIvaT2
PrWIN TX_NP,    Col5,Lin2,"N", @TIvaT3
PrWIN TX_NP,    Col6,Lin2,"N", @TIvaT4
PrWIN TX_NP,    Col7,Lin2,"N", @TIvaT5
PrWIN TX_NP,    Col8,Lin2,"N", @TIvaT6

PrWIN TX_NP,   Col9,Lin,"N",@TotDocGer
PrWIN TX_NP,   Col9,Lin2,"N",@TotIvaGer
call SigLstRod
PRWIN FP
end sub


SUB MapIvaI_Fim
Lin=0
Lin2=4
PrWIN AJT_B,Margem,fimdoc               		'posicao base
PrWIN GR_LI,     0,  0, MargemD, 0            	'linha
PrWIN AJT_B,Margem,fimdoc+2                		'posicao base
PrWIN COR_T,     CorTotGer                      'cor azul
PrWIN FON,       8,  1                          'activar fonte

PrWIN TX_N,     Col1,Lin," TOTAIS ....
PrWIN TX_N,     Col1,Lin2,"N",@TotIseGer

PrWIN TX_NP,    Col3,Lin,"N", @TIncT11
PrWIN TX_NP,    Col4,Lin,"N", @TIncT12
PrWIN TX_NP,    Col5,Lin,"N", @TIncT13
PrWIN TX_NP,    Col6,Lin,"N", @TIncT14
PrWIN TX_NP,    Col7,Lin,"N", @TIncT15
PrWIN TX_NP,    Col8,Lin,"N", @TIncT16

PrWIN TX_NP,    Col3,Lin2,"N", @TIvaT11
PrWIN TX_NP,    Col4,Lin2,"N", @TIvaT12
PrWIN TX_NP,    Col5,Lin2,"N", @TIvaT13
PrWIN TX_NP,    Col6,Lin2,"N", @TIvaT14
PrWIN TX_NP,    Col7,Lin2,"N", @TIvaT15
PrWIN TX_NP,    Col8,Lin2,"N", @TIvaT16

PrWIN TX_NP,   Col9,Lin,"N",@TotDocGer
PrWIN TX_NP,   Col9,Lin2,"N",@TotIvaGer
call SigLstRod
PRWIN FP
end sub



'- Mapa de Comissoes de Vendedores  -------------------------------------------
SUB MpComVnd_Cab
Call EncMpvCab

'posicoes das colunas
inicio=45
esp=22

Col1=0                  'documento
Col2=25                 'data
Col3=inicio+esp         'iva 1
Col4=inicio+esp*2      'iva 2
Col5=inicio+esp*3      'iva 3
Col6=inicio+esp*4      'iva 4
Col7=inicio+esp*5      'iva 5
Col8=inicio+esp*6      'iva 6
Col9=MargemD           



Lin=10

PrWIN COR_T,  CorTitLst                        'cor de titulo
PrWIN FON  ,   9,   1                        	'activar fonte


PrWIN TX_CTR,  Col1,Lin,Col2,Lin, "Conta"
PrWIN TX_CTR,  Col2,Lin,Col3,Lin, "Nome"
PrWIN TX_CTR,  Col3,Lin,Col4,Lin, "Documento"
PrWIN TX_CTR,  Col4,Lin,Col5,Lin, "Dt.Doc."
PrWIN TX_CTR,  Col5,Lin,Col6,Lin, "Dt.Venc."
PrWIN TX_CTR,  Col6,Lin,Col7,Lin, "Valor Doc."
PrWIN TX_CTR,  Col7,Lin,Col8,Lin, "V. Incidencia"
PrWIN TX_CTR,  Col8,Lin,Col9,Lin, "Comissão"

PrWIN FON  ,   8,   1                           'activar fonte
PrWIN COR_T,CorLin                              'cor de linhas
end sub


SUB MpComVnd_LinTit
PrWIN AJT_B,  Margem, InicioLinha+Doc_CntLin*4          	'posicao base
PrWIN TX_N,    Col1,0,"Vendedor :"
PrWIN TX_N,    Col2,0,@VendIde
PrWIN GR_LI,      0,  3, MargemD, 3            	'linha
end sub


SUB MpComVnd_Lin
PrWIN AJT_B,  Margem, InicioLinha+Doc_CntLin*4          	'posicao base
PrWIN TX_N,     Col1,0,    @Ct
PrWIN TX_DMX,   Col2,0,Col3-Col2,@Nome
PrWIN TX_NP,    Col3,0,"N",@CmvNdoc
PrWIN TX_N,     Col4,0,    @DtDoc
PrWIN TX_N,     Col5,0,    @DtVenc
PrWIN TX_NP,    Col6,0,"N",@TotDoc
PrWIN TX_NP,    Col7,0,"N",@ValInc
PrWIN TX_NP,    Col8,0,"N",@ValCom
end sub


SUB MpComVnd_LinSt
PrWIN AJT_B,  Margem, InicioLinha+Doc_CntLin*4        'posicao base
PrWIN GR_LI,      0,  0, MargemD, 0                   'linha
Lin=5
PrWIN TX_N,    Col2,Lin,"Totais ..."
PrWIN TX_N,    Col6,Lin,@StValdoc
PrWIN TX_N,    Col7,Lin,@StValInc
PrWIN TX_N,    Col8,Lin,@StValCom
x=TotLpz(1)  'limpar totais
end sub


SUB MpComVnd_LinIdeTot
PrWIN AJT_B,  Margem, InicioLinha+Doc_CntLin*4        'posicao base
PrWIN GR_LI,      0,  0, MargemD, 0                   'linha
PrWIN GR_LI,      0, 10, MargemD, 10                 'linha
PrWIN TX_N,    Col2,  5,"Vendedor"
PrWIN TX_N,    Col3,  5,"Valor"
PrWIN TX_N,    Col5,  5,"Comissão"
end sub


SUB MpComVnd_LinTot
PrWIN AJT_B,  Margem, InicioLinha+Doc_CntLin*4        'posicao base
PrWIN TX_N,    Col2,  5,@GrpVndIde
PrWIN TX_N,    Col3,  5,@GrpVndVl
PrWIN TX_N,    Col5,  5,@GrpVndCmv
end sub


SUB MpComVnd_LinTotInf
PrWIN AJT_B,  Margem, InicioLinha+Doc_CntLin*4        'posicao base
PrWIN TX_N,    Col2,  5,@GrpVndIde
end sub

SUB MpComVnd_Fim
PrWIN AJT_B,Margem,fimdoc                 		'posicao base
PrWIN TX_N,    Col2,  5,@GrpVndIde
PrWIN GR_LI,      0,  0, MargemD, 0                   'linha
PrWIN TX_NP,    Col6,  5,"N",@TvalDoc
PrWIN TX_NP,    Col7,  5,"N",@TvalInc
PrWIN TX_NP,    Col8,  5,"N",@TvalCom
PrWin FP
end sub


Sub EncMpvCab  'cabecalho comum
call SigLstCab
InicioLinha=35
PrWIN AJT_B,  Margem, 20                        'posicao base
PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 9, MargemD, 9               	'linha
PrWIN GR_LI, 0, 15, MargemD, 15               	'linha

Call MostraPais
end sub


Sub EncMpvCab2L  'cabecalho comum com 2 linhas
call SigLstCab
PrWIN AJT_B,  Margem, 20                        'posicao base
PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 9, MargemD, 9               	'linha
PrWIN GR_LI, 0, 21, MargemD, 21                 'linha
InicioLinha=30
Call MostraPais
end sub


Sub MostraPais
'fx=msgbox("PAIS",col5)
if MemNum(9)=1 then      'juntar paises

else
  PaisNome$  = EmpTabCon$("PAIS",Enc_Mst_Pais,"NOME")       'ler pais
  pt=84+10
  PrWIN TX_N,    pt,  2, @PaisNome
end if
end sub
##


#INC
Funcoes comuns                    =[SIG_Dir.Div],LsComPgm.std
##


