'Nome       : EncMva.std
'Tipo       : LST
'Data       : 2005/06/16
'Versao     : 2.0
'Descricao  : Listagem de conferencia para movimentos automaticos

'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 1.0   1999/03/15 --------------------------------------------------
'Versao base

'- Versao : 1.0a  2003/10/27 --------------------------------------------------
'Apresentar total geral

'- Versao : 2.0   2005/??/?? --------------------------------------------------
'Mapa grafico


'==============================================================================
#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]=EncMva
Nome                       [DocNom]=EncMva,Documentos Provis�rios
Vias                       [DocVia]=Original
Personalizacao             [DocPer]=

'formato
Impressora                 [DocPrt]=
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=EncMva_Cab
Listar linhas               [FxLIN]=EncMva_Lin; Cmp; Sep
Listar fim                  [FxFIM]=EncMva_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=EncMva
Nome                       [DocNom]=EncMva_G,Documentos Provis�rios

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Especifico do documento    [DocEsp]=LstTot=0
                           [DocEsp]=LstTit=1

'funcoes de listagem
Listar cabecalho            [FxCAB]=EncMvaG_Cab
'Listar linhas               [FxLIN]=EncMvaG_Lin;Cmp;Sep
Listar linhas               [FxLIN]=EncMvaG_Lin
Listar fim                  [FxFIM]=EncMvaG_Fim
##


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

Tit80     = TxTit$("TT=10CPI, LD, PT=40C",Memtxt$(1))

Cnt       = FrmVal$(MemNum(11),21,5.0)
'Ndoc      = FrmNdo$("",Enc_Mst_Tdoc$,Enc_Mst_Ndoc$)
Ndoc      = MemTxt$(13)
Ct        = Cta_Mst_Ct$
Nome      = Cta_Mst_Nome$
Vdoc      = FrmVal$(Enc_Mst_ValMe,21,15.2)
Cmp       = MemTxt$(31)
TotGer    = frmval$(memNum(23),21,15.2))
##


'==============================================================================
#INC - Inclusao de ficheiros
'==============================================================================
Funcoes comuns                    =[SIG_Dir.Div],LsComVar.std
##


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


SUB EncMva_Cab 'cabecalho
FxDiv LstIde,10CPI,0
?@Tit80                                                                                                                            #
?Data : @DataExt                                                  Folha No: @Pag#
?================================================================================
?       Numero    Conta            Nome                                Valor    #
?================================================================================
end sub


SUB EncMva_Lin 'documento
?@Cnt   @Ndoc     @Ct        @Nome                             @Vdoc            #
end sub


SUB EncMva_LinCmp 'composicao do documento
? @Cmp                                                                          #        
end sub


SUB EncMva_LinSep 'separacao
?
end sub

SUB EncMva_FimAjt 'fim de pagina/listagem
?================================================================================
FxDiv LstPer,SP
end sub


SUB EncMva_Fim 'fim de pagina/listagem
?================================================================================
?                                         Total                @totGer          #
FxDiv LstPer,SP
end sub
##



SUB EncMvaG_Cab 'listagem - cabecalho (modo grafico)
Titulo$="Movimentos Autom�ticos"
Call SigLstCab
Lin1=1                            		'linha 1
Lin2=5                                    'linha2
esp=30

TCol1=0
TCol2=21
TCol3=30
TCol4=50
TCol5=130
Cmax=TCol5

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

PrWIN TX_CTR,  TCol1,Lin1,TCol2,Lin1,"N�mero"
PrWIN TX_CTR,  TCol2,Lin1,TCol3,Lin1,"Conta"
PrWIN TX_CTR,  TCol3,Lin1,TCol4,Lin1,"Nome"
PrWIN TX_CTR,  TCol4,Lin1,TCol5,Lin1,"Valor"

PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 0, Cmax, 0                      'linha
PrWIN GR_LI, 0, 5, Cmax, 5                      'linha

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


SUB EncMvaG_Lin 'listagem - linha (modo grafico)
Col1=0
Col2=15
Col3=30
Col4=125
Cmax=Col10

PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN COR_T,    CorLin
PrWIN TX_N,     Col1+3,0         ,@Cnt
PrWIN TX_N,     Col2,0           ,@Ct
PrWIN TX_N,     Col3,0           ,@Nome
PrWIN TX_NP,    Col4,0       ,"N",@Vdoc
end sub


SUB EncMvaG_Fim 'listagem - final (modo grafico)
PrWIN AJT_B,Margem,FimDoc                       'posicao base
PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 0, Cmax, 0                      'linha
PrWIN TX_CTR,   Col2,Lin1,Col2,Lin1,"Totais :"
PrWIN TX_NP,    Col4,0       ,"N",@totGer
PrWIN GR_LI, 0, 5, Cmax, 5                      'linha
Call SigLstRod
PrWin FP
end sub
##


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

