'Nome       : EncArt.std
'Tipo       : LST
'Data       : 2007/01/02
'Versao     : 3.0a
'Descricao  : Listagem de Encomendas (por artigo)

'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 3.0   2006/09/29 -------------------------------------------------
'correccao da listagem em modo texto - ultrapassava os 132 caracteres

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

'- Versao : 2.2   2000/??/?? -------------------------------------------------
'Estava a acumular valores sem o desconto

'- Versao : 2.1   2001/12/14 -------------------------------------------------
'Listagem Resumo Quantidade/valor

'- Versao : 2.0   2000/10/06 -------------------------------------------------
'correcao na listagem resumida

'- Versao : 1.1   2000/05/31 -------------------------------------------------
'Estava a acumular os totais das somas anteriores
'Nao listava a coluna Valor total

'- Versao : 1.0b  1999/03/05 -------------------------------------------------
'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]=EncArtDisL
Nome                       [DocNom]=EncArtDisL,Discriminada

'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]=EncArtDis_Cab
Listar linhas               [FxLIN]=EncArtDis_Lin;Ide;Doc;Tot
Listar fim                  [FxFIM]=EncArtDis_Fim
##


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

'formato
Saida/Impressora           [DocSai]=1
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]=EncArtRes_Cab
Listar linhas               [FxLIN]=EncArtRes_Lin
Listar fim                  [FxFIM]=EncArtRes_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=EncArtResL
Nome                       [DocNom]=EncArtResQV,Resumo Qnt+Valor

'formato
Saida/Impressora           [DocSai]=1
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]=EncArtResQV_Cab
Listar linhas               [FxLIN]=EncArtResQv_Lin
Listar fim                  [FxFIM]=EncArtResQv_Fim
##


'==============================================================================
'= GRF = Listagem grafica =====================================================
'==============================================================================
'==============================================================================
#DOC - Configuracao do documento 
'==============================================================================
Tipo                       [DocTip]=EncArtDisL
Nome                       [DocNom]=EncArtDisL_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
'funcoes de listagem
Listar cabecalho            [FxCAB]=EncArtDisLG_Cab
Listar linhas               [FxLIN]=EncArtDisLG_Lin;Ide;Doc;Tot
Listar fim                  [FxFIM]=EncArtDisLG_Fim
##


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

'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]=EncArtResLG_Cab
Listar linhas               [FxLIN]=EncArtResLG_Lin
Listar fim                  [FxFIM]=EncArtResLG_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=EncArtResL
Nome                       [DocNom]=EncArtResQV_G,Resumo Qnt+Valor

'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]=EncArtResQVG_Cab
Listar linhas               [FxLIN]=EncArtResQVG_Lin
Listar fim                  [FxFIM]=EncArtResQVG_Fim
##


'==============================================================================
#VAR - Variaveis
'==============================================================================
Pag       = Doc_CntPag
Cnt       = FrmVal$(CntAux(1),21,4)
Tit80     = TxTit$("TT=12CPI, LD, PT=48C, TL=10CPI",Memtxt$(1))
Tit132    = TxTit$("TT=16CPI, LD, PT=66C",Memtxt$(1))

DataExt   = FrmVal$(Sig_DtHoje,45,0)

Art       = StcCodFrm$(Enc_Mov_Art$)
ArtR      = MemTxt$(10)
Desc      = left$(Stc_Mst_Nome1$,32)
Ct        = Enc_Mov_Ct$
CtNom     = left$(Cta_Mst_Nome$,30)

Ndoc      = FrmNdo$("",Enc_Mov_Tdoc$,Enc_Mov_Ndoc$)
Qu1       = FrmVal$(Enc_Mov_Qu,21,8.2)
Qu2       = FrmVal$(Enc_Mov_Qu2,21,8.2)
Preco     = FrmVal$(Enc_Mov_Prc,21,10.2)
Vtot      = FrmVal$(Enc_Mov_Qu*Enc_Mov_Prc,21,12.2)
Arz       = FrmVal$(Enc_Mov_ArzEnt,21,2)
Dtpe      = FrmVal$(Enc_Mst_Dtpe,42,0)
Tqu1      = FrmVal$(Total(Qu1),21,8.2)
Tqu2      = FrmVal$(Total(Qu2),21,8.2)
TvTot     = FrmVal$(Total(Vtot),21,12.2)

Taqu1     = FrmVal$(MemNum(11),21,11.2)
Taqu2     = FrmVal$(MemNum(12),21,11.2)
TaVl      = FrmVal$(MemNum(13),21,11.2)
TaDsq     = FrmVal$(MemNum(14),21,11.2)
TaVPmc    = FrmVal$(Stc_Acm_Pmc*MemNum(11),21,11.2)

