'Nome       : EncArt.std
'Tipo       : LST
'Data       : 2006/04/06
'Versao     : 3.0
'Descricao  : Resumo Artigo - Cliente / Desconto Efectuado


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



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


'==============================================================================
#ESP - Campos especificos
'==============================================================================
'Especifico 1                      [EspOp1]=Opcao 1
'Especifico 2                      [EspOp2]=Opcao 2
'Limites a listar                  [EspLim]=?
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================EncArtResL//EncArtDisL
Tipo                       [DocTip]=EncArtDisL
Nome                       [DocNom]=EncArtDisL,Clientes / Descontos

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=50
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]=EncArtDisL_Cab
Listar linhas               [FxLIN]=EncArtDisL_Lin;Ide;Doc;Tot
Listar fim                  [FxFIM]=EncArtDisL_Fim
##



'==============================================================================
'= GRF = Listagem grafica =====================================================
'==============================================================================
'==============================================================================
#DOC - Configuracao do documento 
'==============================================================================
Tipo                       [DocTip]=EncArtDisL
Nome                       [DocNom]=EncArtDisL_G,Clientes / Descontos

'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
##


'==============================================================================
#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","Resumo Artigo - Cliente / Desconto Efectuado")

DataExt   = FrmVal$(Sig_DtHoje,45,0)

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

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,8.2)
Vtot      = vtot$

Arz       = FrmVal$(Enc_Mov_ArzEnt,21,2)
Dtpe      = FrmVal$(Enc_Mst_Dtpe,42,0)

'Liq       = FrmMoe$("",16,MoeCnv("N",Enc_Mst_Ilq+Ado_Tot_Iva-Ado_Tot_Desco,Enc_Mst_Moeda,Emp_Inf_Moeda))


Tqu1      = FrmVal$(Total(Qu1,1),21,8.2)
TGaqu1    = FrmVal$(Total(Qu1,2),21,9.2)

Tqu2      = FrmVal$(Total(Qu2,1),21,8.2)
TGaqu2    = FrmVal$(Total(qu2,2),21,11.2)

TvTot     = FrmVal$(Total(Vtot,1),21,12.2)
TgaTvTot  = FrmVal$(Total(vtot,2),21,12.2)


desconto  = Enc_Mov_Desco$


Vd        = FrmVal$(Enc_Mst_Vend,21,2.0)
VendIde   = FrmVal$(Enc_Mst_Vend,21,2.0)+" - "+EmpTabCon$("VEND",Enc_Mst_Vend,"NOME")
DtDoc     = FrmVal$(Enc_Mst_Dtl,42,0)
P         = FrmVal$(Enc_Mst_Ptv,21,2.0)
DocDescr  = Enc_Mst_Descr$

Ilq       = FrmMoe$("",13,MoeCnv("N",Enc_Mst_Ilq,Enc_Mst_Moeda,Emp_Inf_Moeda))
Iva       = FrmMoe$("",13,MoeCnv("I",Ado_Tot_Iva,Enc_Mst_Moeda,Emp_Inf_Moeda))
Desc      = FrmMoe$("",10,MoeCnv("N",Ado_Tot_Desco,Enc_Mst_Moeda,Emp_Inf_Moeda))

'Liq       = FrmMoe$("",16,MoeCnv("N",Enc_Mst_ValMe,Enc_Mst_Moeda,Emp_Inf_Moeda))
'LiqR      = FrmMoe$("",16,MoeCnv("N",Enc_Mst_Ilq-Ado_Tot_Desco,Enc_Mst_Moeda,Emp_Inf_Moeda))
'Liq       = FrmMoe$("",16,MoeCnv("N",Ado_Tot_Tot,Enc_Mst_Moeda,Emp_Inf_Moeda))
'Liq       = FrmMoe$("",16,MoeCnv("N",Enc_Mst_Ilq+Ado_Tot_Iva-Ado_Tot_Desco,Enc_Mst_Moeda,Emp_Inf_Moeda))

LinLiq   = FrmVal$(Doc_Art_Liq,21,10.2)


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


TGTaVl    = FrmVal$(Total(TaVl),21,11.2)
TGTaVpmc  = FrmVal$(Total(TaVPmc),21,11.2)
TgTaDsq   = FrmVal$(Total(TaDsq),21,11.2)


zT        = FrmVal$(Total(z),21,9.2)
TVtot    = FrmVal$(Total(Vtot),21,11.2)
##


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


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


'- Encomendas por artigo (Resumo Artigo - Cliente / Desconto Efectuado ) --------------------------------------
SUB EncArtDisL_Cab
FxDiv LstIde,16CPI,0
?@Tit132                                                                                                                            #
?Data: @DataExt                                                                                                   Folha No: @Pag    #
?====================================================================================================================================
?        Cliente                                                   Qtu.      Preco     Desconto    Documento           Data     Vend#
?====================================================================================================================================
end sub


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

sub calcularVtot
vlin=enc_mov_qu*enc_mov_prc
desco=ENCDESCOVL(vlin,enc_mov_desco$)
Vtot$=FrmVal$(vlin-desco,21,8.2)
end sub


SUB EncArtDisL_LinDoc
call calcularvtot
?@Ct        @CtNom                                          @Qu1            @Vtot       @Desconto @docdescr           @dtdoc    @vd #
end sub

SUB EncArtDisL_LinTot
?                                                       __________________________________#
? Total :                                                   @Tqu1       @TvTot                                                      #
x=totlpz(1)
?-----------------------------------------------------------------------------------------------------------------------------------#
end sub


SUB EncArtDisL_FimAjt
?====================================================================================================================================
?              total intermédio acumulado                   @Tgaqu1       @TgATvTot                                                  #
?====================================================================================================================================
FxDiv LstPer,SP
x=totlpz(2)
end sub


