'Nome       : EncMpv.std
'Tipo       : LST
'Data       : 2011/10/18
'Versao     : 2.0d
'Descricao  : Listagem de Encomendas (Mapas de Vendas)

'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 2.0d  2011/10/18 --------------------------------------------------
'Rearranjos na listagem gr�fica do mapa de vendas

'- Versao : 2.0c  2006/10/12 --------------------------------------------------
'Mapa de comiss�es de vendedor (Resumo) para Excel

'- Versao : 2.0b  2006/09/29 --------------------------------------------------
'Correccao estetica listagens graficas

'- Versao : 2.0a  2006/08/10 --------------------------------------------------
'listagem para EXCEL
'Listagem para resumo por documento
'Titulos para compras

'- Versao : 2.0  2005/06/16 --------------------------------------------------
'juntar listagem em modo grafico

'- Versao : 1.7  2003/07/21 --------------------------------------------------
'Resumo diario/resumo mensal

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

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

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

'- Versao : 1.3a  2000/11/29 -------------------------------------------------
'Mapa de vendas com quantidades - correcao nos valores

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

'- Versao : 1.2   2000/05/09 -------------------------------------------------
'Mapa de vendas - Nos totais da linha nao somava iva

'- Versao : 1.0c  2000/02/22 -------------------------------------------------
'usar formato de impressao de acordo com a moeda

'- Versao : 1.0c  1999/04/22 -------------------------------------------------
'Comissoes de vendedor
'Listagem de desconto 

'- Versao : 1.0b  1999/02/25 -------------------------------------------------
'Uso de tipo de listagem

'- Versao : 1.0a  1998/12/31 -------------------------------------------------
'Versao base


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


'==============================================================================
#ESP - Campos especificos
'==============================================================================
'Especifico 1                      [EspOp1]=Opcao 1
'Especifico 2                      [EspOp2]=Opcao 2
'Limites a listar                  [EspLim]=?

Zoom para preview                [PrvZoom]=1.5
Opcoes para impressora WIN      [PrWinOpc]=[ORI=P]
##


'==============================================================================
#SQL - Comandos SQL
'==============================================================================
Base de dados           [BD]=EmpFic$("EMP","Cemp,Emp_Dat.mdb")
'Base de dados           [BD]=EmpFic$("EMP","Enc,Enc.mdb")

Dados a listar [Cmd]=DocGuias=+
+SELECT top 1 FROM EncMst 

##


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

'formato
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_CPR=Mapa de Compras

'funcoes de listagem
Listar cabecalho            [FxCAB]=EncMpvG_Cab
Listar linhas               [FxLIN]=EncMpvG_Lin
Listar fim                  [FxFIM]=EncMpvG_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=EncMpv
Nome                       [DocNom]=EncMpv_XLS,Mapa de Vendas (XLS)

'formato
Saida/Impressora           [DocPrt]=NULA
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Titulo para fornecedores   [DocEsp]=TIT_CPR=Mapa de Compras (XLS)

'funcoes de listagem
Base para documento         [FxDOC]=XlsEncMpv
Listar cabecalho            [FxCAB]=XlsEncMpv_Cab
Listar linhas               [FxLIN]=XlsEncMpv_Lin,0
Listar fim                  [FxFIM]=XlsEncMpv_Fim

Matriz auxiliar            [DocMat]=EncMpv.xls
##




'==============================================================================
#VAR - Variaveis
'==============================================================================
'- Formatar ------------------------------------------------------------------
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      = left$(VarAlt$("ENC_MST","Cta_Mst_Nome$"),30)
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,Ado_Tot_Ilq)
Iva       = FrmMoe$("",13,Ado_Tot_Iva)
Desc      = FrmMoe$("",10,Ado_Tot_Desco)
Liq       = FrmMoe$("",16,Enc_Mst_ValTot)

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))
Tdesc     = FrmMoe$("",14,Total(Desc))
Tiva      = FrmMoe$("",14,Total(Iva))
Tliq      = FrmMoe$("",14,Total(Liq))

vpIlq     = FrmMoe$("",13,Ado_Tot_Ilq)
vpDes     = FrmMoe$("",12,Ado_Tot_Desco)
vpLiq     = FrmMoe$("",13,Ado_Tot_Liq)
vpIva     = FrmMoe$("",12,Ado_Tot_Iva)
vpDoc     = FrmMoe$("",13,Enc_Mst_ValTot)

vtIlq     = FrmMoe$("",15,Total(vpIlq))
vtDes     = FrmMoe$("",14,Total(vpDes))
vtLiq     = FrmMoe$("",15,Total(vpLiq))
vtIva     = FrmMoe$("",14,Total(vpIva))
vtDoc     = FrmMoe$("",15,Total(vpDoc))

'mapa de vendas+quantidades
Ctrb      = Cta_Mst_Ctrb$
'QuRec1    = FrmVal$(Enc_Mov_Qu,21,7.3)
'QuRec2    = FrmVal$(Enc_Mov_Qu2,21,7.3)
'QuMed     = FrmVal$(Enc_Mov_MedVal,21,7.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))
Stot      = FrmMoe$("",13,MemNum(11))


'Mapa da I.V.A.
T1        = IvaTax(1)+"%"
T2        = IvaTax(2)+"%"
T3        = IvaTax(3)+"%"
T4        = IvaTax(4)+"%"
T5        = IvaTax(5)+"%"
T6        = 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_ValTot)
TotIva   = FrmMoe$("",13,Doc_Tot_IVA)
TotIse   = FrmMoe$("",13,Doc_Tot_IVAISE)

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


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

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

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

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


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

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

PaisNome = PaisNome$

'- Resumo diario -------------------------------------------------------------
'MemNum(00) - Listar iva calculado
'MemNum(01) - Listar iva incluido

'MemNum(11) - Data do dia
'MemNum(12) - Numero de documentos

'MemNum(21) - Iliquido
'MemNum(22) - Desconto
'MemNum(23) - Liquido
'MemNum(24) - IVA
'MemNum(25) - Valor total

vRdiDt    = FrmDt$("",MemNum(11))
vRdiCnt   = FrmNum$(5,MemNum(12))

vRdiIlq   = FrmMoe$("",13,MemNum(21))
vRdiDes   = FrmMoe$("",13,MemNum(22))
vRdiLiq   = FrmMoe$("",13,MemNum(23))
vRdiIva   = FrmMoe$("",13,MemNum(24))
vRdiVto   = FrmMoe$("",13,MemNum(25))

vRdiInc00 = FrmMoe$("",13,IvaInc(0,0))
vRdiInc01 = FrmMoe$("",13,IvaInc(0,1))
vRdiInc02 = FrmMoe$("",13,IvaInc(0,2))
vRdiInc03 = FrmMoe$("",13,IvaInc(0,3))
vRdiInc04 = FrmMoe$("",13,IvaInc(0,4))
vRdiInc05 = FrmMoe$("",13,IvaInc(0,5))
vRdiInc06 = FrmMoe$("",13,IvaInc(0,6))
vRdiInc10 = FrmMoe$("",13,IvaInc(1,0))
vRdiInc11 = FrmMoe$("",13,IvaInc(1,1))
vRdiInc12 = FrmMoe$("",13,IvaInc(1,2))
vRdiInc13 = FrmMoe$("",13,IvaInc(1,3))
vRdiInc14 = FrmMoe$("",13,IvaInc(1,4))
vRdiInc15 = FrmMoe$("",13,IvaInc(1,5))
vRdiInc16 = FrmMoe$("",13,IvaInc(1,6))

vRdiIva00 = FrmMoe$("",13,IvaVal(0,0))
vRdiIva01 = FrmMoe$("",13,IvaVal(0,1))
vRdiIva02 = FrmMoe$("",13,IvaVal(0,2))
vRdiIva03 = FrmMoe$("",13,IvaVal(0,3))
vRdiIva04 = FrmMoe$("",13,IvaVal(0,4))
vRdiIva05 = FrmMoe$("",13,IvaVal(0,5))
vRdiIva06 = FrmMoe$("",13,IvaVal(0,6))
vRdiIva10 = FrmMoe$("",13,IvaVal(1,0))
vRdiIva11 = FrmMoe$("",13,IvaVal(1,1))
vRdiIva12 = FrmMoe$("",13,IvaVal(1,2))
vRdiIva13 = FrmMoe$("",13,IvaVal(1,3))
vRdiIva14 = FrmMoe$("",13,IvaVal(1,4))
vRdiIva15 = FrmMoe$("",13,IvaVal(1,5))
vRdiIva16 = FrmMoe$("",13,IvaVal(1,6))

tRdiCnt   = FrmNum$(5,Total(vRdiCnt))

tRdiIlq   = FrmMoe$("",13,Total(vRdiIlq))
tRdiDes   = FrmMoe$("",13,Total(vRdiDes))
tRdiLiq   = FrmMoe$("",13,Total(vRdiLiq))
tRdiIva   = FrmMoe$("",13,Total(vRdiIva))
tRdiVto   = FrmMoe$("",13,Total(vRdiVto))

tRdiInc00 = FrmMoe$("",13,Total(vRdiInc00))
tRdiInc01 = FrmMoe$("",13,Total(vRdiInc01))
tRdiInc02 = FrmMoe$("",13,Total(vRdiInc02))
tRdiInc03 = FrmMoe$("",13,Total(vRdiInc03))
tRdiInc04 = FrmMoe$("",13,Total(vRdiInc04))
tRdiInc05 = FrmMoe$("",13,Total(vRdiInc05))
tRdiInc06 = FrmMoe$("",13,Total(vRdiInc06))
tRdiInc10 = FrmMoe$("",13,Total(vRdiInc10))
tRdiInc11 = FrmMoe$("",13,Total(vRdiInc11))
tRdiInc12 = FrmMoe$("",13,Total(vRdiInc12))
tRdiInc13 = FrmMoe$("",13,Total(vRdiInc13))
tRdiInc14 = FrmMoe$("",13,Total(vRdiInc14))
tRdiInc15 = FrmMoe$("",13,Total(vRdiInc15))
tRdiInc16 = FrmMoe$("",13,Total(vRdiInc16))

tRdiIva00 = FrmMoe$("",13,Total(vRdiIva00))
tRdiIva01 = FrmMoe$("",13,Total(vRdiIva01))
tRdiIva02 = FrmMoe$("",13,Total(vRdiIva02))
tRdiIva03 = FrmMoe$("",13,Total(vRdiIva03))
tRdiIva04 = FrmMoe$("",13,Total(vRdiIva04))
tRdiIva05 = FrmMoe$("",13,Total(vRdiIva05))
tRdiIva06 = FrmMoe$("",13,Total(vRdiIva06))
tRdiIva10 = FrmMoe$("",13,Total(vRdiIva10))
tRdiIva11 = FrmMoe$("",13,Total(vRdiIva11))
tRdiIva12 = FrmMoe$("",13,Total(vRdiIva12))
tRdiIva13 = FrmMoe$("",13,Total(vRdiIva13))
tRdiIva14 = FrmMoe$("",13,Total(vRdiIva14))
tRdiIva15 = FrmMoe$("",13,Total(vRdiIva15))
tRdiIva16 = FrmMoe$("",13,Total(vRdiIva16))


'totalizadores para usar com acumulacao directa
TLIQ  = 0                          'total liquido (mapa de vendas)
TQU1  = 0                          'quantidade 1
TQU2  = 0                          'quantidade 2
TQUM  = 0                          'quantidade medidas
SDES  = 0                          'descontos - resumo de vendas
STOT  = 0                          'totais - resumo de vendas

'Mapa do IVA
TISE  = 0                          'total valores isentos
TINC1 = 0                          'taxa 1 - incidencias (total)
TIVA1 = 0                          'taxa 1 - valor (total)
TINC2 = 0                          'taxa 2 - incidencias (total)
TIVA2 = 0                          'taxa 2 - valor (total)
TINC3 = 0                          'taxa 3 - incidencias (total)
TIVA3 = 0                          'taxa 3 - valor (total)
TINC4 = 0                          'taxa 4 - incidencias (total)
TIVA4 = 0                          'taxa 4 - valor (total)
TINC5 = 0                          'taxa 5 - incidencias (total)
TIVA5 = 0                          'taxa 5 - valor (total)
TINC6 = 0                          'taxa 6 - incidencias (total)
TIVA6 = 0                          'taxa 6 - valor (total)
TDOC  = 0                          'total documento
TIVA  = 0                          'total IVA