TGaqu1    = FrmVal$(Total(Taqu1),21,11.2)
TGaqu2    = FrmVal$(Total(Taqu2),21,11.2)
TGTaVl    = FrmVal$(Total(TaVl),21,11.2)
TGTaVpmc  = FrmVal$(Total(TaVPmc),21,11.2)
TgTaDsq   = FrmVal$(Total(TaDsq),21,11.2)
##


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


'==============================================================================
#PGM - Programa/Funcoes
'==============================================================================
'--------------------------------------------------------------------------------------------------#------------------------------->'Linha (132 colunas)
'---------------------------------------------------------->'Comentario (61)
'------------------------------------------------->'Comentario (52)
'------------------------------------->'Comentario (40)

SUB Lst_AJT
end sub


'- Encomendas por artigo (Discriminada) --------------------------------------
SUB EncArtDis_Cab
FxDiv LstIde,16CPI,0
?@Tit132                                                                                                                            #
?Data: @DataExt                                                                                                   Folha No: @Pag    #
?====================================================================================================================================
?  Documento    Quantidade   Quantidade 2     Preco       V.Total         Conta             Nome                      Armz  Dt.P.E. #
?====================================================================================================================================
end sub


SUB EncArtDis_LinIde
Print PrtCmd$("[16CPILD]");
'?@Art           @Desc                                                                                                    #

print Enc_Mov_Art$;
print tab(16) Stc_Mst_Nome1$;
print PrtCmd$("[16CPILN]")
end sub

SUB EncArtDis_LinDoc
?@Ndoc          @Qu1           @Qu2          @Preco       @Vtot       @Ct             @CtNom                         @Arz @Dtpe    #
end sub

SUB EncArtDis_LinTot
? Total :       @Tqu1          @Tqu2                  @TvTot                                                                       #
?
x=totlpz(0)
end sub


SUB EncArtDis_Fim
?====================================================================================================================================
FxDiv LstPer,SP
end sub


'- Encomendas por artigo (Resumo) --------------------------------------------
SUB EncArtRes_Cab
FxDiv LstIde,10CPI,0
?
?@Tit80                                                                         #                                #
?@DataExt                                                       Folha No: @Pag  #
?================================================================================
?  Codigo       Designacao                               Quant. 1     Quant. 2
?================================================================================
end sub


SUB EncArtRes_Lin
?@ArtR           @Desc                            @Taqu1          @Taqu2        #
end sub


SUB EncArtRes_Fim
?================================================================================
?                Totais :                         @TGaqu1         @TGaqu2       #
?================================================================================
x=totlpz(0)
FxDiv LstPer,SP
end sub


'- Encomendas por artigo (Resumo QU+valor) --------------------------------------------
SUB EncArtResQV_Cab 'cabecalho
FxDiv LstIde,16CPI,0
?@Tit132                                                                                                                            #
?Data: @DataExt                                                                                                   Folha No: @Pag    #
?====================================================================================================================================
?  Codigo         Designacao                           Quant 1       Quant 2           Valor      Descont efect.       Valor PMC              
?====================================================================================================================================
end sub


SUB EncArtResqv_Lin 'linha
?@ArtR           @Desc                            @Taqu1          @Taqu2            @TaVl          @TaDsq              @TaVpmc            #
end sub


SUB EncArtResqv_Fim 'fim de listagem
?====================================================================================================================================
?                Totais :                         @TGaqu1         @TGaqu2           @TGTaVl        @TgTaDsq          @TGTaVPmc         #
?====================================================================================================================================
x=totlpz(0)
FxDiv LstPer,SP
end sub


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


'-------------------------------------------------------------------------------------------------------------------------
'- Encomendas por artigo (Discriminada) - Modo gr�fico
'-------------------------------------------------------------------------------------------------------------------------
SUB EncArtDisLG_Cab 'listagem por artigo (discriminada) - cabecalho (modo grafico)
'SigCabNorOpcTit=2 		            'alterar origem do titulo
Titulo$="Encomendas por Artigo (Discriminada)"
Call SigLstCab

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

