'Nome       : LstPos.STD
'Tipo       : LST
'Data       : 2004/03/30
'Versao     : 1.1
'Descricao  : Listagens POs

'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 1.0 2004/02/10  -------------------------------------------------
'Versao base

'- Versao : 1.1 2004/??/??  -------------------------------------------------
'Listagem discriminada


'==============================================================================
#DEF - Definicao global do documento
'==============================================================================
Caracteres invalidos             [CarInv]=#{}
##


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


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=POS
Nome                       [DocNom]=Resumo_dia,Resumo di�rio

'formato
Impressora                 [DocPrt]=
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Perido fixo a listar       [DocEsp]=Data=DIA

'funcoes de listagem
Listar cabecalho            [FxCAB]=Res_Cab
Listar linhas               [FxLIN]=Res_Lin
Listar fim                  [FxFIM]=Res_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=POS
Nome                       [DocNom]=Resumo_nor,Resumo parametrado

'formato
Impressora                 [DocPrt]=
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]=Res_Cab
Listar linhas               [FxLIN]=Res_Lin
Listar fim                  [FxFIM]=Res_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=POS
Nome                       [DocNom]=Resumo_iv,Incid�ncia+Valores

'formato
Impressora                 [DocPrt]=
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]=Res_Cab2
Listar linhas               [FxLIN]=Res_Lin2
Listar fim                  [FxFIM]=Res_Fim2
##


'==============================================================================
#VAR - Variaveis
'==============================================================================
Pag       = Doc_CntPag
DataExt   = FrmVal$(Sig_DtHoje,44,0)
Hora      = Sig_Ext_Horatx$
Operador  = Sig_Ext_utz$

EmpNome   = Emp_Inf_Nome$

DocIni    = FrmNdo$("",Enc_Mst_Tdoc$,Memtxt$(10))
DocFim    = FrmNdo$("",Enc_Mst_Tdoc$,Memtxt$(11))
DocCnt    = FrmVal$(MemNum(8),21,10.2)

ValP0     = FrmVal$(MemNum(10),21,12.2)
ValP1     = FrmVal$(MemNum(11),21,12.2)
ValP2     = FrmVal$(MemNum(12),21,12.2)
ValP3     = FrmVal$(MemNum(13),21,12.2)
ValP4     = FrmVal$(MemNum(14),21,12.2)
ValP5     = FrmVal$(MemNum(15),21,12.2)
ValP6     = FrmVal$(MemNum(16),21,12.2)
ValP7     = FrmVal$(MemNum(17),21,12.2)
ValP8     = FrmVal$(MemNum(18),21,12.2)

IvaP0     = FrmVal$(MemNum(20),21,12.2)
IvaP1     = FrmVal$(MemNum(21),21,12.2)
IvaP2     = FrmVal$(MemNum(22),21,12.2)
IvaP3     = FrmVal$(MemNum(23),21,12.2)
IvaP4     = FrmVal$(MemNum(24),21,12.2)
IvaP5     = FrmVal$(MemNum(25),21,12.2)
IvaP6     = FrmVal$(MemNum(26),21,12.2)
IvaP7     = FrmVal$(MemNum(27),21,12.2)
IvaP8     = FrmVal$(MemNum(28),21,12.2)

IlqP0     = FrmVal$(MemNum(30),21,12.2)
IlqP1     = FrmVal$(MemNum(31),21,12.2)
IlqP2     = FrmVal$(MemNum(32),21,12.2)
IlqP3     = FrmVal$(MemNum(33),21,12.2)
IlqP4     = FrmVal$(MemNum(34),21,12.2)
IlqP5     = FrmVal$(MemNum(35),21,12.2)
IlqP6     = FrmVal$(MemNum(36),21,12.2)
IlqP7     = FrmVal$(MemNum(37),21,12.2)
IlqP8     = FrmVal$(MemNum(38),21,12.2)