'Mapa de Comissoes de Vendedor
SCVTOT = 0                         'total
SCVINC = 0                         'incidencias
SCVCOM = 0                         'comissoes
##


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


'==============================================================================
#PGM - Programa/Funcoes
'==============================================================================
'---------------------------------------------------------->'Comentario (61)
'------------------------------------------------->'Comentario (52)
'------------------------------------->'Comentario (40)

SUB FxIni 'funcao de inicializacao
Call SigLstIni
End sub

SUB Lst_AJT
end sub


'- Mapa de Vendas -------------------------------------------------------------
SUB EncMpv_Cab
Call MostraPais
FxDiv LstIde,16CPI,0
?@Tit132                                                                                                                           #
?Data:@DataExt                                         @PaisNome                                                      Folha No: @Pag#
?====================================================================================================================================
?Conta                  Nome                   Documento  PV/Vnd  Data         Iliquido       I.V.A.   Desconto      Valor Doc.   P/M
?====================================================================================================================================
end sub


SUB EncMpv_Lin
?@Ct          @Nome                          @Ndoc         @PV  @DtDoc     @Ilq         @Iva         @Desc     @Liq              @PM#
End Sub

SUB EncMpv_Fim
?====================================================================================================================================
?                            Totais :                                    @Tilq                   @Tdesc                           #
'If Left$(Enc_Mst_Tdoc$,1)="R" Then
'?                                                                                     @Tiva                      @TliqR           #
'Else
?                                                                                     @Tiva                      @Tliq            #
'End If
?====================================================================================================================================
FxDiv LstPer,SP

'print PrtCmd$("[SP]");
End Sub


'- Resumo por Documento -------------------------------------------------------
Sub EncRdo_Cab
Call MostraPais
FxDiv LstIde,16CPI,0
?@Tit132                                                                                                                            #
?Data:@DataExt                                         @PaisNome                                                      Folha No: @Pag#
?====================================================================================================================================
?Conta                  Nome                   Documento     Data        Iliquido    Desconto      Liquido      I.V.A.   Valor Doc. # 
?====================================================================================================================================
end sub


Sub EncRdo_Lin
?@Ct          @Nome                          @Ndoc         @DtDoc     @vpIlq       @vpDes      @vpLiq       @vpIva      @vpDoc       #
'@Ct          @Nome                          @Ndoc        06/01/01 <23456789.12><23456789.1><23456789.12><23456789.1><23456789.12>#
'<23456789.12><23456789.123456789.123456789.>123,456/2006 06/01/01 <2,123,123.1><,123,123.1><2,123,123.1><,123,123.1><2,123,123.1>#
End Sub


SUB EncRdo_Fim
?====================================================================================================================================
?                            Totais :                               @vtIlq                   @vtLiq                   @vtDoc        #
?                                                                                @vtDes                   @vtIva                    #
?====================================================================================================================================
FxDiv LstPer,SP

'print PrtCmd$("[SP]");
End Sub


'- Mapa de Vendas + Quantidades -----------------------------------------------
SUB EncMpvQu_Cab
Call MostraPais
FxDiv LstIde,16CPI,0
?@Tit132
?@DataExt                                                @PaisNome                                                     Folha No: @Pag
?====================================================================================================================================
?  Conta           Nome                   Contribuinte    Documento  Vnd   Data         Total     Qu.Rec 1    Qu.Rec 2     Qu.Med
?====================================================================================================================================
end sub


SUB EncMpvQu_Lin
?@Ct         @Nome                          @Ctrb       @Ndoc        @Vd @DtDoc   @Liq            @QuRec1     @QuRec2     @QuMed    #
end sub


SUB EncMpvQu_Fim
?====================================================================================================================================
?                                     Totais :                                      @Tliq                     @TquRec2              #
?                                                                                                @TquRec1               @TquMed     #
?====================================================================================================================================
FxDiv LstPer,SP
'print PrtCmd$("[SP]");
end sub


'- Resumo de Vendas -----------------------------------------------------------
SUB ResVnd_Cab
Call MostraPais
FxDiv LstIde,16CPI,0
?@Tit132                                                                                                                           #
?@DataExt                                                @PaisNome                                                     Folha No: @Pag
?====================================================================================================================================
?Documento          Vnd.            Data               C.Pagamento                              Desconto             Total          #
?====================================================================================================================================
end sub


SUB ResVnd_LinTit
?-----------------------------------------------------------------------------------------------------------------------------------#
?            @Ct            @Nome                                                                                                    #
?-----------------------------------------------------------------------------------------------------------------------------------#
end sub


SUB ResVnd_Lin
?@Tp @Ndoc          @Vd            @DtDoc              @Cpag @CpTxt                            @Desc              @Liq             #
end sub


SUB ResVnd_LinSt
?
?-----------------------------------------------------------------------------------------------------------------------------------#
?             Sub-totais :                                                                     @StDesc            @Stot             #
end sub


SUB ResVnd_Fim
?====================================================================================================================================
?            Totais :                                                                         @Tdesc             @Tliq              #
?====================================================================================================================================
FxDiv LstPer,SP
'print PrtCmd$("[SP]");
end sub


'- Mapa de I.V.A. -------------------------------------------------------------
SUB MapIva_Cab
Call MostraPais
FxDiv LstIde,16CPI,0
?@Tit132                                                                                                                           #
?@DataExt                                              @PaisNome                                                       Folha No: @Pag
?====================================================================================================================================
?   Documento   Data       Taxa 1: @T1   Taxa 2: @T2    Taxa 3: @T3    Taxa 4: @T4    Taxa 5: @T5    Taxa 6: @T6       Tot.Documento#
?    Valores Isentos       Incid./Valor  Incid./Valor   Incid./Valor   Incid./Valor   Incid./Valor   Incid./Valor      Total de IVA #
?====================================================================================================================================
end sub


SUB MapIvaN_Lin
?@Ndoc        @DtDoc       @IncT1        @IncT2         @IncT3         @IncT4         @IncT5         @IncT6            @TotDoc      #
?@TotIse                   @IvaT1        @IvaT2         @IvaT3         @IvaT4         @IvaT5         @IvaT6            @TotIva      #
end sub


SUB MapIvaI_Lin
?@Ndoc        @DtDoc       @IncT11       @IncT12        @IncT13        @IncT14        @IncT15         @IncT16          @TotDoc      #
?@TotIse                   @IvaT11       @IvaT12        @IvaT13        @IvaT14        @IvaT15         @IvaT16          @TotIva      #
end sub


SUB MapIvaN_Fim
?====================================================================================================================================
?    TOTAIS :              @TIncT1       @TIncT2        @TIncT3        @TIncT4        @TIncT5        @TIncT6           @TotDocGer   #
?@TotIseGer                @TIvaT1       @TIvaT2        @TIvaT3        @TIvaT4        @TIvaT5        @TIvaT6           @TotIvaGer   #
?====================================================================================================================================
FxDiv LstPer,SP
end sub


SUB MapIvaI_Fim
?====================================================================================================================================
?    TOTAIS :              @TIncT11      @TIncT12       @TIncT13       @TIncT14       @TIncT15       @TIncT16          @TotDocGer   #
?@TotIseGer                @TIvaT11      @TIvaT12       @TIvaT13       @TIvaT14       @TIvaT15       @TIvaT16          @TotIvaGer   #
?====================================================================================================================================
FxDiv LstPer,SP
end sub


'- Mapa de Comissoes de Vendedores  -------------------------------------------
SUB MpComVnd_Cab
Call MostraPais
?                                                                                              @EmpNome                            #
?@Tit132                                                                                                                           #
?@DataExt                                             @PaisNome                                                        Folha No: @Pag
?====================================================================================================================================
?  Conta            Nome                        Documento       Dt.Doc.   Dt.Venc.      Valor Doc.    V. Incidencia        Comissao #
?====================================================================================================================================
end sub


SUB MpComVnd_LinTit
Print PrtCmd$("[16CPILD]")
?Vendedor : @VendIde                                                              #
Print PrtCmd$("[16CPILN]");
?-----------------------------------------------------------------------------------------------------------------------------------#
end sub


SUB MpComVnd_Lin
?@Ct            @Nome                           @CmvNdoc       @DtDoc     @DtVenc       @TotDoc       @ValInc           @ValCom     #
end sub


SUB MpComVnd_LinSt
?-----------------------------------------------------------------------------------------------------------------------------------#
?             Totais :                                                                  @StValDoc     @StValInc         @StValCom   #
x=TotLpz(1)  'limpar totais
fx=cntlin("FRC",51)     'forcar fim de folha + listar inicio de folha
end sub


SUB MpComVnd_LinIdeTot
?====================================================================================================================================
?     Vendedor                                      Valor              Comiss�o          Incidencia                                 #
?====================================================================================================================================
xxxxxx
end sub


SUB MpComVnd_LinTot
?    @GrpVndIde                                    @GrpVndVl          @GrpVndCmv            @GrpVndInc                              #
end sub


SUB MpComVnd_LinTotInf
?
?    @GrpVndIde                                                                                    #
end sub

SUB MpComVnd_FimAjt
?====================================================================================================================================
print PrtCmd$("[SP]");
end sub


SUB MpComVnd_Fim
?====================================================================================================================================
?            TOTAIS :                                                                   @TValDoc      @TValInc          @TValCom    #
?====================================================================================================================================
print PrtCmd$("[SP]");
end sub


Sub MostraPais
'fx=msgbox("PAIS",memnum(9))
if MemNum(9)=1 then      'juntar paises
  PaisNome$=""
else
  PaisNome$  = EmpTabCon$("PAIS",Enc_Mst_Pais,"NOME")       'ler pais
end if
end sub


'- Resumo Diario --------------------------------------------------------------
Sub ResDia_Cab 'cabecalho
Call MostraPais
FxDiv LstIde,16CPI,0
?@Tit132                                                                                                                            #
?Data: @DataExt                                        @PaisNome                                                      Folha No: @Pag#
?====================================================================================================================================
lstIva=0                               'nao listar IVA
if MemNum(1) = 1 then                  'listar IVA incluido ?
   lstIva=1                            'listar IVA
end if
if MemNum(0) = 1 then                  'listar IVA calculado ?
   lstIva=1                            'listar IVA
end if

if lstIva = 1 then                     'listar IVA
?                           Taxa 1: @T1    Taxa 2: @T2    Taxa 3: @T3    Taxa 4: @T4    Taxa 5: @T5    Taxa 6: @T6                  #
?                           Incid./Valor   Incid./Valor   Incid./Valor   Incid./Valor   Incid./Valor   Incid./Valor    Valor Isento #
?------------------------------------------------------------------------------------------------------------------------------------
end if

'                           123456789.1234_123456789.1234_123456789.1234_123456789.1234_123456789.1234_123456789.1234_123456789.1234_
? Num        Data                Iliquido       Desconto       Iliquido        I.V.A.      Valor Doc.                               #
?====================================================================================================================================
end sub


Sub ResDia_Lin 'linha
print
?@vRdiCnt @vRdiDt           @vRdiIlq       @vRdiDes       @vRdiLiq       @vRdiIva       @vRdiVto                                    #
'                           123456789.1234_123456789.1234_123456789.1234_123456789.1234_123456789.1234_123456789.1234_123456789.1234_

if MemNum(1) = 1 then
?  Iva incluido:  Inc.      @vRdiInc11     @vRdiInc12     @vRdiInc13     @vRdiInc14     @vRdiInc15     @vRdiInc16     @vRdiInc10    #
?                 Iva       @vRdiIva11     @vRdiIva12     @vRdiIva13     @vRdiIva14     @vRdiIva15     @vRdiIva16                   #

tmp=CntLin("INC",2)                    'contar linhas
end if

if MemNum(0) = 1 then
?  Iva calculado: Inc.      @vRdiInc01     @vRdiInc02     @vRdiInc03     @vRdiInc04     @vRdiInc05     @vRdiInc06     @vRdiInc00    #
?                 Iva       @vRdiIva01     @vRdiIva02     @vRdiIva03     @vRdiIva04     @vRdiIva05     @vRdiIva06                   #