TCol1  =  0
TCol2  = 21
TCol3  = 30
TCol4  = 50
TCol5  = 70
TCol6  =108
TCol7  =110
TCol8  =170
TCol9  =182
TCol10 =190
Cmax=TCol10

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,"Documento"
PrWIN TX_CTR,  TCol2,Lin1,TCol3,Lin1,"Quant."
PrWIN TX_CTR,  TCol3,Lin1,TCol4,Lin1,"Quant. 2"
PrWIN TX_CTR,  TCol4,Lin1,TCol5,Lin1,"Pre�o"
PrWIN TX_CTR,  TCol5,Lin1,TCol6,Lin1,"Valor Total"
PrWIN TX_CTR,  TCol6,Lin1,TCol7,Lin1,"Conta"
PrWIN TX_CTR,  TCol7,Lin1,TCol8,Lin1,"Nome"
PrWIN TX_CTR,  TCol8,Lin1,TCol9,Lin1,"Armz"
PrWIN TX_CTR,  TCol9,Lin1,TCol10,Lin1,"Dtpe"
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=28
end sub


SUB EncArtDisLG_Lin 'listagem por artigo (discriminada) - linha (modo grafico)
Col1=  0
Col2= 15
Col3= 30
Col4= 47
Col5= 75
Col6=100
Col7=125
Col8=168
Col9=176
Col10=190
Cmax =Col10

PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN COR_T,    CorLin
PrWIN TX_N,     Col1+3,0     ,@Ndoc
PrWIN TX_NP,    Col2,0       ,"N",@Qu1
PrWIN TX_NP,    Col3,0       ,"N",@Qu2
PrWIN TX_NP,    Col4,0       ,"N",@Preco
PrWIN TX_NP,    Col5,0       ,"N",@Vtot
PrWIN TX_N,     Col6,0       ,@Ct
PrWIN TX_N,     Col7,0       ,@CtNom
PrWIN TX_NP,    Col8,0       ,"T",@Arz
PrWIN TX_NP,    Col9,0       ,"T",@Dtpe
end sub


SUB EncArtDisLG_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  ,  10,   1                           'activar fonte
PrWin FON,"BOLD+"
PrWIN TX_N,     Col0,0,@Art
PrWIN TX_N,     Col3,0,@Desc
PrWin FON,"BOLD-"
PrWIN FON  ,   8,   1                           'activar fonte
end sub


SUB EncArtDisLG_LinDoc 'listagem por artigo (discriminada) - documento (modo grafico)
Col1=  0
Col2= 15
Col3= 30
Col4= 47
Col5= 73
Col6=100
Col7=120
Col8=175
Col9=182
Col10=190
Cmax=Col10

PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN COR_T,    CorLin
PrWIN TX_N,     Col1+3,0         ,@Ndoc
PrWIN TX_NP,    Col2,0       ,"N",@Qu1
PrWIN TX_NP,    Col3,0       ,"N",@Qu2
PrWIN TX_NP,    Col4,0       ,"N",@Preco
PrWIN TX_NP,    Col5,0       ,"N",@Vtot
PrWIN TX_N,     Col6,0           ,@Ct
PrWIN TX_N,     Col7,0           ,@CtNom
PrWIN TX_N,     Col8,0           ,@Arz
PrWIN TX_N,     Col9,0           ,@Dtpe
end sub


SUB EncArtDisLG_LinTot 'listagem por artigo (discriminada) - totais (modo grafico)
colT=73

PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN COR_T,    CorLin
PrWIN GR_LI, 0, 0, Cmax, 0                      'linha

PrWin FON,"BOLD+"
PrWIN TX_CTR,   Col1,Lin1,Col1,Lin1,"Total :"
PrWIN TX_NP,    Col2,1.0     ,"N",@Tqu1
PrWIN TX_NP,    Col3,1.0     ,"N",@Tqu2
PrWIN TX_NP,    colT,1.0     ,"N",@TvTot
PrWin FON,"BOLD-"
x=totlpz(0)

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


SUB EncArtDisLG_Fim 'listagem por artigo (discriminada) - 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
Call SigLstRod
PrWin FP
end sub


'-------------------------------------------------------------------------------------------------------------------------
'- Encomendas por artigo (Resumo) - Modo gr�fico
'-------------------------------------------------------------------------------------------------------------------------
SUB EncArtResLG_Cab 'listagem por artigo (resumo) - cabecalho (modo grafico)
Titulo$="Encomendas por Artigo (Resumo)"
Call SigLstCab
Lin1=0.5                          	'linha 1
Lin2=5                                  'linha2

TCol1=  0
TCol2= 20
TCol3= 96
TCol4=140
Tcol5=190
Cmax=TCol5

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

PrWIN FON,"BOLD+"
PrWIN TX_CTR,  TCol1,Lin1,TCol2,Lin1,"C�digo"
PrWIN TX_CTR,  TCol2,Lin1,TCol3,Lin1,"Designa��o"
PrWIN TX_CTR,  TCol3,Lin1,TCol4,Lin1,"Quantidade 1"
PrWIN TX_CTR,  TCol4,Lin1,TCol5,Lin1,"Quantidade 2"
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=28
end sub


