'Nome       : LstDoc.STD
'Tipo       : LST
'Data       : 2006/09/29
'Versao     : 2.0
'Descricao  : Listagem de Documentos


'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 2.0   2006/09/29 --------------------------------------------------
'Modo gr�fico

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


'==============================================================================
#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]=LstEncL
Nome                       [DocNom]=LstEncL,Encomendas
Vias                       [DocVia]=Original
Personalizacao             [DocPer]=

'formato
Impressora                 [DocPrt]=
'Impressora                 [DocPrt]=[SIG.DEV],PR01
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]=LstEnc_Cab
Listar linhas               [FxLIN]=LstEnc_Lin
Listar ajuste para fim      [FxAJT]=
Listar fim                  [FxFIM]=LstEnc_Fim
##


'==============================================================================
#DOC - Configuracao do documento 
'==============================================================================
Tipo                       [DocTip]=LstEncL
Nome                       [DocNom]=LstEncL_G,Encomendas

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=56
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Especifico do documento    [DocEsp]=LstTot=0
                           [DocEsp]=LstTit=1
'funcoes de listagem
Listar cabecalho            [FxCAB]=LstEncLG_Cab
Listar linhas               [FxLIN]=LstEncLG_Lin
Listar fim                  [FxFIM]=LstEncLG_Fim
##



'==============================================================================
#VAR - Variaveis
'==============================================================================
Pag       = Doc_CntPag
DataExt   = FrmVal$(Sig_DtHoje,45,0)
Tit80     = PrtCmd$("[10CPILD]")+TxCentra$(Memtxt$(1),40)+PrtCmd$("[10CPILN]")
Tit132    = PrtCmd$("[16CPILD]")+TxCentra$(Memtxt$(1),66)+PrtCmd$("[16CPILN]")

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

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

Vtot      = FrmVal$(Enc_Mst_ValMe,21,10.2)
Cmb       = FrmVal$(Enc_Mst_CmbCta,21,3.3)
TotVtot   = FrmVal$(Total(Vtot),21,10.2)
'TotEsc    = FrmVal$(MemNum(20),21,11.2)
TotNac    = FrmVal$(Enc_Mst_ValTot,21,11.2)
TotNacAcm = FrmVal$(Total(TotNac),21,11.2)
##


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


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


SUB LstEnc_Cab
FxDiv LstIde,16CPI,0
?@Tit132                                                                                                                            #
?Data : @DataExt                                                                                                      Folha No: @Pag#
?====================================================================================================================================
?    Numero    Data Doc.    Data P.E.    Conta                   Nome                   Valor Total    Cambio       Total (Nacional)#
?====================================================================================================================================
end sub


SUB LstEnc_Lin
?@Ndoc         @DtDoc       @DtPe        @Ct            @Nome                           @Vtot           @Cmb          @TotNac       #
end sub


SUB LstEnc_Fim
?====================================================================================================================================
?                                                              Totais :                 @TotVtot                      @TotNacAcm    #
?====================================================================================================================================
FxDiv LstPer,SP
'Print PrtCmd$("[SP]");
end sub


'==============================================================================
'= GRF = Listagem grafica =====================================================
'==============================================================================
SUB FxIni 'funcao de inicializacao
Call SigLstIni
FimDoc=268
End sub


'-------------------------------------------------------------------------------------------------------------------------
'- Listagem de Documentos - Modo gr�fico
'-------------------------------------------------------------------------------------------------------------------------
SUB LstEncLG_Cab 'listagem de documentos - cabecalho (modo grafico)
Titulo$="Listagem de Documentos"
Call SigLstCab
Lin1=1                         		'linha 1
Lin2=5                                  'linha 2
esp=30

TCol1=  0
TCol2= 14
TCol3= 43
TCol4= 50
TCol5= 70
TCol6=110
TCol7=143
TCol8=167
TCol9=190
Cmax=TCol9

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

PrWIN FON,"BOLD+"
PrWIN TX_CTR,  TCol1,Lin1,TCol2,Lin1,"N�mero"
PrWIN TX_CTR,  TCol2,Lin1,TCol3,Lin1,"Data Doc."
PrWIN TX_CTR,  TCol3,Lin1,TCol4,Lin1,"Data P.E."
PrWIN TX_CTR,  TCol4,Lin1,TCol5,Lin1,"Conta"
PrWIN TX_CTR,  TCol5,Lin1,TCol6,Lin1,"Nome"
PrWIN TX_CTR,  TCol6,Lin1,TCol7,Lin1,"Valor Total"
PrWIN TX_CTR,  TCol7,Lin1,TCol8,Lin1,"C�mbio"
PrWIN TX_CTR,  TCol8,Lin1,TCol9,Lin1,"Total (Nacional)"
PrWIN FON,"BOLD-"

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=29
end sub


SUB LstEncLG_Lin 'listagem por documento - linha (modo grafico)
Col1=  0
Col2= 23
Col3= 42
Col4= 55
Col5= 78
Col6=125
Col7=154
Col8=168
Col9=190
Cmax=Col9

PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN COR_T,    CorLin
PrWIN TX_N,     Col1+3,0         ,@Ndoc
PrWIN TX_N,     Col2,0           ,@DtDoc
PrWIN TX_N,     Col3,0           ,@DtPe
PrWIN TX_N,     Col4,0           ,@Ct
PrWIN TX_N,     Col5,0           ,@Nome
PrWIN TX_NP,    Col6,0       ,"N",@Vtot
PrWIN TX_NP,    Col7,0       ,"N",@Cmb
PrWIN TX_NP,    Col8,0       ,"N",@TotNac
end sub


SUB LstEncLG_Fim 'listagem por documento - final (modo grafico)
Cmax=190


LinT =0.5
ColT1= 65
ColT2=125
ColT3=168

PrWIN AJT_B,Margem,FimDoc                       'posicao base
PrWIN COR_T,CorTraco                            'cor de linhas

PrWIN FON  ,   9,   1                           'activar fonte
PrWIN FON,"BOLD+"
PrWIN TX_CTR,   ColT1,LinT,ColT1,LinT,"Totais :"
PrWIN FON  ,   8,   1                           'activar fonte

PrWIN GR_LI, 0, 0, Cmax, 0                      'linha
PrWIN TX_NP,    ColT2,LinT  ,"N",@TotVtot
PrWIN TX_NP,    ColT3,LinT  ,"N",@TotNacAcm
PrWIN GR_LI, 0, 5, Cmax, 5                      'linha
PrWIN FON,"BOLD-"

Call SigLstRod
PrWin FP
end sub
##


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