tmp=CntLin("INC",2)                    'contar linhas
end if
End Sub


Sub ResDia_Fim 'fim
?====================================================================================================================================
?@tRdiCnt    Totais:        @tRdiIlq       @tRdiDes       @tRdiLiq       @tRdiIva       @tRdiVto                                    #

if MemNum(1) = 1 then
?  Iva incluido:  Inc.      @tRdiInc11     @tRdiInc12     @tRdiInc13     @tRdiInc14     @tRdiInc15     @tRdiInc16     @tRdiInc10    #
?                 Iva       @tRdiIva11     @tRdiIva12     @tRdiIva13     @tRdiIva14     @tRdiIva15     @tRdiIva16                   #
end if

if MemNum(0) = 1 then
?  Iva calculado: Inc.      @tRdiInc01     @tRdiInc02     @tRdiInc03     @tRdiInc04     @tRdiInc05     @tRdiInc06     @tRdiInc00    #
?                 Iva       @tRdiIva01     @tRdiIva02     @tRdiIva03     @tRdiIva04     @tRdiIva05     @tRdiIva06                   #
end if
?====================================================================================================================================
FxDiv LstPer,SP
End Sub


'==============================================================================
'= GRF = Listagem grafica =====================================================
'==============================================================================
'- Mapa de Vendas -------------------------------------------------------------
SUB EncMpvG_Cab 'mapa de vendas - cabecalho
Call EncMpvCabG

'posicoes das colunas
TCol1=  0                'conta
TCol2= 20                'nome
TCol3= 53                'documento
TCol4= 75                'posto venda/vendedor
TCol5= 86                'data
TCol6=100                'iliquido
TCol7=122                'iva
TCol8=144                'desconto
TCol9=168                'valor documento
TCol10=190               'portes/mao obra

Lin=4

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

PrWIN FON, "BOLD+"
PrWIN TX_CTR,  TCol1,Lin,TCol2,Lin,"Conta"
PrWIN TX_CTR,  TCol2,Lin,TCol3,Lin,"Nome"
PrWIN TX_CTR,  TCol3,Lin,TCol4,Lin,"Documento"
PrWIN TX_CTR,  TCol4,Lin,TCol5,Lin,"Pv/Vd"
PrWIN TX_CTR,  TCol5,Lin,TCol6,Lin,"Data"
PrWIN TX_CTR,  TCol6,Lin,TCol7,Lin,"Il�quido"
PrWIN TX_CTR,  TCol7,Lin,TCol8,Lin,"I.V.A."
PrWIN TX_CTR,  TCol8,Lin,TCol9,Lin,"Desconto"
PrWIN TX_CTR,  TCol9,Lin,TCol10,Lin,"Valor"
'PrWIN TX_CTR,  Col10,Lin,Col11,Lin,"P/M"
PrWIN FON, "BOLD-"

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


SUB EncMpvG_Lin 'mapa de vendas - linha
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=190                'portes/mao obra
Col11=CMax

PrWIN AJT_B,  Margem, InicioLinhas+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 EncMpvG_Fim 'mapa de vendas - fim
CMax=190
PrWIN COR_T,     CorTotGer                      'cor azul
PrWIN AJT_B,Margem,265                 		'posicao base
PrWIN GR_LI,     0,  0, MargemD, 0            	'linha
PrWIN AJT_B,Margem,267                 		'posicao base
PrWIN FON,       8,  1                          'activar fonte

PrWIN FON,"BOLD+"                               'activar bold
PrWIN TX_CTR, Col2,  0,Col3,0,"Totais ..."
PrWIN TX_NP,  Col6+3,  0,"N",@Tilq
PrWIN TX_NP,  Col8+3,  0,"N",@TDesc
PrWIN TX_NP,  Col7+3,  3,"N",@Tiva
PrWIN TX_NP,  Col9+3,  3,"N",@Tliq
PrWIN FON,"BOLD-"                               'desactivar bold

PrWIN GR_LI,     0,  7, MargemD, 7            	'linha
call SigLstRod
PrWin FP
End Sub


'- Mapa de Vendas + Quantidades -----------------------------------------------
SUB EncMpvQuG_Cab 'cabecalho
Call EncMpvCabG

'posicoes das colunas
TCol1=0                  'conta
TCol2=20                 'nome
TCol3=55                 'contribuinte
TCol4=70                 'documento
TCol5=91                 'vend
TCol6=95                 'data
TCol7=111                'total
TCol8=135                'quantidade 1
TCol9=155                'quantidade 2
TCol10=174               'medidas
TCol11=190           
Lin=10

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

PrWin FON,"BOLD+"
PrWIN TX_CTR,  TCol1 ,Lin,TCol2 ,Lin,"Conta"
PrWIN TX_CTR,  TCol2 ,Lin,TCol3 ,Lin,"Nome"
PrWIN TX_CTR,  TCol3 ,Lin,TCol4 ,Lin,"Contrib."
PrWIN TX_CTR,  TCol4 ,Lin,TCol5 ,Lin,"Documento"
PrWIN TX_CTR,  TCol5 ,Lin,TCol6 ,Lin,"Vnd"
PrWIN TX_CTR,  TCol6 ,Lin,TCol7 ,Lin,"Data"
PrWIN TX_CTR,  TCol7 ,Lin,TCol8 ,Lin,"Total"
PrWIN TX_CTR,  TCol8 ,Lin,TCol9 ,Lin,"Qnt 1"
PrWIN TX_CTR,  TCol9 ,Lin,TCol10,Lin,"Qnt 2"
PrWIN TX_CTR,  TCol10,Lin,TCol11,Lin,"Qnt Med"
PrWin FON,"BOLD-"

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


SUB EncMpvQuG_Lin 'linha
Col1=  0                'conta
Col2= 20                'nome
Col3= 55                'contribuinte
Col4= 70                'documento
Col5= 92                'vend
Col6= 98                'data
Col7=109                'total
Col8=135                'quantidade 1
Col9=155                'quantidade 2
Col10=172               'medidas
Col11=190
CMax=Col11

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 EncMpvQuG_Fim 'fim
CMax=190
FCol7=112                'total
FCol8=132                'quantidade 1
FCol9=151                'quantidade 2
FCol10=170               'medidas

PrWIN COR_T,     CorTotGer                      'cor azul
PrWIN AJT_B,Margem,265                 		'posicao base
PrWIN GR_LI,     0,  0, CMax, 0            	'linha
PrWIN AJT_B,Margem,267                 		'posicao base
PrWIN FON,       8,  1                          'activar fonte
PrWin FON,"BOLD+"
PrWIN TX_CTR, Col2,  0,Col3,0,"Totais ..."
PrWIN TX_NP,  FCol7,  0,"N",@Tliq
PrWIN TX_NP,  FCol9,  0,"N",@Tqurec2
PrWIN TX_NP,  FCol8,  3,"N",@TquRec1
PrWIN TX_NP,  FCol10, 3,"N",@TquMed
PrWin FON,"BOLD-"
PrWIN GR_LI,     0,  7, CMax, 7            	'linha
call SigLstRod
PrWin FP
end sub


'- Resumo de Vendas -----------------------------------------------------------
SUB ResVndG_Cab 'cabecalho
Call EncMpvCabG

'posicoes das colunas
TCol1=  0                'tipo documento
TCol2= 17                'documento
TCol3= 52                'vendedor
TCol4= 71                'data
TCol5= 93                'vend
TCol6=140                'data
TCol7=180                'total
TCol8=MargemD           

Lin=10

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

PrWin FON,"BOLD+"
PrWIN TX_N, TCol0,Lin,"Tipo"
PrWIN TX_N, TCol2,Lin,"Documento"
PrWIN TX_N, TCol3,Lin,"Vnd."
PrWIN TX_N, TCol4,Lin,"Data"
PrWIN TX_N, TCol5,Lin,"Cond. Pagamento"
PrWIN TX_N, TCol6,Lin,"Desconto"
PrWIN TX_N, TCol7,Lin,"Total"
PrWIN FON  ,   8,   1                           'activar fonte
PrWin FON,"BOLD-"

PrWIN COR_T,CorLin                              'cor de linhas
end sub


SUB ResVndG_LinTit 'linha de titulo
Col1=0                  'conta
Col2=20                 'nome
Col3=54                 'vendedor
Col4=69                 'data
Col5=90                 'condicoes pagamento
Col6=95                 'condicoes pagamento texto
Col7=147                'desconto
Col8=164                'total
Col9=MargemD           

PrWIN AJT_B,  Margem, InicioLinha+Doc_CntLin*4          	'posicao base
PrWIN COR_T,  CorTitLst                         'cor de titulo
PrWIN FON  ,   9,   1                           'activar fonte

PrWin FON,"BOLD+"
PrWIN TX_N,     Col1,0,@Ct
PrWIN TX_N,     Col2,0,@Nome
PrWin FON,"BOLD-"

PrWIN GR_LI,     0,  4, MargemD, 4            	'linha
PrWIN FON  ,   8,   1                           'activar fonte
PrWIN COR_T,CorLin                              'cor de linhas
end sub


SUB ResVndG_Lin 'linha normal
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 ResVndG_LinSt 'linha de sub-totais
FCol7=137                'desconto
FCol8=169                'total
PrWIN AJT_B,  Margem, InicioLinha+Doc_CntLin*4          	'posicao base
PrWIN GR_LI,     0,  0, MargemD, 0            	'linha
PrWin FON,"BOLD+"
PrWin FON,"ITAL+"
PrWIN TX_N,     Col3,0,"Sub-Totais ..."
PrWIN TX_NP,   FCol7,0,"N",@stDesc
PrWIN TX_NP,   FCol8,0,"N",@STot
PrWin FON,"ITAL-"
PrWin FON,"BOLD-"
end sub


SUB ResVndG_Fim 'fim
FCol7=135                'desconto
FCol8=167                'total

PrWIN COR_T,     CorTotGer                      'cor azul
PrWIN AJT_B,Margem,268                 		'posicao base
PrWIN GR_LI,     0,  0, MargemD, 0            	'linha

PrWIN FON,       8,  1                          'activar fonte
PrWin FON,"BOLD+"
PrWIN TX_N,  Col3,1.0,"Totais ..."
PrWIN TX_NP, FCol7, 1.0,"N",@Tdesc
PrWIN TX_NP, FCol8, 1.0,"N",@Tliq
PrWin FON,"BOLD-"
PrWIN GR_LI,     0,  5, MargemD, 5            	'linha
call SigLstRod
PrWin FP
end sub


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

Call EncMpvCab2LG

'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 FON, "BOLD+"
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, "BOLD-"

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


SUB MapIvaNG_Lin 'linha
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 MapIvaIG_Lin 'linha
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 MapIvaNG_Fim 'fim
Lin=-1
Lin2=2

PrWIN COR_T,     CorTotGer                      'cor azul
PrWIN AJT_B,Margem,264                 		'posicao base
PrWIN GR_LI,     0,  0, MargemD, 0            	'linha
PrWIN AJT_B,Margem,266                 		'posicao base

PrWIN FON,       8,  1                          'activar fonte
PrWIN GR_LI,     0,  7, MargemD, 7            	'linha

PrWIN FON, "BOLD+"
PrWIN TX_N,     Col1,Lin," TOTAIS ...."
PrWIN TX_NP,    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
PrWIN FON, "BOLD-"

call SigLstRod
PRWIN FP
end sub


SUB MapIvaIG_Fim 'fim
Lin=-1
Lin2=2

PrWIN COR_T,     CorTotGer                      'cor azul
PrWIN AJT_B,Margem,264                 		'posicao base
PrWIN GR_LI,     0,  0, MargemD, 0            	'linha
PrWIN AJT_B,Margem,266                 		'posicao base
PrWIN FON,       8,  1                          'activar fonte

PrWIN GR_LI,     0,  7, MargemD, 7            	'linha

PrWIN FON, "BOLD+"
PrWIN TX_N,     Col1,Lin," TOTAIS ...."
PrWIN TX_NP,    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
PrWIN FON, "BOLD-"

call SigLstRod
PRWIN FP
end sub



'- Mapa de Comissoes de Vendedores  -------------------------------------------
SUB MpComVndG_Cab 'cabecalho
Call EncMpvCabG

