'Nome       : EncLPos.STD
'Tipo       : LST
'Data       : 2001/10/08
'Versao     : 1.0
'Descricao  : Listagem de POS


'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 1.0  1998/11/23 ---------------------------------------------------
'Versao base (c�pia de EncMpv.Std alterada)


'==============================================================================
#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]=?
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=EncMpv
Nome                       [DocNom]=EncMpv,Mapa de Vendas
Vias                       [DocVia]=Original
Personalizacao             [DocPer]=

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

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


'==============================================================================
#VAR - Variaveis
'==============================================================================
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      = Cta_Mst_Nome$
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,MoeCnv("N",Enc_Mst_Ilq,Enc_Mst_Moeda,Emp_Inf_Moeda))
Iva       = FrmMoe$("",13,MoeCnv("I",Ado_Tot_Iva,Enc_Mst_Moeda,Emp_Inf_Moeda))
Desc      = FrmMoe$("",10,MoeCnv("N",Ado_Tot_Desco,Enc_Mst_Moeda,Emp_Inf_Moeda))

'Liq       = FrmMoe$("",16,MoeCnv("N",Enc_Mst_ValMe,Enc_Mst_Moeda,Emp_Inf_Moeda))
'LiqR      = FrmMoe$("",16,MoeCnv("N",Enc_Mst_Ilq-Ado_Tot_Desco,Enc_Mst_Moeda,Emp_Inf_Moeda))
'Liq       = FrmMoe$("",16,MoeCnv("N",Ado_Tot_Tot,Enc_Mst_Moeda,Emp_Inf_Moeda))
Liq       = FrmMoe$("",16,MoeCnv("N",Enc_Mst_Ilq+Ado_Tot_Iva-Ado_Tot_Desco,Enc_Mst_Moeda,Emp_Inf_Moeda))

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

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

'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),Enc_Mst_Moeda)
Stot      = FrmMoe$("",13,MemNum(11),Enc_Mst_Moeda)


'Mapa da I.V.A.
T1        = IvaTax(1)
T2        = IvaTax(2)
T3        = IvaTax(3)
T4        = IvaTax(1)
T5        = IvaTax(2)
T6        = IvaTax(3)

IvaT1    = FrmMoe$("",13,IvaVal(0,1),Enc_Mst_Moeda)
IvaT2    = FrmMoe$("",13,IvaVal(0,2),Enc_Mst_Moeda)
IvaT3    = FrmMoe$("",13,IvaVal(0,3),Enc_Mst_Moeda)
IvaT4    = FrmMoe$("",13,IvaVal(1,1),Enc_Mst_Moeda)
IvaT5    = FrmMoe$("",13,IvaVal(1,2),Enc_Mst_Moeda)
IvaT6    = FrmMoe$("",13,IvaVal(1,3),Enc_Mst_Moeda)

IncT1    = FrmMoe$("",13,IvaInc(0,1),Enc_Mst_Moeda)
IncT2    = FrmMoe$("",13,IvaInc(0,2),Enc_Mst_Moeda)
IncT3    = FrmMoe$("",13,IvaInc(0,3),Enc_Mst_Moeda)
IncT4    = FrmMoe$("",13,IvaInc(1,1),Enc_Mst_Moeda)
IncT5    = FrmMoe$("",13,IvaInc(1,2),Enc_Mst_Moeda)
IncT6    = FrmMoe$("",13,IvaInc(1,3),Enc_Mst_Moeda)

TIvaT1   = FrmMoe$("",13,Total(IvaT1),Enc_Mst_Moeda)
TIvaT2   = FrmMoe$("",13,Total(IvaT2),Enc_Mst_Moeda)
TIvaT3   = FrmMoe$("",13,Total(IvaT3),Enc_Mst_Moeda)
TIvaT4   = FrmMoe$("",13,Total(IvaT4),Enc_Mst_Moeda)
TIvaT5   = FrmMoe$("",13,Total(IvaT5),Enc_Mst_Moeda)
TIvaT6   = FrmMoe$("",13,Total(IvaT6),Enc_Mst_Moeda)

TIncT1   = FrmMoe$("",13,Total(IncT1),Enc_Mst_Moeda)
TIncT2   = FrmMoe$("",13,Total(IncT2),Enc_Mst_Moeda)
TIncT3   = FrmMoe$("",13,Total(IncT3),Enc_Mst_Moeda)
TIncT4   = FrmMoe$("",13,Total(IncT4),Enc_Mst_Moeda)
TIncT5   = FrmMoe$("",13,Total(IncT5),Enc_Mst_Moeda)
TIncT6   = FrmMoe$("",13,Total(IncT6),Enc_Mst_Moeda)

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

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


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

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

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

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


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

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


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


'- Mapa de Vendas -------------------------------------------------------------
SUB EncMpv_Cab
?         Resumo de Caixa       #
Print PrtCmd$("[16CPILN]");
?Data:@DataExt                           #
?========================================#
?Data    Documento          Valor        #
?========================================#
end sub


SUB EncMpv_Lin
?@DtDoc    @CmvNdoc         @Liq         #
End Sub

SUB EncMpv_Fim
?========================================#
? Total: @Tliq                           #
?========================================#
?
?
End Sub


'- Mapa de Vendas + Quantidades -----------------------------------------------
SUB EncMpvQu_Cab
FxDiv LstIde,16CPI,0
?@Tit132
?@DataExt                                                                                                              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
FxDiv LstIde,16CPI,0
?@Tit132                                                                                                                           #
?@DataExt                                                                                                              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
FxDiv LstIde,16CPI,0
?@Tit132                                                                                                                           #
?@DataExt                                                                                                              Folha No: @Pag
?====================================================================================================================================
?   Documento   Data       IVA Taxa @T1  IVA Taxa @T2   IVA Taxa @T3   IVA Taxa @T4   IVA Taxa @T5   IVA Taxa  @T6     Tot.Documento#
?    Valores Isentos       Incid./Valor  Incid./Valor   Incid./Valor   Incid./Valor   Incid./Valor   Incid./Valor      Total de IVA #
?====================================================================================================================================
end sub


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


SUB MapIva_Fim
?====================================================================================================================================
?    TOTAIS :              @TIncT1       @TIncT2        @TIncT3        @TIncT4        @TIncT5        @TIncT6           @TotDocGer   #
?@TotIseGer                @TIvaT1       @TIvaT2        @TIvaT3        @TIvaT4        @TIvaT5        @TIvaT6           @TotIvaGer   #
?====================================================================================================================================
FxDiv LstPer,SP
'print PrtCmd$("[SP]");
end sub



'- Mapa de Comissoes de Vendedores  -------------------------------------------
SUB MpComVnd_Cab
?                                                                                              @EmpNome                            #
?@Tit132                                                                                                                           #
?@DataExt                                                                                                              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
end sub


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


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


SUB MpComVnd_LinTotInf
?
?    @GrpVndIde                                                                                    #
end sub

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

