'Nome       : EncLsDiv.STD
'Tipo       : LST
'Data       : 2004/10/14
'Versao     : 1.0
'Descricao  : Configuracoes para listagens diversas ENC


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


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


'==============================================================================
#ESP - Campos especificos
'==============================================================================
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=DIV
Nome                       [DocNom]=FDO,Fases documento

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

'funcoes de listagem
Listar cabecalho            [FxCAB]=Fdo_Cab
Listar linhas               [FxLIN]=Fdo_Lin;Doc;Mst;Mov
Listar fim                  [FxFIM]=Fdo_Fim
##


'==============================================================================
#VAR - Variaveis
'==============================================================================
Pag        = Doc_CntPag
DataExt    = FrmVal$(Sig_DtHoje,45,0)

LstTit     = TxTit$("TT=16CPILD, PT=40C ",MemTxt$(1))
LstTit2    = MemTxt$(2)

Tdo       = Enc_Mst_Tdoc$+" - "+Doc_Ide_Nome$
DocNdo    = FrmNdo$("",Enc_Mst_Tdoc$,Enc_Mst_Ndoc$)
DocDtl    = FrmVal$(Enc_Mst_Dtl,44,0)
DocDtpe   = FrmVal$(Enc_Mst_Dtpe,44,0)
DocCt     = Cta_mst_ct$
Ctnome    = Cta_Mst_Nome$
IdeCt     = Cta_Mst_Ct$+" - "+cta_mst_nome$

DocVtot   = FrmVal$(Enc_Mst_ValMe,21,10.2)

LinArt    = Enc_Mov_Art$

'LinDescr  = left$(Stc_Mst_Nome1$,30)
LinDescr  = EncArtIde$("")

LinQu     = FrmVal$(Enc_Mov_Qu,21,9.3)
LinPrc    = FrmVal$(Enc_Mov_Prc,21,10.2)
LinVtot   = FrmVal$(Enc_Mov_Qu*Enc_Mov_Prc,21,8.2)
##


'==============================================================================
#PGM - Programa/Funcoes
'==============================================================================
Sub Fdo_Cab
fx=ctacontaler(enc_mst_ctent$)
FxDiv LstIde,10CPI,1
?
?@LstTit                                                                     #
?                                         
?Data: @DataExt                @LstTit2                           Folha @Pag #
?------------------------------------------------------------------------------                                         
?Documento: @Tdo  @DocInf                             Numero: @DocNdo        #    
?    Conta: @Idect                                      Data: @DocDtl        #
?-----------------------------------------------------------------------------
? Documento     Data                                      Quantidade    Valor
?                  Artigo                                 Recolhida     Total
?=============================================================================
End Sub


Sub Fdo_LinMst   'documento incluido
?@DocNdo      @DocDtl                                           #
?-----------------------------------------------------------------------------
end sub



SUB Fdo_LinMov
?  @LinArt       @LinDescr                            @LinQu       @LinVtot   #
end sub


Sub Fdo_Fim
Print PrtCmd$("[SP]");
end sub
##