'posicoes das colunas
TCol1=  2                'conta
TCol2= 40                'nome
TCol3= 67                'documento
TCol4= 89                'data documento
TCol5=101                'data vencimento
TCol6=124                'valor documento
TCol7=146                'valor incidencia
TCol8=173                'comissao
TCol9=MargemD           
Lin=10

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

PrWin FON, "BOLD+"
PrWIN TX_N,  TCol1,Lin,"Conta"
PrWIN TX_N,  TCol2,Lin,"Nome"
PrWIN TX_N,  TCol3,Lin,"Documento"
PrWIN TX_N,  TCol4,Lin,"Dt.Doc."
PrWIN TX_N,  TCol5,Lin,"Dt.Venc."
PrWIN TX_N,  TCol6,Lin,"Valor Doc."
PrWIN TX_N,  TCol7,Lin,"V. Incid�ncia"
PrWIN TX_N,  TCol8,Lin,"Comiss�o"
PrWin FON, "BOLD-"

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


SUB MpComVndG_LinTit 'linha de titulo
Col1=  0                'conta
Col2= 25                'nome
Col3= 67                'documento
Col4= 89                'data documento
Col5=102                'data vencimento
Col6=123                'valor documento
Col7=148                'valor incidencia
Col8=169                'comissao
Col9=MargemD           

PrWIN FON  ,   9,   1                              'activar fonte
PrWIN COR_T,  CorTitLst                            'cor de titulo
PrWIN AJT_B,  Margem, InicioLinha+Doc_CntLin*4     'posicao base

PrWIN FON,"BOLD+"
PrWIN TX_N,    Col1,0,"Vendedor :"
PrWIN TX_N,    Col2,0,@VendIde
PrWIN FON,"BOLD-"
PrWIN GR_LI,      0,  4, MargemD, 4            	   'linha
PrWIN COR_T,CorLin                                 'cor de linhas
PrWIN FON  ,   8,   1                              'activar fonte
end sub


SUB MpComVndG_Lin 'linha
PrWIN FON  ,   8,   1                              'activar fonte
PrWIN AJT_B,  Margem, InicioLinha+Doc_CntLin*4          	'posicao base
PrWIN TX_N,     Col1,0.5,    @Ct
PrWIN TX_DMX,   Col2,0.5,Col3-Col2,@Nome
PrWIN TX_NP,    Col3,0.5,"N",@CmvNdoc
PrWIN TX_N,     Col4,0.5,    @DtDoc
PrWIN TX_N,     Col5,0.5,    @DtVenc
PrWIN TX_NP,    Col6,0.5,"N",@TotDoc
PrWIN TX_NP,    Col7,0.5,"N",@ValInc
PrWIN TX_NP,    Col8,0.5,"N",@ValCom
end sub


SUB MpComVndG_LinSt 'linha de sub-totais
PrWIN FON  ,   8,   1                              'activar fonte

SCol6=123                'valor documento
SCol7=148                'valor incidencia
SCol8=169                'comissao

PrWIN AJT_B,  Margem, InicioLinha+Doc_CntLin*4-3   'posicao base
PrWIN GR_LI,      0,  0, MargemD, 0                'linha
Lin=1

PrWIN FON,"BOLD+"
PrWIN TX_N,    Col2,Lin,"Totais ..."
PrWIN TX_NP,    SCol6,Lin,"N",@StValdoc
PrWIN TX_NP,    SCol7,Lin,"N",@StValInc
PrWIN TX_NP,    SCol8,Lin,"N",@StValCom
PrWIN FON,"BOLD-"
x=TotLpz(1)  'limpar totais
end sub


SUB MpComVndG_LinIdeTot 'linha de identificacao com totais
PrWIN AJT_B,  Margem, InicioLinha+Doc_CntLin*4        'posicao base
PrWIN GR_LI,      0,  0, MargemD, 0                   'linha
PrWIN GR_LI,      0,  6, MargemD, 6                   'linha

PrWin FON,"BOLD+"
PrWIN TX_N,    Col2,  1.5,"Vendedor"
PrWIN TX_N,    Col3,  1.5,"Valor"
PrWIN TX_N,    Col5,  1.5,"Comiss�o"
PrWin FON,"BOLD-"
end sub


SUB MpComVndG_LinTot 'linha de totais
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 MpComVndG_LinTotInf 'linha informativa de totais
PrWIN AJT_B,  Margem, InicioLinha+Doc_CntLin*4        'posicao base
PrWIN TX_N,    Col2,  5,@GrpVndIde
end sub


SUB MpComVndG_Fim 'fim
FCol6=123                'valor documento
FCol7=148                'valor incidencia
FCol8=169                'comissao

PrWIN AJT_B,Margem,268                 		'posicao base
PrWIN GR_LI,      0,  0, MargemD, 0             'linha

PrWIN FON,"BOLD+"
PrWIN TX_N,    Col2 ,0.5 ,"Totais :"
PrWIN TX_NP,   FCol6,0.5,"N",@TvalDoc
PrWIN TX_NP,   FCol7,0.5,"N",@TvalInc
PrWIN TX_NP,   FCol8,0.5,"N",@TvalCom
PrWIN GR_LI,      0,  5, MargemD, 5             'linha
PrWIN FON,"BOLD-"
call SigLstRod
PRWIN FP
end sub


Sub EncMpvCabG  'cabecalho comum (listagens graficas)
MargemD=190

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 MostraPaisG
end sub


Sub EncMpvCab2LG  'cabecalho comum com 2 linhas (listagens graficas)
MargemD=195

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 MostraPaisG
end sub


Sub MostraPaisG 'mostra pais
'fx=msgbox("PAIS",col5)
if MemNum(9)=1 then                                          'juntar paises
   'nada a executar
else
   PaisNome$  = EmpTabCon$("PAIS",Enc_Mst_Pais,"NOME")       'ler pais
   pt=84+10
   PrWIN TX_N,    pt,  2, @PaisNome
end if
end sub


'=============================================================================
' XLS - Funcoes comuns
'=============================================================================
Sub Xls_DocIni 'inicializar documento
dfi$ = FicEmp$("EMP","Ext","dExcel",cmo$)          'directorio de documentos EXCEL
nfi$ = "RND:EncMpv.xls"                            'nome do ficheiro
cmo$ = SigCmoCur$("MIX")                           'modulo corrente
ficDoc$ = FicTmp$(dfi$, nfi$)                      'ficheiro para documento
res = DirCri("D", dfi$)                            'criar directorio para documento

xlsMatNom$ = DocOpc$("DocMat")                     'nome do ficheiro matriz
xlsMat$    = DocOpc$("DocMat+SBT")                 'endereco do ficheiro matriz

res = FicCop(xlsMat$, ficDoc$)                     'criar ficheiro (copia de matriz)
res = XlsPrp(0)                                    'preparar EXCEL
res = XlsDocLer(ficDoc$)                           'ler ficheiro

'res = XlsDocCri("")                                'criar documento
end sub


Sub Xls_DocFim 'terminar documento
'res = XlsLinEli(xlsLin, 1)                         'eliminar linha - ultima
'res = XlsLinEli(xlsLba, 1)                         'eliminar linha - primeira

res = XlsDocDir$("A", dfi$)                        'activar directorio
res = XlsDocGrv(ficDoc$)                           'gravar ficheiro

'res = XlsPrt(1)                                    'listar worksheet
'res = XlsVer(0)                                    'mostrar EXCEL - normal
res = XlsVer(1)                                    'mostrar EXCEL - maximizado
res = XlsLib(0)                                    'libertar EXCEL
end sub


Sub Xls_DocCab 'cabecalho do documento
empNum$ = Emp_Inf_Cod$                             'numero da empresa
empNom$ = Emp_Inf_Nome$                            'nome da empresa
lstTit$ = MemTxt$(1)                               'titulo da listagem
lstTip$ = MemTxt$(2)                               'tipo da listagem
lstDt$  = FrmDt$("EXT", Sig_DtHoje)                'data para listagem

res = XlsIdeLst("Emp_Num", empNum$)                'numero da empresa
res = XlsIdeLst("Emp_Nome", empNom$)               'nome da empresa
res = XlsIdeLst("Lst_Tit", lstTit$)                'titulo da listagem
res = XlsIdeLst("Lst_Tipo", lstTip$)               'tipo da listagem
res = XlsIdeLst("Lst_Data", lstDt$)                'data
end sub


Sub Xls_LinInc 'incrementar linha
xlsLsa = xlsLin                                    'linha de saida
res = XlsLinIns(xlsLin, 1)                         'juntar linha

'seguinte
xlsLin = xlsLin + 1                                'contar linha
end sub


Sub Xls_LinIni 'iniciar linhas
res = XlsIdePsq("PO_BAS")                          'pesquisar posicao base
linBav = XlsIdePsqRes("L")                         'linha da posicao base

xlsLba = linBav                                    'linha base
xlsLin = linBav + 1                                'contador de linhas usadas
end sub


Sub Xls_LinFim 'fim de linhas
res = XlsLinEli(xlsLin, 1)                         'eliminar linha - ultima
res = XlsLinEli(xlsLba, 1)                         'eliminar linha - primeira

res = XlsIdePsq("PO_FIM")                          'pesquisar posicao final
linFim = XlsIdePsqRes("L")                         'linha da posicao final
end sub


'=============================================================================
' Listagem Mapa de Vendas para EXCEL
'=============================================================================
Sub XlsEncMpv_DocIni 'inicializar documento
call Xls_DocIni                                    'inicializar documento
call XlsEncMpv_Prep                                'preparar
Arg$=""
res =  SqlDbPrp(arg$)
end sub


Sub XlsEncMpv_DocFim 'terminar documento
call Xls_DocFim                                    'terminar/mostrar documento
end sub


Sub XlsEncMpv_Prep 'preparar para listar
res = XlsWks("Valores")                            'activar worksheet
call Xls_DocCab                                    'cabecalho do documento
res = XlsIdeLst("Lst_Tipo", "")                    'anular tipo da listagem

call Xls_LinIni                                    'iniciar linhas

'definicao das colunas
coCt  = 2                                          'codigo conta
coIde = 3                                          'nome
coDoc = 4                                          'documento
coPtv = 5                                          'posto de venda/vendedor
coVnd = 6                                          'vendedor
coDt  = 7                                          'data do documento
coIlq = 8                                          'valor iliquido
coIva = 9                                          'iva
coDes =10                                          'desconto
coLiq =11                                          'liquido
coPai =12                                          'pais
coMoe =13                                          'moeda
end sub


Sub XlsEncMpv_Lin 'linha de valores
call XlsEncMpv_IncLin 				   'incrementar linha	

'valores a listar
cod$ = Enc_Mst_Ctent$                                                                 'conta
ide$ = left$(VarAlt$("ENC_MST","Cta_Mst_Nome$"),30)                                   'identificacao
doc$ = FrmNdo$("",Enc_Mst_Tdoc$,Enc_Mst_Ndoc$)                                        'documento
ptv  = Enc_Mst_Ptv                                                                    'posto de venda
vnd  = Enc_Mst_Vend                                                                   'vendedor 
data$= FrmVal$(Enc_Mst_Dtl,44,0)                                                      'data documento
VlIlq = 0
Call ve_IvaInc
ilq  = MoeCnv("N",Enc_Mst_Ilq-VlIlq,Enc_Mst_Moeda,Emp_Inf_Moeda)                            'iliquido
iva  = MoeCnv("I",Ado_Tot_Iva,Enc_Mst_Moeda,Emp_Inf_Moeda)                            'iva
des  = MoeCnv("N",Ado_Tot_Desco,Enc_Mst_Moeda,Emp_Inf_Moeda)                          'desconto 
liq  = MoeCnv("N",Enc_Mst_Ilq+Ado_Tot_Iva-Ado_Tot_Desco-VlIlq,Enc_Mst_Moeda,Emp_Inf_Moeda)  'liquido
pais = Enc_Mst_Pais                                                                   'pais
moe  = Enc_Mst_Moeda                                                                  'moeda