SUB EncArtResLG_Lin 'listagem por artigo (resumo) - linha (modo grafico)
Col1=  0
Col2= 38
Col3=105
Col4=152
Col5=190
Cmax=Col5

PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN COR_T,    CorLin
PrWIN TX_N,     Col1,0,           @ArtR
PrWIN TX_N,     Col2,0           ,@Desc
PrWIN TX_NP,    Col3,0       ,"N",@Taqu1
PrWIN TX_NP,    Col4,0       ,"N",@Taqu2
end sub


SUB EncArtResLG_Fim 'listagem por artigo (discriminada) - final (modo grafico)
cmax=190

PrWIN FON  ,   9,   1                           'activar fonte
PrWIN AJT_B,Margem,FimDoc-4                     'posicao base
PrWIN COR_T,CorTraco                            'cor de linhas

PrWIN GR_LI, 0, 0, Cmax, 0                      'linha
PrWIN FON,"BOLD+"
PrWIN TX_CTR,   Col2,Lin1,Col2,Lin1,"Total :"
PrWIN TX_NP,    Col3,0       ,"N",@TGaqu1
PrWIN TX_NP,    Col4,0       ,"N",@TGaqu2
PrWIN GR_LI, 0, 5, Cmax, 5                      'linha
PrWIN FON,"BOLD-"

Call SigLstRod
PrWin FP
end sub



'-------------------------------------------------------------------------------------------------------------------------
'- Encomendas por artigo (Resumo -Quantidade+Valor) - Modo gr�fico
'-------------------------------------------------------------------------------------------------------------------------
SUB EncArtResQVG_Cab 'listagem por artigo (resumo) - cabecalho (modo grafico)
Titulo$="Encomendas por Artigo (Resumo)"
Call SigLstCab
Lin1=1                          	'linha 1
Lin2=5                              'linha2

TCol1=  0
TCol2= 40
TCol3= 78
TCol4=103
Tcol5=135
Tcol6=150
Tcol7=172
Tcol8=190
Cmax=TCol8

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_N,TCol1,Lin1,"C�digo"
PrWIN TX_N,TCol2,Lin1,"Designa��o"
PrWIN TX_N,TCol3,Lin1,"Quantidade 1"
PrWIN TX_N,TCol4,Lin1,"Quantidade 2"
PrWIN TX_N,TCol5,Lin1,"Valor"
PrWIN TX_N,TCol6,Lin1,"Desconto ef."
PrWIN TX_N,TCol7,Lin1,"Valor PMC"
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=28
end sub


SUB EncArtResQVG_Lin 'listagem por artigo (resumo) - linha (modo grafico)
Col1=  0
Col2= 30
Col3= 76
Col4=101
Col5=126
Col6=148
Col7=168
Col8=190
Cmax=Col8

PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN COR_T,    CorLin
PrWIN TX_N,     Col1,0,           @ArtR
PrWIN TX_N,     Col2,0           ,@Desc
PrWIN TX_NP,    Col3,0       ,"N",@Taqu1
PrWIN TX_NP,    Col4,0       ,"N",@Taqu2
PrWIN TX_NP,    Col5,0       ,"N",@Tavl
PrWIN TX_NP,    Col6,0       ,"N",@TaDsq
PrWIN TX_NP,    Col7,0       ,"N",@TaVpmc
end sub


SUB EncArtResQVG_Fim 'listagem por artigo (resumo quantidade+valor) - final (modo grafico)
cmax=190
LinF=0.5

PrWIN FON  ,   8,   1                           'activar fonte
PrWIN AJT_B,Margem,FimDoc-4                     'posicao base
PrWIN COR_T,CorTraco                            'cor de linhas

PrWIN FON,"BOLD+"
PrWIN GR_LI, 0, 0, Cmax, 0                      'linha
PrWIN TX_CTR,   Col2,LinF,Col2,LinF,"Totais :"
PrWIN TX_NP,    Col3,LinF    ,"N",@TGaqu1
PrWIN TX_NP,    Col4,LinF    ,"N",@TGaqu2
PrWIN TX_NP,    Col5,LinF    ,"N",@TGTavl
PrWIN TX_NP,    Col6,LinF    ,"N",@TGTaDsq
PrWIN TX_NP,    Col7,LinF    ,"N",@TGTaVpmc
PrWIN GR_LI, 0, 5, Cmax, 5                      'linha
PrWIN FON,"BOLD-"

x=totlpz(0)
Call SigLstRod
PrWin FP
end sub
##


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