SUB EncArtDisL_Fim
?====================================================================================================================================
?                         Total  geral                      @Tgaqu1       @TgATvTot                                                  #
?====================================================================================================================================
FxDiv LstPer,SP
x=totlpz(2)
end sub



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


'-------------------------------------------------------------------------------------------------------------------------
'- Encomendas por artigo (Resumo Artigo - Cliente / Desconto Efectuado) - Modo gráfico
'-------------------------------------------------------------------------------------------------------------------------
SUB EncArtDisLG_Cab 'Resumo Artigo - Cliente / Desconto Efectuado - cabecalho (modo grafico)
'SigCabNorOpcTit=2 		            'alterar origem do titulo
Titulo$="Encomendas por Artigo (Discriminada)"
'Call SigLstCab
PrWIN COR_F, 15                                  'cor de fundo
PrWIN AJT_B ,  Margem, 11                          'posicao base
PrWin COR_T ,  CorTit
PrWIN FON   ,       9,  1                          'activar fonte
PrWIN TX_N  ,       0,  0,SigLstInf$("EMPIDE")     'nome da empresa
PrWIN FON   ,      12,  1                          'activar fonte
PrWin FON, "BOLD+"                                 'desactivar bold
if SigCabNorOpcTit=1 then
  PrWIN TX_CTR,       0,  5, MargemD, 5,"Resumo Artigo - Cliente / Desconto Efectuado" 'titulo centrado
else
  PrWIN TX_CTR,       0,  5, MargemD, 5,Titulo$    'titulo centrado
end if
PrWin FON, "BOLD-"                                 'desactivar bold

PrWIN FON  ,    9                                  'activar fonte
'PrWIN TX_N ,    0, 10,"Vendedor:"                  'Vendedor
PrWIN TX_N ,    0, 10,"Data :"                     'data
PrWIN TX_N ,  170, 10,"Folha No :"                 'folha

PrWin COR_T ,  CorLin
'PrWIN TX_N,   11, 10,@VdIde                        'listar Vendedor
PrWIN TX_N,   11, 10,@DataExt                      'listar data
PrWIN TX_N,  185, 10,@Pag                          'numero da folha



Lin1=1                            	  'linha 1
Lin2=5                                    'linha2
esp=30

TCol1=0
TCol2=21
TCol3=75
TCol4=85
TCol5=120
TCol6=130
TCol7=170
TCol8=185
TCol9=192
TCol10=195
Cmax=TCol10

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,"Cliente"
PrWIN TX_CTR,  TCol2,Lin1,TCol3,Lin1,"Nome"
PrWIN TX_CTR,  TCol3,Lin1,TCol4,Lin1,"Quant. "
PrWIN TX_CTR,  TCol4,Lin1,TCol5,Lin1,"Preço"
PrWIN TX_CTR,  TCol5,Lin1,TCol6,Lin1,"Desconto"
PrWIN TX_CTR,  TCol6,Lin1,TCol7,Lin1,"Documento"
PrWIN TX_CTR,  TCol7,Lin1,TCol8,Lin1,"Data"
PrWIN TX_CTR,  TCol8,Lin1,TCol9,Lin1,"Vend"
PrWIN TX_CTR,  TCol9,Lin1,TCol10,Lin1," "

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 EncArtDisLG_Lin 'listagem por artigo (discriminada) - linha (modo grafico)
Col1=0
Col2=21
Col3=50
Col4=70
Col5=80
Col6=90
Col7=120
Col8=160
Col9=190
Col10=195
Cmax=TCol10

PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN FON  ,   6,   1                           'activar fonte
PrWIN COR_T,    CorLin
PrWIN TX_N,     Col1+3,0         ,@Ct
PrWIN TX_NP,    Col2,0       ,"N",@CtNom
PrWIN TX_NP,    Col4,0       ,"N",@Qu1
PrWIN TX_NP,    Col5,0       ,"N",@Vtot
PrWIN TX_NP,    Col6,0       ,"N",@Desconto
PrWIN TX_N,     Col7,0           ,@docdescr
PrWIN TX_N,     Col8,0           ,@dtdoc
PrWIN TX_NP,    Col9,0       ,"T",@vd
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 TX_N,     Col0,0,@Art
PrWIN TX_N,     Col3,0,@artDesc
PrWIN FON  ,   8,   1                           'activar fonte
end sub


SUB EncArtDisLG_LinDoc 'listagem por artigo (discriminada) - documento (modo grafico)
Col1=0
Col2=21
Col3=50
Col4=70
Col5=100
Col6=130
Col7=150
Col8=175
Col9=190
Col10=195
Cmax=TCol10

PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN FON  ,   6,   1                           'activar fonte
PrWIN COR_T,    CorLin
PrWIN TX_N,     Col1+3,0         ,@Ct
PrWIN TX_NP,    Col2,0       ,"N",@CtNom
PrWIN TX_NP,    Col4,0       ,"N",@Qu1
PrWIN TX_NP,    Col5,0       ,"N",@Vtot
PrWIN TX_NP,    Col6,0       ,"N",@Desconto
PrWIN TX_N,     Col7,0           ,@docdescr
PrWIN TX_N,     Col8,0           ,@dtdoc
PrWIN TX_NP,    Col9,0       ,"T",@vd
end sub



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

PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN COR_T,    CorLin
PrWIN GR_LI, 0, 0, Cmax, 0                      'linha
PrWIN TX_CTR,   Col1,Lin1,Col1,Lin1,"Total :"
PrWIN TX_NP,    Col4,0       ,"N",@Tqu1
PrWIN TX_NP,    col5-4,0       ,"N",@TvTot
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
##

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