'listar
res = XlsLst(liUsa,coCt , cod$)                    'codigo
res = XlsLst(liUsa,coIde, ide$)                    'identificacao
res = XlsLst(liUsa,coDoc, doc$)                    'documento
res = XlsLst(liUsa,coPtv, ptv)                     'posto de venda
res = XlsLst(liUsa,coVnd, vnd)                     'vendedor
res = XlsLst(liUsa,coDt , data$)                   'data documento
res = XlsLst(liUsa,coIlq, ilq)                     'iliquido
res = XlsLst(liUsa,coIva, iva)                     'iva
res = XlsLst(liUsa,coDes, des)                     'desconto
res = XlsLst(liUsa,coLiq, liq)                     'liquido
res = XlsLst(liUsa,coPai, pais)                    'pais
res = XlsLst(liUsa,coMoe, moe)                     'moeda

'acumular
res = AcmExe("TILQ", ilq)                          'iliquido
res = AcmExe("TIVA", iva)                          'iva
res = AcmExe("TDES", des)                          'descontos
res = AcmExe("TLIQ", liq)                          'liquido

'seguinte
'call Xls_IncLin                                    'incrementar linha
End sub

Sub Ve_IvaInc 'verifica se tem iva incluido
TdocG$ = Enc_Mst_Tdoc$
NdocG$ = Enc_Mst_Ndoc$
idq1$  = "1"

Sql$=       "SELECT * FROM EncMov"
Sql$=Sql$ + " WHERE EncMov.Tdoc$='"+TdocG$+"'"+" AND EncMov.Ndoc$='"+NdocG$+"'"

res = SqlQryGer(idq1$,sql$)   'gerar recordset
'msgbox "",res,Sql$

while res=1
IvaG     = SqlQryCmp(idq1$,"Iva")

if IvaG > 100   then
   Tx$ = "23"
   Tx1$ = "IVA"
   VlBase = SqlQryCmp(idq1$,"Prc")
   VlIva = IvaIncSep(Tx1$,VlBase,Tx$,2,.01)
   VlIlq  = VlIlq + VlIva
end if

Res   = SqlQryRgs(idq1$)
wend
End Sub


Sub XlsEncMpv_IncLin 'incrementar linha	
call Xls_LinInc                                    'incrementar linha
liUsa =  xlsLsa                                    'linha a usar

zon$= XlsZonNum$("L", liUsa)                       'zona da linha
res = XlsFon(zon$, ",,B-I-")                       'activar fonte bold, italico
end sub



Sub XlsEncMpv_Fim 'terminar
call Xls_LinFim                                    'fim de linhas
liUsa = linFim                                     'linha a usar

'totais
Tilq   = Total("TILQ", 0)                          'iliquido
Tiva   = Total("TIVA", 0)                          'iva
Tdes   = Total("TDES", 0)                          'descontos
Tliq   = Total("TLIQ", 0)                          'liquido

'listar
res = XlsLst(liUsa,coIlq, Tilq)                    'iliquido
res = XlsLst(liUsa,coIva, Tiva)                    'iva
res = XlsLst(liUsa,coDes, Tdes)                    'desconto
res = XlsLst(liUsa,coLiq, Tliq)                    'liquido

'mostrar
res = XlsWksAct("A", 1)                            'activar worksheet
end sub


'=============================================================================
' Listagem Mapa de Vendas+Quantidades para EXCEL
'=============================================================================
'---------------------------------------------------------->'Comentario (61)
'------------------------------------------------->'Comentario (52)
'------------------------------------->'Comentario (40)

Sub XlsEncMpvQu_DocIni 'inicializar documento
call Xls_DocIni                                    'inicializar documento
call XlsEncMpvQu_Prep                              'preparar
end sub


Sub XlsEncMpvQu_DocFim 'terminar documento
call Xls_DocFim                                    'terminar/mostrar documento
end sub


Sub XlsEncMpvQu_Prep 'preparar para listar
res = XlsWks("Valores")                            'activar worksheet
call Xls_DocCab                                    'cabecalho do documento
res = XlsIdeLst("Lst_Tipo", "")                    'anular tipo da listagem

call Xls_LinIni                                    'iniciar linhas

'definicao das colunas
coCt  = 2                                          'codigo conta
coIde = 3                                          'nome
coCtb = 4                                          'contribuinte
coDoc = 5                                          'documento
coVnd = 6                                          'vendedor
coDt  = 7                                          'data do documento
coTot = 8                                          'total documento
coQu1 = 9                                          'quantidade 1
coQu2 =10                                          'quantidade 2
coQuM =11                                          'quantidade/medidas
end sub


Sub XlsEncMpvQu_Lin 'linha de valores
call XlsEncMpvQu_IncLin                            'incrementar linha	

'valores a listar
cod$  = Enc_Mst_Ctent$                                                                 'conta
ide$  = left$(VarAlt$("ENC_MST","Cta_Mst_Nome$"),30)                                   'identificacao
ctb$  = Cta_Mst_Ctrb$                                                                  'contribuinte
doc$  = FrmNdo$("",Enc_Mst_Tdoc$,Enc_Mst_Ndoc$)                                        'documento
vnd   = Enc_Mst_Vend                                                                   'vendedor 
data$ = FrmVal$(Enc_Mst_Dtl,44,0)                                                      'data documento
tot   = MoeCnv("N",Enc_Mst_Ilq+Ado_Tot_Iva-Ado_Tot_Desco,Enc_Mst_Moeda,Emp_Inf_Moeda)  'liquido
qu1   = MemNum(32)                                                                     'quantidade 1 
qu2   = MemNum(33)                                                                     'quantidade 2
quM   = MemNum(34)                                                                     'quantidade medidas 

'listar
res = XlsLst(liUsa,coCt , cod$)                    'codigo
res = XlsLst(liUsa,coIde, ide$)                    'identificacao
res = XlsLst(liUsa,coCtb, ctb$)                    'contribuinte
res = XlsLst(liUsa,coDoc, doc$)                    'documento
res = XlsLst(liUsa,coVnd, vnd)                     'vendedor
res = XlsLst(liUsa,coDt , data$)                   'data documento
res = XlsLst(liUsa,coTot, tot)                     'liquido
res = XlsLst(liUsa,coQu1, qu1)                     'quantidade 1
res = XlsLst(liUsa,coQu2, qu2)                     'quantidade 2
res = XlsLst(liUsa,coQuM, quM)                     'quantidade medidas

'acumular
res = AcmExe("TLIQ", tot)                          'liquido
res = AcmExe("TQU1", qu1)                          'quantidade 1
res = AcmExe("TQU2", qu2)                          'quantidade 2
res = AcmExe("TQUM", quM)                          'quantidade medidas
End sub


Sub XlsEncMpvQu_IncLin 'incrementar linha	
call Xls_LinInc                                    'incrementar linha
liUsa =  xlsLsa                                    'linha a usar

zon$= XlsZonNum$("L", liUsa)                       'zona da linha
res = XlsFon(zon$, ",,B-I-")                       'activar fonte bold, italico
end sub


Sub XlsEncMpvQu_Fim 'terminar
call Xls_LinFim                                    'fim de linhas
liUsa = linFim

'totais
Ttot = Total("TLIQ", 0)                            'liquido
Tqu1 = Total("TQU1", 0)                            'quantidade 1
Tqu2 = Total("TQU2", 0)                            'quantidade 2
TquM = Total("TQUM", 0)                            'quantidade medidas

'listar
res = XlsLst(liUsa,coTot, Ttot)                    'liquido
res = XlsLst(liUsa,coQu1, Tqu1)                    'quantidade 1
res = XlsLst(liUsa,coQu2, Tqu2)                    'quantidade 2
res = XlsLst(liUsa,coQuM, TquM)                    'quantidade medidas

'mostrar
res = XlsWksAct("A", 1)                            'activar worksheet
end sub


'=============================================================================
' Resumo de Vendas (EXCEL)
'=============================================================================
Sub XlsResVnd_DocIni 'inicializar documento
call Xls_DocIni                                    'inicializar documento
call XlsResVnd_Prep                                'preparar
end sub


Sub XlsResVnd_DocFim 'terminar documento
call Xls_DocFim                                    'terminar/mostrar documento
end sub


Sub XlsResVnd_Prep 'preparar para listar
res = XlsWks("Valores")                            'activar worksheet
call Xls_DocCab                                    'cabecalho do documento
res = XlsIdeLst("Lst_Tit", "")                     'anular titulo da listagem
call Xls_LinIni                                    'iniciar linhas

'definicao das colunas
coTip = 2                                          'tipo documento
coDoc = 3                                          'documento
coVnd = 4                                          'vendedor
coDat = 5                                          'data
coCod = 6                                          'condicoes pagamento - codigo
coCpg = 7                                          'condicoes pagamento - texto
coDes = 8                                          'desconto
coTot = 9                                          'total
end sub


Sub XlsResVnd_IncLin 'incrementar linha	
call Xls_LinInc                                    'incrementar linha
liUsa =  xlsLsa                                    'linha a usar

zon$= XlsZonNum$("L", liUsa)                       'zona da linha
res = XlsFon(zon$, ",,B-I-")                       'desactivar fonte bold, italico
end sub


Sub XlsResVnd_Lin 'linha de valores
call XlsResVnd_IncLin                              'incrementar linha	

'valores a listar
tip$  = Enc_Mst_Tdoc$                                                                  'documento - tipo
ndo$  = FrmNdo$("","",Enc_Mst_Ndoc$)                                                   'documento - numero
vnd   = Enc_Mst_Vend                                                                   'vendedor 
data$ = FrmVal$(Enc_Mst_Dtl,44,0)                                                      'data documento
cpc   = Enc_Mst_CpagCod                                                                'condicoes de pagamento - texto  
cpt$  = MemTxt$(2)                                                                     'condicoes de pagamento - codigo
desc  = MoeCnv("N",Ado_Tot_Desco,Enc_Mst_Moeda,Emp_Inf_Moeda)                          'desconto 
totg  = MoeCnv("N",Enc_Mst_Ilq+Ado_Tot_Iva-Ado_Tot_Desco,Enc_Mst_Moeda,Emp_Inf_Moeda)  'liquido

'listar
res = XlsLst(liUsa, coTip, tip$)                   'documento - tipo
res = XlsLst(liUsa, coDoc, ndo$)                   'documento - numero
res = XlsLst(liUsa, coVnd, vnd)                    'vendedor
res = XlsLst(liUsa, coDat, data$)                  'data
res = XlsLst(liUsa, coCod, cpc)                    'condicoes de pagamento - codigo
res = XlsLst(liUsa, coCpg, cpt$)                   'condicoes de pagamento - texto
res = XlsLst(liUsa, coDes, desc)                   'desconto
res = XlsLst(liUsa, coTot, totg)                   'total

'acumular
res = AcmExe("SDES", desc)                         'subtotal - descontos
res = AcmExe("STOT", totg)                         'subtotal - total
end sub


Sub XlsResVnd_LinTit 'titulo de grupo
call XlsResVnd_IncLin                              'incrementar linha

ct$ = Enc_Mst_Ctent$                               'conta
ide$= left$(VarAlt$("ENC_MST","Cta_Mst_Nome$"),30) 'listar conta

'listar
res = XlsLst(liUsa, coDoc, ct$)                    'escrever codigo
res = XlsLst(liUsa, coVnd, ide$)                   'escrever nome

zon$= XlsZonNum$("L", liUsa)                       'zona da linha
res = XlsFon(zon$, ",,B+I+")                      'activar fonte bold, italico
end sub


Sub XlsResVnd_LinSt 'linha de subtotal
call XlsResVnd_IncLin                              'incrementar linha

'valores a listar
ide$ = "Subtotal"                                  'identificacao

sd1   = Total("SDES", 1)                           'descontos
st1   = Total("STOT", 1)                           'total

'listar
res = XlsLst(liUsa, coCpg, ide$)                   'titulo
res = XlsLst(liUsa, coDes, sd1)                    'desconto
res = XlsLst(liUsa, coTot, st1)                    'total

zon$= XlsZonNum$("L", liUsa)                       'zona da linha
res = XlsFon(zon$, ",,B+I+")                       'activar fonte bold, italico

x=TotLpz(1)                                        'limpar totais
end sub


Sub XlsResVnd_LinSep 'linha de separacao
call XlsResVnd_IncLin                              'incrementar linha
end sub


Sub XlsResVnd_Fim 'terminar
call Xls_LinFim                                    'fim de linhas

'valores a listar
Tdes   = Total("SDES", 0)                          'descontos
Ttot   = Total("STOT", 0)                          'total

