'Nome       : ENCCT.STD
'Tipo       : LST
'Data       : 2007/01/11
'Versao     : 2.0
'Descricao  : Listagem de Documentos por conta


'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 2.0a  2007/??/?? -------------------------------------------------
'Na listagem descriminada, apresentar desconto da linha

'- Versao : 2.0   2006/09/29 -------------------------------------------------
'listagem grafica

'- Versao : 1.4   2003/03/28 -------------------------------------------------
'Na impressao do total linha de documento, nao considerava o desconto

'- Versao : 1.3   2002/07/09 -------------------------------------------------
'Ajustes nos titulos e informativos

'- Versao : 1.2   2002/07/03 -------------------------------------------------
'Ajuste contador de linhas

'- Versao : 1.1   2000/10/09 -------------------------------------------------
'algumas afinacoes de formato

'- Versao : 1.0b  1999/03/05 -------------------------------------------------
'Versao base


'==============================================================================
#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]=EncCtDisL
Nome                       [DocNom]=EncCtDisL,Discriminada
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]=EncCtDis_Cab
Listar linhas               [FxLIN]=EncCtDis_Lin;Ide,2;Doc;Dis;Tot
Listar ajuste para fim      [FxAJT]=
Listar fim                  [FxFIM]=EncCtDis_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=EncCtResL
Nome                       [DocNom]=EncCtResL,Resumo
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]=EncCtDis_Cab
Listar linhas               [FxLIN]=EncCtDis_Lin; Ide,2 ; Doc ; Tot
Listar ajuste para fim      [FxAJT]=
Listar fim                  [FxFIM]=EncCtDis_Fim
##


'==============================================================================
#DOC - Configuracao do documento 
'==============================================================================
Tipo                       [DocTip]=EncCtDisL
Nome                       [DocNom]=EncCtDisL_G,Discriminada

'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
                           [DocEsp]=LstRes=0
'funcoes de listagem
Listar cabecalho            [FxCAB]=EncCtDisLG_Cab
Listar linhas               [FxLIN]=EncCtDisLG_Lin;Ide;Doc;Dis;Tot
Listar fim                  [FxFIM]=EncCtDisLG_Fim
##


'==============================================================================
#DOC - Configuracao do documento 
'==============================================================================
Tipo                       [DocTip]=EncCtResL
Nome                       [DocNom]=EncCtResL_G,Resumo

'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
                           [DocEsp]=LstRes=1
'funcoes de listagem
Listar cabecalho            [FxCAB]=EncCtResLG_Cab
Listar linhas               [FxLIN]=EncCtDisLG_Lin;Ide,2;Doc;Tot
Listar fim                  [FxFIM]=EncCtDisLG_Fim
##


'==============================================================================
#VAR - Variaveis
'==============================================================================
Pag       = Doc_CntPag
Cnt       = FrmVal$(CntAux(1),21,4)
DataExt   = FrmVal$(Sig_DtHoje,45,0)
Tit132    = TxTit$("TT=16CPI, LD, PT=66C",Memtxt$(1))

'identificar conta
Ct        = Cta_Mst_Ct$
Nome      = Cta_Mst_Nome$

'cabecalho de documento
Ndoc      = FrmNdo$("",Enc_Mst_Tdoc$,Enc_Mst_Ndoc$)
DtDoc     = FrmVal$(Enc_Mst_Dtl,42,0)
DtVenc    = FrmVal$(Enc_Mst_Dtv,42,0)
DtPe      = FrmVal$(Enc_Mst_Dtpe,42,0)
Pais      = EmpTabCon$("PAIS",Enc_Mst_Pais,"NOME")
Val       = FrmVal$(Enc_Mst_ValMe,21,10.2)
Cmb       = FrmVal$(Enc_Mst_CmbCta,21,5.4)
Tdoc      = FrmVal$(MemNum(10),21,11.2)

'linha de documento
Art       = StcCodFrm$(Enc_Mov_Art$)
Desc      = left$(Stc_Mst_Nome1$,30)
Qu        = FrmVal$(Enc_Mov_Qu,21,8.3)
Prec      = FrmVal$(Enc_Mov_Prc,21,10.2)
Vlin      = FrmVal$(Enc_Mov_Qu*Enc_Mov_Prc-EncDescoVl(Enc_Mov_Qu*Enc_Mov_Prc,Enc_Mov_Desco$),21,11.2)
Dlinha    = FrmVal$(EncDescoVl(Enc_Mov_Qu*Enc_Mov_Prc,Enc_Mov_Desco$),21,11.2)