Totvl     = FrmVal$(MemNum(50),21,12.2)
TotIva    = FrmVal$(MemNum(51),21,12.2)
TotIlq    = FrmVal$(MemNum(52),21,12.2)

Ct        = Enc_Mst_Ctent$
Nome      = Cta_Mst_Nome$
Ndoc      = FrmNdo$("",Enc_Mst_Tdoc$,Enc_Mst_Ndoc$)
DtDoc     = FrmVal$(Enc_Mst_Dtl,42,0)
DtPe      = FrmVal$(Enc_Mst_Dtpe,42,0)

VIlq      = FrmVal$(Doc_Tot_IvaSuj,21,10.2)

VIva      = FrmVal$(Enc_Mst_ValTot-Doc_Tot_IvaSuj,21,10.2)

Vtot      = FrmVal$(Enc_Mst_ValTot,21,10.2)

Mpag      = Enc_Mst_ModoPag
##


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


SUB Res_Fim
?@EmpNome                              #
?=======================================
?
?         Resumo de Movimentos
?  ----------------------------------
?
?         Dinheiro:@valp1              #
?          Cheques:@valp2              #
?       Multibanco:@valp3              #
? Porte Moedas PMB:@valp4              #
?   Cartao Credito:@valp5              #
?           Outros:@ValP0              #
?    ----------------------------------#
?            Total @Totvl              #
?
?
?Movimentos : @DocCnt                  #
?   primeiro: @DocIni                  #
?     ultimo: @DocFim                  #
?
?
?   Data : @DataExt                    #
?   Hora : @Hora                       #
?Operador: @Operador                   #
?
?=======================================
Print PrtCmd$("[SP]");
end sub


Sub Res_cab2
?@empNome                                      Resumo POS
?Data:@DataExt                                                                     Folha No: @Pag
?================================================================================================
?  Conta          Documento   Data           Iliquido           Iva            Total      M.Pag
?================================================================================================
end sub


SUB Res_Lin2
?@Ct           @Ndoc        @DtDoc         @Vilq            @Viva          @Vtot           @Mpag
end sub



SUB Res_Fim2
?================================================================================================
?                                        @TotIlq          @TotIva        @TotVl               #
?================================================================================================
?
?       Resumo de Movimentos
?      (Incidencias+Valores)      
?  ----------------------------------
?
?(1) Dinheiro -------------------------
?     Iliquido:@Ilqp1                  #
?    Valor IVA:@Ivap1                  #
?  Valor total:@ValP1                  #
?
?(2) Cheques --------------------------
?     Iliquido:@Ilqp2                  #
?    Valor IVA:@Ivap2                  #
?  Valor total:@ValP2                  #
?
?(3) Multibanco -----------------------
?     Iliquido:@Ilqp3                  #
?    Valor IVA:@Ivap3                  #
?  Valor total:@ValP3                  #
?
?(4) Porte Moedas ---------------------
?     Iliquido:@Ilqp4                  #
?    Valor IVA:@Ivap4                  #
?  Valor total:@ValP4                  #
?
?(5) Cartao Credito -------------------
?     Iliquido:@Ilqp5                  #
?    Valor IVA:@Ivap5                  #
?  Valor total:@ValP5                  #
?
?(0) Outros ---------------------------
?     Iliquido:@Ilqp0                  #
?    Valor IVA:@Ivap0                  #
?  Valor total:@ValP0                  #
?   -----------------------------------#
?
?Valores Totais
?       Iliquido:@TotIlq               #
?      Valor IVA:@TotIva               #
?    Valor total:@TotVl                #
?
?
?Movimentos : @DocCnt                  #
?   primeiro: @DocIni                  #
?     ultimo: @DocFim                  #
?
?
?   Data : @DataExt                    #
?   Hora : @Hora                       #
?Operador: @Operador                   #
?
?=======================================
Print PrtCmd$("[SP]");
end sub
##