'listar
liUsa = linFim                                     'linha a usar

res = XlsLst(liUsa, coDes, Tdes)                   'total descontos
res = XlsLst(liUsa, coTot, Ttot)                   'total valor

'mostrar
res = XlsWksAct("A", 1)                            'activar worksheet
end sub


'=============================================================================
' Mapa de IVA (EXCEL)
'=============================================================================
Sub XlsMapIva_DocIni 'inicializar documento
call Xls_DocIni                                    'inicializar documento
call XlsMapIva_Prep                                'preparar
call XlsMapIva_Cab                                 'cabecalho	
end sub


Sub XlsMapIva_DocFim 'terminar documento
call Xls_DocFim                                    'terminar/mostrar documento
end sub


Sub XlsMapIva_Cab 'cabecalho	
empNum$ = Emp_Inf_Cod$                             'numero da empresa
empNom$ = Emp_Inf_Nome$                            'nome da empresa
lstTit$ = MemTxt$(1)                               'titulo da listagem
lstTip$ = MemTxt$(2)                               'tipo da listagem
lstDt$  = FrmDt$("EXT", Sig_DtHoje)                'data para listagem

'nomes dos meses
tit1$ = "Taxa 1 : "+IvaTax(1)+"%"                  'titulo 1
tit2$ = "Taxa 2 : "+IvaTax(2)+"%"                  'titulo 2
tit3$ = "Taxa 3 : "+IvaTax(3)+"%"                  'titulo 3
tit4$ = "Taxa 4 : "+IvaTax(4)+"%"                  'titulo 4
tit5$ = "Taxa 5 : "+IvaTax(5)+"%"                  'titulo 5
tit6$ = "Taxa 6 : "+IvaTax(6)+"%"                  'titulo 6

res = XlsIdeLst("Emp_Num", empNum$)                'numero da empresa
res = XlsIdeLst("Emp_Nome", empNom$)               'nome da empresa
res = XlsIdeLst("Lst_Tit", lstTit$)                'titulo da listagem
res = XlsIdeLst("Lst_Tipo", lstTip$)               'tipo da listagem
res = XlsIdeLst("Lst_Data", lstDt$)                'data
res = XlsIdeLst("TIT1",tit1$)                      'titulo 1
res = XlsIdeLst("TIT2",tit2$)                      'titulo 2
res = XlsIdeLst("TIT3",tit3$)                      'titulo 3
res = XlsIdeLst("TIT4",tit4$)                      'titulo 4
res = XlsIdeLst("TIT5",tit5$)                      'titulo 5
res = XlsIdeLst("TIT6",tit6$)                      'titulo 6
end sub


Sub XlsMapIva_Prep 'preparar para listar
res = XlsWks("Valores")                            'activar worksheet
call Xls_DocCab                                    'cabecalho do documento
res = XlsIdeLst("Lst_Tipo", "")                    'anular tipo da listagem
call Xls_LinIni                                    'iniciar linhas

'definicao das colunas
coDoc = 2                                          'documento
coDat = 3                                          'data
coIse = 4                                          'valores isentos
coInc1= 5                                          'incidencias taxa 1
coVal1= 6                                          'valor taxa 1
coInc2= 7                                          'incidencias taxa 2
coVal2= 8                                          'valor taxa 2
coInc3= 9                                          'incidencias taxa 3
coVal3=10                                          'valor taxa 3
coInc4=11                                          'incidencias taxa 4
coVal4=12                                          'valor taxa 4
coInc5=13                                          'incidencias taxa 5
coVal5=14                                          'valor taxa 5
coInc6=15                                          'incidencias taxa 6
coVal6=16                                          'valor taxa 6
end sub


Sub XlsMapIva_IncLin 'incrementar linha	
call Xls_LinInc                                    'incrementar linha
liUsa =  xlsLsa                                    'linha a usar

zon$= XlsZonNum$("L", liUsa)                       'zona da linha
res = XlsFon(zon$, ",,B-I-")                       'desactivar fonte bold, italico
end sub


Sub XlsMapIva_Lin 'linha de valores
call XlsMapIva_IncLin                              'incrementar linha	

'valores a listar
ndo$  = FrmNdo$("","",Enc_Mst_Ndoc$)               'documento - numero
data$ = FrmVal$(Enc_Mst_Dtl,44,0)                  'data documento

IncT1 = IvaInc(0,1)                                'taxa 1 - valor de incidencia
IncT2 = IvaInc(0,2)                                'taxa 2 - valor de incidencia
IncT3 = IvaInc(0,3)                                'taxa 3 - valor de incidencia
IncT4 = IvaInc(0,4)                                'taxa 4 - valor de incidencia
IncT5 = IvaInc(0,5)                                'taxa 5 - valor de incidencia
IncT6 = IvaInc(0,6)                                'taxa 6 - valor de incidencia

IvaT1 = IvaVal(0,1)                                'taxa 1 - valor do IVA
IvaT2 = IvaVal(0,2)                                'taxa 2 - valor do IVA
IvaT3 = IvaVal(0,3)                                'taxa 3 - valor do IVA
IvaT4 = IvaVal(0,4)                                'taxa 4 - valor do IVA
IvaT5 = IvaVal(0,5)                                'taxa 5 - valor do IVA
IvaT6 = IvaVal(0,6)                                'taxa 6 - valor do IVA

DocTot= Enc_Mst_ValTot                             'total do documento
IvaTot= Doc_Tot_IVA                                'total do IVA
IseTot= Doc_Tot_IVAISE                             'total valores isentos

'colunas
coDoc = 2                                          'documento
coDat = 3                                          'data
coIse = 4                                          'valores isentos
coInc1= 5                                          'incidencias taxa 1
coVal1= 6                                          'valor taxa 1
coInc2= 7                                          'incidencias taxa 2
coVal2= 8                                          'valor taxa 2
coInc3= 9                                          'incidencias taxa 3
coVal3=10                                          'valor taxa 3
coInc4=11                                          'incidencias taxa 4
coVal4=12                                          'valor taxa 4
coInc5=13                                          'incidencias taxa 5
coVal5=14                                          'valor taxa 5
coInc6=15                                          'incidencias taxa 6
coVal6=16                                          'valor taxa 6
coTdoc=17                                          'total documento
coTiva=18                                          'total iva

'listar
res = XlsLst(liUsa, coDoc, ndo$)                   'documento
res = XlsLst(liUsa, coDat, data$)                  'data
res = XlsLst(liUsa, coIse, IseTot)                 'valores isentos
res = XlsLst(liUsa, coInc1,IncT1)                  'taxa 1 - incidencia
res = XlsLst(liUsa, coVal1,IvaT1)                  'taxa 1 - valor
res = XlsLst(liUsa, coInc2,IncT2)                  'taxa 2 - incidencia
res = XlsLst(liUsa, coVal2,IvaT2)                  'taxa 2 - valor
res = XlsLst(liUsa, coInc3,IncT3)                  'taxa 3 - incidencia
res = XlsLst(liUsa, coVal3,IvaT3)                  'taxa 3 - valor
res = XlsLst(liUsa, coInc4,IncT4)                  'taxa 4 - incidencia
res = XlsLst(liUsa, coVal4,IvaT4)                  'taxa 4 - valor
res = XlsLst(liUsa, coInc5,IncT5)                  'taxa 5 - incidencia
res = XlsLst(liUsa, coVal5,IvaT5)                  'taxa 5 - valor
res = XlsLst(liUsa, coInc6,IncT6)                  'taxa 6 - incidencia
res = XlsLst(liUsa, coVal6,IvaT6)                  'taxa 6 - valor
res = XlsLst(liUsa, coTdoc,DocTot)                 'total documento
res = XlsLst(liUsa, coTiva,IvaTot)                 'total iva

'acumular
res = AcmExe("TISE" , IseTot)                      'total valores isentos
res = AcmExe("TINC1", incT1)                       'taxa 1 - incidencias
res = AcmExe("TIVA1", ivaT1)                       'taxa 1 - valor
res = AcmExe("TINC2", incT2)                       'taxa 1 - incidencias
res = AcmExe("TIVA2", ivaT2)                       'taxa 1 - valor
res = AcmExe("TINC3", incT3)                       'taxa 1 - incidencias
res = AcmExe("TIVA3", ivaT3)                       'taxa 1 - valor
res = AcmExe("TINC4", incT4)                       'taxa 1 - incidencias
res = AcmExe("TIVA4", ivaT4)                       'taxa 1 - valor
res = AcmExe("TINC5", incT5)                       'taxa 1 - incidencias
res = AcmExe("TIVA5", ivaT5)                       'taxa 1 - valor
res = AcmExe("TINC6", incT6)                       'taxa 1 - incidencias
res = AcmExe("TIVA6", ivaT6)                       'taxa 1 - valor
res = AcmExe("TDOC" , DocTot)                      'total documento
res = AcmExe("TIVA",  IvaTot)                      'total IVA
end sub


Sub XlsMapIva_Fim 'terminar
call Xls_LinFim                                    'fim de linhas

'valores a listar
TotIse    = Total("TISE" , 0)                      'total valores isentos
TotInc1   = Total("TINC1", 0)                      'taxa 1 - incidencias (total)
TotIva1   = Total("TIVA1", 0)                      'taxa 1 - valor (total)
TotInc2   = Total("TINC2", 0)                      'taxa 2 - incidencias (total)
TotIva2   = Total("TIVA2", 0)                      'taxa 2 - valor (total)
TotInc3   = Total("TINC3", 0)                      'taxa 3 - incidencias (total)
TotIva3   = Total("TIVA3", 0)                      'taxa 3 - valor (total)
TotInc4   = Total("TINC4", 0)                      'taxa 4 - incidencias (total)
TotIva4   = Total("TIVA4", 0)                      'taxa 4 - valor (total)
TotInc5   = Total("TINC5", 0)                      'taxa 5 - incidencias (total)
TotIva5   = Total("TIVA5", 0)                      'taxa 5 - valor (total)
TotInc6   = Total("TINC6", 0)                      'taxa 6 - incidencias (total)
TotIva6   = Total("TIVA6", 0)                      'taxa 6 - valor (total)
TotDoc    = Total("TDOC" , 0)                      'total documento
TotIva    = Total("TIVA" , 0)                      'total IVA

'listar
liUsa = linFim                                     'linha a usar

res = XlsLst(liUsa, coIse ,TotIse)                 'valores isentos
res = XlsLst(liUsa, coInc1,TotInc1)                'taxa 1 - incidencia
res = XlsLst(liUsa, coVal1,TotIva1)                'taxa 1 - valor
res = XlsLst(liUsa, coInc2,TotInc2)                'taxa 2 - incidencia
res = XlsLst(liUsa, coVal2,TotIva2)                'taxa 2 - valor
res = XlsLst(liUsa, coInc3,TotInc3)                'taxa 3 - incidencia
res = XlsLst(liUsa, coVal3,TotIva3)                'taxa 3 - valor
res = XlsLst(liUsa, coInc4,TotInc4)                'taxa 4 - incidencia
res = XlsLst(liUsa, coVal4,TotIva4)                'taxa 4 - valor
res = XlsLst(liUsa, coInc5,TotInc5)                'taxa 5 - incidencia
res = XlsLst(liUsa, coVal5,TotIva5)                'taxa 5 - valor
res = XlsLst(liUsa, coInc6,TotInc6)                'taxa 6 - incidencia
res = XlsLst(liUsa, coVal6,TotIva6)                'taxa 6 - valor
res = XlsLst(liUsa, coTdoc,TotDoc)                 'valores documento
res = XlsLst(liUsa, coTiva,TotIva)                 'valores iva

'mostrar
res = XlsWksAct("A", 1)                            'activar worksheet
end sub


'=============================================================================
' Mapa de IVA incluido (EXCEL)
'=============================================================================
Sub XlsMapIvaI_DocIni 'inicializar documento
call Xls_DocIni                                    'inicializar documento
call XlsMapIvaI_Prep                               'preparar
call XlsMapIvaI_Cab                                'cabecalho	
end sub


Sub XlsMapIvaI_DocFim 'terminar documento
call Xls_DocFim                                    'terminar/mostrar documento
end sub