Tlin      = FrmVal$(Enc_Mov_Qu*Enc_Mov_Prc,21,11.2)
Tdoc      = FrmVal$(Enc_Mov_Qu*Enc_Mov_Prc-EncDescoVl(Enc_Mov_Qu*Enc_Mov_Prc,Enc_Mov_Desco$),21,11.2)

TotCt     = FrmVal$(Total("tdoc",1),21,11.2)
Tval      = FrmVal$(Total("Val",2),21,11.2)

TotGlb    = FrmVal$(Total("TotCt",3),21,11.2)
##


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


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


'- Encomendas por Conta (Discriminada) ----------------------------------------
SUB EncCtDis_Cab
FxDiv LstIde,16CPI,0
?@Tit132                                                                                                                            #
?@DataExt                                                                                                              Folha No: @Pag
?====================================================================================================================================
?  Documento     Dt.Doc     Dt.Venc.     Dt.P.Ent.            Pais                 Valor                   Desconto       Total     #
?====================================================================================================================================
end sub


SUB EncCtDis_LinIde
Print PrtCmd$("[16CPILD]");
? @Ct            @Nome                                                                                                    #
Print PrtCmd$("[16CPILN]");
end sub

SUB EncCtDis_LinDoc
?------------------------------------------------------------------------------------------------------------------------------------#
?@Ndoc         @DtDoc     @DtVenc       @DtPe                   @Pais                  @Val                         @Tdoc            #
end sub


SUB EncCtDis_LinDis
?   @Art            @Desc                            Q:@Qu            P:@Prec         @TLin           @Dlinha       @Vlin            #
end sub


SUB EncCtDis_LinTot
?                                       Total da Conta:                               @Tval                         @TotCt           #
?
x=TotLpz(1)
x=TotLpz(2)
end sub


SUB EncCtDis_Fim
?====================================================================================================================================
?                                        Total Geral                                                             @TotGlb             #
?====================================================================================================================================
FxDiv LstPer,SP
'Print PrtCmd$("[SP]");
end sub


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


'======================================================================================================
'- Encomendas por conta (Resumido) - Modo gráfico
'======================================================================================================
SUB EncCtResLG_CabIni 'inicializar listagem
tipDis = 0                                      'tipo resumido
end sub


SUB EncCtResLG_Cab 'listar cabecalho
call EncCtDisLG_Cab                             'executar cabecalho
end sub


'======================================================================================================
'- Encomendas por conta (Discriminado) - Modo gráfico
'======================================================================================================
SUB EncCtDisLG_CabIni 'listagem por conta (discriminada) - inicializar
tipDis = 1                                      'tipo discriminado
end sub


SUB EncCtDisLG_Cab 'listagem por conta (discriminada) - cabecalho (modo grafico)
'SigCabNorOpcTit=2 		            'alterar origem do titulo
Titulo$="Encomendas por Conta (Discriminada)"

Call SigLstCab
Lin1=1                          		'linha 1
Lin2=5                                          'linha 2

TCol1=  0
TCol2= 30
TCol3= 50
TCol4= 70
TCol5= 90
TCol6=110
TCol7=130
TCol8=178
TCol9=190
Cmax=TCol9

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

PrWin FON,"BOLD+"                                    'activar bold
PrWIN TX_CTR,  TCol1,Lin1,TCol2,Lin1,"Documento"     'titulo
PrWIN TX_CTR,  TCol2,Lin1,TCol3,Lin1,"Dt.Doc"        'titulo
PrWIN TX_CTR,  TCol3,Lin1,TCol4,Lin1,"Dt.Venc."      'titulo
PrWIN TX_CTR,  TCol4,Lin1,TCol5,Lin1,"Dt.Pe."        'titulo
PrWIN TX_CTR,  TCol5,Lin1,TCol6,Lin1,"País"          'titulo
PrWIN TX_CTR,  TCol6,Lin1,TCol7,Lin1,"Valor"         'titulo
if tipDis = 1 then                            'listagem discriminada ?
PrWIN TX_CTR,  TCol7,Lin1,TCol8,Lin1,"Desconto"      'titulo
end if
PrWIN TX_CTR,  TCol8,Lin1,TCol9,Lin1,"Total"         'titulo 
PrWin FON,"BOLD-"                                    'desactivar 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=32
end sub


SUB EncCtDisLG_Lin 'listagem por conta (discriminada) - linha (modo grafico)
Col1=  0
Col2= 15
Col3= 30
Col4= 47
Col5= 75
Col6=101
Col7=140
Col8=190
Cmax=Col8

PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN COR_T,    CorLin
PrWIN TX_N,     Col1,0           ,@Ndoc
PrWIN TX_NP,    Col2,0       ,"T",@DtDoc
PrWIN TX_NP,    Col3,0       ,"T",@DtVenc
PrWIN TX_NP,    Col4,0       ,"T",@DtPe
PrWIN TX_NP,    Col5,0       ,"N",@Pais
PrWIN TX_NP,    Col6,0       ,"N",@Val
'PrWIN TX_NP,    Col7,0       ,"N",@Cmb
PrWIN TX_NP,    Col8,0       ,"N",@Tdoc
end sub


SUB EncCtDisLG_LinIde 'listagem por artigo (discriminada) - identificação (modo grafico)
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN COR_T,    CorTit
PrWIN FON,  0,  1                              'activar fonte
PrWin FON,"BOLD+"                              'activar bold
PrWIN TX_N,tCol1,0,@Ct
PrWIN TX_N,tCol2,0,@Nome
PrWin FON,"BOLD-"                              'desactivar bold
PrWIN FON,   8,   1                            'activar fonte
PrWIN GR_LI, 0, 4, 190, 4                      'linha
end sub


SUB EncCtDisLG_LinDoc 'listagem por artigo (discriminada) - documento (modo grafico)
Col1=  2
Col2= 34
Col3= 55
Col4= 76
Col5= 95
Col6=115
Col7=145
Col8=168
Col9=190
Cmax=Col9

if tipDis = 1 then                            'listagem discriminada ?
   tmp = CntLin("INC",1)                      'incrementar contador linhas
end if

PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN COR_T,    CorLin
PrWIN TX_N,     Col1,0           ,@Ndoc
PrWIN TX_N,     Col2,0           ,@DtDoc
PrWIN TX_N,     Col3,0           ,@DtVenc
PrWIN TX_N,     Col4,0           ,@DtPe
PrWIN TX_NP,    Col5,0       ,"N",@Pais
PrWIN TX_NP,    Col6,0       ,"N",@Val
'PrWIN TX_NP,    Col7,0       ,"N",@Cmb
PrWIN TX_NP,    Col8,0       ,"N",@Tdoc
end sub


SUB EncCtDisLG_LinDis 'listagem por artigo (discriminada) - documento (modo grafico)
Col1=  6
Col2= 30
Col3= 60
Col4= 90
Col5=114
Col6=145
Col7=168
Col8=190
Cmax=Col8

tmp1$="Q:" + FrmVal$(Enc_Mov_Qu,21,8.3)
tmp2$="P:" + FrmVal$(Enc_Mov_Prc,21,10.2)

PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN COR_T,    CorLin
PrWIN TX_N,     Col1,0           ,@Art
PrWIN TX_NP,    Col2,0       ,"T",@Desc
PrWIN TX_NP,    Col3,0       ,"N",tmp1$
PrWIN TX_NP,    Col4,0       ,"N",tmp2$
PrWIN TX_NP,    Col5,0       ,"N",@Vlin
'PrWIN TX_NP,    Col6,0       ,"N",@Cmb
PrWIN TX_NP,    Col6,0       ,"N",@Dlinha
PrWIN TX_NP,    Col7,0       ,"N",@Tlin
end sub


SUB EncCtDisLG_LinTot 'listagem por artigo (discriminada) - totais (modo grafico)
ColT =5
ColT1=114
ColT2=168

PrWIN GR_LI, 0, 4, 190, 4                           'linha
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN COR_T,    CorLin
PrWIN FON  ,   9,   1                                           'activar fonte
PrWin FON,"BOLD+"                                               'activar bold
PrWIN TX_CTR,   ColT,Lin1,ColT,Lin1,"Total :"
PrWIN FON  ,   8,   1                                           'activar fonte

PrWIN TX_NP,    ColT1,0       ,"N",@Tval
PrWIN TX_NP,    ColT2,0       ,"N",@TotCt
PrWin FON,"BOLD-"                                              'desactivar bold


cnt=Doc_CntLin+1
tmp=CntLin("FRC",cnt)                        'incrementar contador linhas

x=totlpz(1)
x=totlpz(2)
end sub


SUB EncCtDisLG_Fim 'listagem por artigo (discriminada) - final (modo grafico)
PrWIN AJT_B,Margem,FimDoc-4                     'posicao base
PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 0, 190, 0                       'linha

PrWIN FON  ,   9,   1                                           'activar fonte
PrWin FON,"BOLD+"                                               'activar bold
PrWIN TX_CTR,   ColT,Lin1,ColT,Lin1,"Total Geral :"
PrWIN FON  ,   8,   1                                           'activar fonte

PrWIN TX_NP,    ColT1,1.0       ,"N",@TotGlb
PrWIN GR_LI, 0, 5, 190, 5                      'linha
PrWin FON,"BOLD-"                                               'desactivar bold
Call SigLstRod
PrWin FP
end sub
##


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