Sub XlsMapIvaI_Cab 'cabecalho	
empNum$ = Emp_Inf_Cod$                             'numero da empresa
empNom$ = Emp_Inf_Nome$                            'nome da empresa
lstTit$ = MemTxt$(1)                               'titulo
lstTip$ = MemTxt$(2)                               'tipo da listagem
lstDt$  = FrmDt$("EXT", Sig_DtHoje)                'data para listagem

'nomes dos meses
tit1$ = "Taxa 1 : "+IvaTax(1)+"%"                  'titulo 1
tit2$ = "Taxa 2 : "+IvaTax(2)+"%"                  'titulo 2
tit3$ = "Taxa 3 : "+IvaTax(3)+"%"                  'titulo 3
tit4$ = "Taxa 4 : "+IvaTax(4)+"%"                  'titulo 4
tit5$ = "Taxa 5 : "+IvaTax(5)+"%"                  'titulo 5
tit6$ = "Taxa 6 : "+IvaTax(6)+"%"                  'titulo 6

res = XlsIdeLst("Emp_Num", empNum$)                'numero da empresa
res = XlsIdeLst("Emp_Nome", empNom$)               'nome da empresa
res = XlsIdeLst("Lst_Tit", lstTit$)                'titulo da listagem
res = XlsIdeLst("Lst_Tipo", lstTip$)               'tipo da listagem
res = XlsIdeLst("Lst_Data", lstDt$)                'data
res = XlsIdeLst("TIT1",tit1$)                      'titulo 1
res = XlsIdeLst("TIT2",tit2$)                      'titulo 2
res = XlsIdeLst("TIT3",tit3$)                      'titulo 3
res = XlsIdeLst("TIT4",tit4$)                      'titulo 4
res = XlsIdeLst("TIT5",tit5$)                      'titulo 5
res = XlsIdeLst("TIT6",tit6$)                      'titulo 6
end sub


Sub XlsMapIvaI_Prep 'preparar para listar
res = XlsWks("Valores")                            'activar worksheet
call Xls_DocCab                                    'cabecalho do documento
res = XlsIdeLst("Lst_Tipo", "")                    'anular tipo da listagem
call Xls_LinIni                                    'iniciar linhas

'definicao das colunas
coDoc = 2                                          'documento
coDat = 3                                          'data
coIse = 4                                          'valores isentos
coInc1= 5                                          'incidencias taxa 1
coVal1= 6                                          'valor taxa 1
coInc2= 7                                          'incidencias taxa 2
coVal2= 8                                          'valor taxa 2
coInc3= 9                                          'incidencias taxa 3
coVal3=10                                          'valor taxa 3
coInc4=11                                          'incidencias taxa 4
coVal4=12                                          'valor taxa 4
coInc5=13                                          'incidencias taxa 5
coVal5=14                                          'valor taxa 5
coInc6=15                                          'incidencias taxa 6
coVal6=16                                          'valor taxa 6
end sub


Sub XlsMapIvaI_IncLin 'incrementar linha	
call Xls_LinInc                                    'incrementar linha
liUsa =  xlsLsa                                    'linha a usar

zon$= XlsZonNum$("L", liUsa)                       'zona da linha
res = XlsFon(zon$, ",,B-I-")                       'desactivar fonte bold, italico
end sub


Sub XlsMapIvaI_Lin 'linha de valores
call XlsMapIva_IncLin                              'incrementar linha	

'valores a listar
ndo$  = FrmNdo$("","",Enc_Mst_Ndoc$)               'documento - numero
data$ = FrmVal$(Enc_Mst_Dtl,44,0)                  'data documento

IncT1 = IvaInc(1,1)                                'taxa 1 - valor de incidencia
IncT2 = IvaInc(1,2)                                'taxa 2 - valor de incidencia
IncT3 = IvaInc(1,3)                                'taxa 3 - valor de incidencia
IncT4 = IvaInc(1,4)                                'taxa 4 - valor de incidencia
IncT5 = IvaInc(1,5)                                'taxa 5 - valor de incidencia
IncT6 = IvaInc(1,6)                                'taxa 6 - valor de incidencia

IvaT1 = IvaVal(1,1)                                'taxa 1 - valor do IVA
IvaT2 = IvaVal(1,2)                                'taxa 2 - valor do IVA
IvaT3 = IvaVal(1,3)                                'taxa 3 - valor do IVA
IvaT4 = IvaVal(1,4)                                'taxa 4 - valor do IVA
IvaT5 = IvaVal(1,5)                                'taxa 5 - valor do IVA
IvaT6 = IvaVal(1,6)                                'taxa 6 - valor do IVA

DocTot= Enc_Mst_ValTot                             'total do documento
IvaTot= Doc_Tot_IVA                                'total do IVA
IseTot= Doc_Tot_IVAISE                             'total valores isentos

coDoc = 2                                          'documento
coDat = 3                                          'data
coIse = 4                                          'valores isentos
coInc1= 5                                          'incidencias taxa 1
coVal1= 6                                          'valor taxa 1
coInc2= 7                                          'incidencias taxa 2
coVal2= 8                                          'valor taxa 2
coInc3= 9                                          'incidencias taxa 3
coVal3=10                                          'valor taxa 3
coInc4=11                                          'incidencias taxa 4
coVal4=12                                          'valor taxa 4
coInc5=13                                          'incidencias taxa 5
coVal5=14                                          'valor taxa 5
coInc6=15                                          'incidencias taxa 6
coVal6=16                                          'valor taxa 6
coTdoc=17                                          'total documento
coTiva=18                                          'total iva

'listar
res = XlsLst(liUsa, coDoc, ndo$)                   'documento
res = XlsLst(liUsa, coDat, data$)                  'data
res = XlsLst(liUsa, coIse, IseTot)                 'valores isentos
res = XlsLst(liUsa, coInc1,IncT1)                  'taxa 1 - incidencia
res = XlsLst(liUsa, coVal1,IvaT1)                  'taxa 1 - valor
res = XlsLst(liUsa, coInc2,IncT2)                  'taxa 2 - incidencia
res = XlsLst(liUsa, coVal2,IvaT2)                  'taxa 2 - valor
res = XlsLst(liUsa, coInc3,IncT3)                  'taxa 3 - incidencia
res = XlsLst(liUsa, coVal3,IvaT3)                  'taxa 3 - valor
res = XlsLst(liUsa, coInc4,IncT4)                  'taxa 4 - incidencia
res = XlsLst(liUsa, coVal4,IvaT4)                  'taxa 4 - valor
res = XlsLst(liUsa, coInc5,IncT5)                  'taxa 5 - incidencia
res = XlsLst(liUsa, coVal5,IvaT5)                  'taxa 5 - valor
res = XlsLst(liUsa, coInc6,IncT6)                  'taxa 6 - incidencia
res = XlsLst(liUsa, coVal6,IvaT6)                  'taxa 6 - valor
res = XlsLst(liUsa, coTdoc,DocTot)                 'total documento
res = XlsLst(liUsa, coTiva,IvaTot)                 'total iva

'acumular
res = AcmExe("TISE" , IseTot)                      'total valores isentos
res = AcmExe("TINC1", incT1)                       'taxa 1 - incidencias
res = AcmExe("TIVA1", ivaT1)                       'taxa 1 - valor
res = AcmExe("TINC2", incT2)                       'taxa 1 - incidencias
res = AcmExe("TIVA2", ivaT2)                       'taxa 1 - valor
res = AcmExe("TINC3", incT3)                       'taxa 1 - incidencias
res = AcmExe("TIVA3", ivaT3)                       'taxa 1 - valor
res = AcmExe("TINC4", incT4)                       'taxa 1 - incidencias
res = AcmExe("TIVA4", ivaT4)                       'taxa 1 - valor
res = AcmExe("TINC5", incT5)                       'taxa 1 - incidencias
res = AcmExe("TIVA5", ivaT5)                       'taxa 1 - valor
res = AcmExe("TINC6", incT6)                       'taxa 1 - incidencias
res = AcmExe("TIVA6", ivaT6)                       'taxa 1 - valor
res = AcmExe("TDOC" , DocTot)                      'total documento
res = AcmExe("TIVA",  IvaTot)                      'total IVA
end sub


Sub XlsMapIvaI_Fim 'terminar
call Xls_LinFim                                    'fim de linhas

'valores a listar
TotIse    = Total("TISE" , 0)                      'total valores isentos
TotInc1   = Total("TINC1", 0)                      'taxa 1 - incidencias (total)
TotIva1   = Total("TIVA1", 0)                      'taxa 1 - valor (total)
TotInc2   = Total("TINC2", 0)                      'taxa 2 - incidencias (total)
TotIva2   = Total("TIVA2", 0)                      'taxa 2 - valor (total)
TotInc3   = Total("TINC3", 0)                      'taxa 3 - incidencias (total)
TotIva3   = Total("TIVA3", 0)                      'taxa 3 - valor (total)
TotInc4   = Total("TINC4", 0)                      'taxa 4 - incidencias (total)
TotIva4   = Total("TIVA4", 0)                      'taxa 4 - valor (total)
TotInc5   = Total("TINC5", 0)                      'taxa 5 - incidencias (total)
TotIva5   = Total("TIVA5", 0)                      'taxa 5 - valor (total)
TotInc6   = Total("TINC6", 0)                      'taxa 6 - incidencias (total)
TotIva6   = Total("TIVA6", 0)                      'taxa 6 - valor (total)
TotDoc    = Total("TDOC" , 0)                      'total documento
TotIva    = Total("TIVA" , 0)                      'total IVA

'listar
liUsa = linFim                                     'linha a usar

res = XlsLst(liUsa, coIse ,TotIse)                 'valores isentos
res = XlsLst(liUsa, coInc1,TotInc1)                'taxa 1 - incidencia
res = XlsLst(liUsa, coVal1,TotIva1)                'taxa 1 - valor
res = XlsLst(liUsa, coInc2,TotInc2)                'taxa 2 - incidencia
res = XlsLst(liUsa, coVal2,TotIva2)                'taxa 2 - valor
res = XlsLst(liUsa, coInc3,TotInc3)                'taxa 3 - incidencia
res = XlsLst(liUsa, coVal3,TotIva3)                'taxa 3 - valor
res = XlsLst(liUsa, coInc4,TotInc4)                'taxa 4 - incidencia
res = XlsLst(liUsa, coVal4,TotIva4)                'taxa 4 - valor
res = XlsLst(liUsa, coInc5,TotInc5)                'taxa 5 - incidencia
res = XlsLst(liUsa, coVal5,TotIva5)                'taxa 5 - valor
res = XlsLst(liUsa, coInc6,TotInc6)                'taxa 6 - incidencia
res = XlsLst(liUsa, coVal6,TotIva6)                'taxa 6 - valor
res = XlsLst(liUsa, coTdoc,TotDoc)                 'valores documento
res = XlsLst(liUsa, coTiva,TotIva)                 'valores iva

'mostrar
res = XlsWksAct("A", 1)                            'activar worksheet
end sub


'=============================================================================
' Mapa de Comissoes de Vendedor (I)(EXCEL)
'=============================================================================
Sub XlsMcvI_DocIni 'inicializar documento
call Xls_DocIni                                    'inicializar documento
call XlsMcvI_Prep                                  'preparar
end sub


Sub XlsMcvI_DocFim 'terminar documento
call Xls_DocFim                                    'terminar/mostrar documento
end sub


Sub XlsMcvI_Prep 'preparar para listar
res = XlsWks("Valores")                            'activar worksheet
call Xls_DocCab                                    'cabecalho do documento
res = XlsIdeLst("Lst_Tit", "")                     'anular titulo da listagem
call Xls_LinIni                                    'iniciar linhas

'definicao das colunas
coCte = 2                                          'conta
coNom = 3                                          'nome
coTip = 4                                          'tipo documento
coNdo = 5                                          'numero documento
coDtd = 6                                          'data documento
coDtv = 7                                          'data vencimento
coTot = 8                                          'valor documento
coInc = 9                                          'valor incidencia
coCom =10                                          'valor comissao
end sub


Sub XlsMcvI_IncLin 'incrementar linha	
call Xls_LinInc                                    'incrementar linha
liUsa =  xlsLsa                                    'linha a usar

zon$= XlsZonNum$("L", liUsa)                       'zona da linha
res = XlsFon(zon$, ",,B-I-")                       'desactivar fonte bold, italico
end sub


Sub XlsMcvI_LinTit 'titulo de grupo
call XlsMcvI_IncLin                                'incrementar linha

VndN$  = "Vendedor : "+Enc_Mst_Vend
VndIde$= EmpTabCon$("VEND",Enc_Mst_Vend,"NOME")

'listar
res = XlsLst(liUsa, coCte, VndN$)                  'escrever numero vendedor 
res = XlsLst(liUsa, coNom, VndIde$)                'escrever nome vendedor

zon$= XlsZonNum$("L", liUsa)                       'zona da linha
res = XlsFon(zon$, ",,B+I+")                       'activar fonte bold, italico
end sub


Sub XlsMcvI_Lin 'linha de valores
call XlsMcvI_IncLin                                'incrementar linha	

'valores a listar
cte$  = Enc_Mst_Ctent$                                                                 'conta
ide$  = left$(VarAlt$("ENC_MST","Cta_Mst_Nome$"),30)                                   'identificacao
tip$  = Enc_Mst_Tdoc$                                                                  'documento - tipo
ndo$  = FrmNdo$("","",Enc_Mst_Ndoc$)                                                   'documento - numero
vnd   = Enc_Mst_Vend                                                                   'vendedor 
dtd$  = FrmVal$(Enc_Mst_Dtl,44,0)                                                      'data documento
dtv$  = FrmVal$(Enc_Mst_Dtv,44,0)                                                      'data vencimento
Vtot  = MoeCnv("N",Enc_Mst_Ilq+Ado_Tot_Iva-Ado_Tot_Desco,Enc_Mst_Moeda,Emp_Inf_Moeda)  'liquido
Vinc  = Enc_Mst_ComInc                                                                 'incidencia
Vcom  = Enc_Mst_ComTot                                                                 'comissao

coCte = 2                                          'conta
coNom = 3                                          'nome
coTip = 4                                          'tipo documento
coNdo = 5                                          'numero documento
coDtd = 6                                          'data documento
coDtv = 7                                          'data vencimento
coTot = 8                                          'valor documento
coInc = 9                                          'valor incidencia
coCom =10                                          'valor comissao

'listar
res = XlsLst(liUsa, coCte, cte$)                   'conta
res = XlsLst(liUsa, coNom, ide$)                   'nome 
res = XlsLst(liUsa, coTip, tip$)                   'tipo de documento
res = XlsLst(liUsa, coNdo, ndo$)                   'numero documento
res = XlsLst(liUsa, coDtd, dtd$)                   'data documento
res = XlsLst(liUsa, coDtv, dtv$)                   'data vencimento
res = XlsLst(liUsa, coTot, Vtot)                   'total
res = XlsLst(liUsa, coInc, Vinc)                   'incidencia
res = XlsLst(liUsa, coCom, Vcom)                   'comissao

'acumular
res = AcmExe("SCVTOT", Vtot)                       'subtotal - total valor
res = AcmExe("SCVINC", Vinc)                       'subtotal - total incidencia
res = AcmExe("SCVCOM", Vcom)                       'subtotal - total comissoes
end sub


Sub XlsMcvI_LinSt 'linha de subtotal
call XlsMcvI_IncLin                                'incrementar linha

'valores a listar
ide$ = "Subtotal"                                  'identificacao

stT   = Total("SCVTOT", 1)                         'total
stI   = Total("SCVINC", 1)                         'incidencias
stC   = Total("SCVCOM", 1)                         'comissoes

'listar
res = XlsLst(liUsa, coDtv, ide$)                   'identificador
res = XlsLst(liUsa, coTot, stT)                    'total
res = XlsLst(liUsa, coInc, stI)                    'incidencias
res = XlsLst(liUsa, coCom, stC)                    'comissoes

zon$= XlsZonNum$("L", liUsa)                       'zona da linha
res = XlsFon(zon$, ",,B+I+")                       'activar fonte bold, italico

x=TotLpz(1)                                        'limpar totais
end sub


Sub XlsMcvI_LinSep 'linha de separacao
call XlsMcvI_IncLin                                'incrementar linha
end sub


Sub XlsMcvI_Fim 'terminar
call Xls_LinFim                                    'fim de linhas

'valores a listar
Ttot   = Total("SCVTOT", 0)                        'total
TInc   = Total("SCVINC", 0)                        'incidencias
TCom   = Total("SCVCOM", 0)                        'comissoes

'listar
liUsa = linFim                                     'linha a usar

res = XlsLst(liUsa, coTot, Ttot)                   'total
res = XlsLst(liUsa, coInc, TInc)                   'total incidencias
res = XlsLst(liUsa, coCom, TCom)                   'total comissoes

'mostrar
res = XlsWksAct("A", 1)                            'activar worksheet
end sub


'=============================================================================
'EXCEL - Mapa de Comissoes de Vendedor (I) (RESUMO)
'=============================================================================
Sub XlsMcvIR_DocIni 'inicializar documento
call Xls_DocIni                                    'inicializar documento
call XlsMcvIR_Prep                                 'preparar
end sub


Sub XlsMcvIR_DocFim 'terminar documento
call Xls_DocFim                                    'terminar/mostrar documento
end sub


Sub XlsMcvIR_Prep 'preparar para listar
res = XlsWks("Valores")                            'activar worksheet
call Xls_DocCab                                    'cabecalho do documento
res = XlsIdeLst("Lst_Tit", "")                     'anular titulo da listagem
call Xls_LinIni                                    'iniciar linhas

'definicao das colunas
coCte = 2                                          'conta
coNom = 3                                          'nome
coTot = 4                                          'valor documento
coInc = 5                                          'valor incidencia
coCom = 6                                          'valor comissao
end sub


Sub XlsMcvIR_IncLin 'incrementar linha	
call Xls_LinInc                                    'incrementar linha
liUsa =  xlsLsa                                    'linha a usar

zon$= XlsZonNum$("L", liUsa)                       'zona da linha
res = XlsFon(zon$, ",,B-I-")                       'desactivar fonte bold, italico
end sub


Sub XlsMcvIR_LinTit 'titulo de grupo
VndC$  = "Vendedor : "+Enc_Mst_Vend
VndN$  = EmpTabCon$("VEND",Enc_Mst_Vend,"NOME")
end sub


Sub XlsMcvIR_Lin 'linha de valores
'valores a listar
Vtot  = MoeCnv("N",Enc_Mst_Ilq+Ado_Tot_Iva-Ado_Tot_Desco,Enc_Mst_Moeda,Emp_Inf_Moeda)  'liquido
Vinc  = Enc_Mst_ComInc                                                                 'incidencia
Vcom  = Enc_Mst_ComTot                                                                 'comissao

'acumular
res = AcmExe("SCVTOT", Vtot)                       'subtotal - total valor
res = AcmExe("SCVINC", Vinc)                       'subtotal - total incidencia
res = AcmExe("SCVCOM", Vcom)                       'subtotal - total comissoes
end sub


Sub XlsMcvIR_LinSt 'subtotal
call XlsMcvIR_IncLin                               'incrementar linha

stT   = Total("SCVTOT", 1)                         'total
stI   = Total("SCVINC", 1)                         'incidencias
stC   = Total("SCVCOM", 1)                         'comissoes

'listar
res = XlsLst(liUsa, coCte, VndC$)                  'codigo vendedor
res = XlsLst(liUsa, coNom, VndN$)                  'nome
res = XlsLst(liUsa, coTot, stT)                    'total
res = XlsLst(liUsa, coInc, stI)                    'incidencias
res = XlsLst(liUsa, coCom, stC)                    'comissoes

zon$= XlsZonNum$("L", liUsa)                       'zona da linha

x=TotLpz(1)                                        'limpar totais
'msgbox "","SBT",vndIde$
end sub


Sub XlsMcvIR_LinSep 'linha de separacao
call XlsMcvIR_IncLin                                'incrementar linha
end sub


Sub XlsMcvIR_Fim 'terminar
call Xls_LinFim                                    'fim de linhas

'valores a listar
Ttot   = Total("SCVTOT", 0)                        'total
TInc   = Total("SCVINC", 0)                        'incidencias
TCom   = Total("SCVCOM", 0)                        'comissoes

'listar
liUsa = linFim                                     'linha a usar

res = XlsLst(liUsa, coTot, Ttot)                   'total
res = XlsLst(liUsa, coInc, TInc)                   'total incidencias
res = XlsLst(liUsa, coCom, TCom)                   'total comissoes

'mostrar
res = XlsWksAct("A", 1)                            'activar worksheet
end sub


'=============================================================================
'EXCEL - Mapa de Comissoes de Vendedor (D) (RESUMO)
'=============================================================================
Sub XlsMcvID_DocIni 'inicializar documento
call Xls_DocIni                                    'inicializar documento
call XlsMcvID_Prep                                 'preparar
end sub


Sub XlsMcvID_DocFim 'terminar documento
call Xls_DocFim                                    'terminar/mostrar documento
end sub


Sub XlsMcvID_Prep 'preparar para listar
res = XlsWks("Valores")                            'activar worksheet
call Xls_DocCab                                    'cabecalho do documento
res = XlsIdeLst("Lst_Tit", "")                     'anular titulo da listagem
call Xls_LinIni                                    'iniciar linhas

'definicao das colunas
coCte = 2                                          'conta
coNom = 3                                          'nome
coTot = 4                                          'valor documento
coInc = 5                                          'valor incidencia
coCom = 6                                          'valor comissao
end sub


Sub XlsMcvID_IncLin 'incrementar linha	
call Xls_LinInc                                    'incrementar linha
liUsa =  xlsLsa                                    'linha a usar

zon$= XlsZonNum$("L", liUsa)                       'zona da linha
res = XlsFon(zon$, ",,B-I-")                       'desactivar fonte bold, italico
end sub


Sub XlsMcvID_LinTit 'titulo de grupo
VndC$  = "Vendedor : "+Enc_Mst_Vend
VndN$  = EmpTabCon$("VEND",Enc_Mst_Vend,"NOME")
end sub


Sub XlsMcvID_Lin 'linha de valores
'valores a listar
Vtot  = MoeCnv("N",Enc_Mst_Ilq+Ado_Tot_Iva-Ado_Tot_Desco,Enc_Mst_Moeda,Emp_Inf_Moeda)  'liquido
Vinc  = Enc_Mst_ComInc                                                                 'incidencia
Vcom  = Enc_Mst_ComTot                                                                 'comissao

'acumular
res = AcmExe("SCVTOT", Vtot)                       'subtotal - total valor
res = AcmExe("SCVINC", Vinc)                       'subtotal - total incidencia
res = AcmExe("SCVCOM", Vcom)                       'subtotal - total comissoes
end sub


Sub XlsMcvID_LinSt 'subtotal
call XlsMcvID_IncLin                               'incrementar linha

stT   = Total("SCVTOT", 1)                         'total
stI   = Total("SCVINC", 1)                         'incidencias
stC   = Total("SCVCOM", 1)                         'comissoes

'listar
res = XlsLst(liUsa, coCte, VndC$)                  'codigo vendedor
res = XlsLst(liUsa, coNom, VndN$)                  'nome
res = XlsLst(liUsa, coTot, stT)                    'total
res = XlsLst(liUsa, coInc, stI)                    'incidencias
res = XlsLst(liUsa, coCom, stC)                    'comissoes

zon$= XlsZonNum$("L", liUsa)                       'zona da linha

x=TotLpz(1)                                        'limpar totais
'msgbox "","SBT",vndIde$
end sub


Sub XlsMcvID_LinSep 'linha de separacao
call XlsMcvID_IncLin                                'incrementar linha
end sub


Sub XlsMcvID_Fim 'terminar
call Xls_LinFim                                    'fim de linhas

'valores a listar
Ttot   = Total("SCVTOT", 0)                        'total
TInc   = Total("SCVINC", 0)                        'incidencias
TCom   = Total("SCVCOM", 0)                        'comissoes

'listar
liUsa = linFim                                     'linha a usar

res = XlsLst(liUsa, coTot, Ttot)                   'total
res = XlsLst(liUsa, coInc, TInc)                   'total incidencias
res = XlsLst(liUsa, coCom, TCom)                   'total comissoes

'mostrar
res = XlsWksAct("A", 1)                            'activar worksheet
end sub
##


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

