'Nome       : CpDesIva.std
'Tipo       : LST
'Data       : 2006/04/07
'Versao     : 3.0
'Descricao  : Listagem de Encomendas artigos Desconto por taxa Iva


'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================

'==============================================================================
#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]=EncArtResL 
Nome                       [DocNom]=EncArtResQV,Descontos por Txa IVA

'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]=EncArtResL
Nome                       [DocNom]=EncArtResQV_G,Descontos por Txa IVA

'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","Resume Artigos  / Desconto por Taxa IVA")
'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,8.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)
IvaT      = ivaTax(stc_mst_codiva)
iva       = iva$
VendIde   = FrmVal$(Enc_Mst_Vend,21,2.0)+" - "+EmpTabCon$("VEND",Enc_Mst_Vend,"NOME")


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
'==============================================================================
'---------------------------------------------------------->'Comentario (61)
'------------------------------------------------->'Comentario (52)
'------------------------------------->'Comentario (40)

SUB Lst_AJT
end sub


'- Encomendas por artigo (Descontos por Txa IVA) --------------------------------------------
SUB EncArtResQV_Cab 'cabecalho

if limites=0 then
  codiva=InpVl("VL","C�digo de IVA a listar")
  limites=1
  iva$= ivaTax$(codiva)
end if


FxDiv LstIde,16CPI,0
?@Tit132                                                                                                                            #
?Data: @DataExt                                                                                                   Folha No: @Pag    #
?                                     Documentos c/IVA a Taxa de : @iva %                                                           #
?====================================================================================================================================
?  Codigo         Designacao                           Quant                          Valor      Descont efect.                    #          
?====================================================================================================================================
end sub


SUB EncArtResqv_Lin 'linha

listar=1
if limites=1 then
  if codiva<>stc_mst_codiva then
    listar=0 
  end if
end if


if listar=1 then
?@ArtR           @Desc                            @Taqu1                           @TaVl          @TaDsq                           #
else
  cnt=Doc_CntLin-1
  tmp=CntLin("FRC",cnt)                                 'decrementar contador linhas
end if

end sub

SUB EncArtResqv_FimAjt
'fx=msgbox("fim intemedio","")
end sub

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


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


'-------------------------------------------------------------------------------------------------------------------------
'- Encomendas por artigo (Descontos por Txa IVA) - Modo gr�fico
'-------------------------------------------------------------------------------------------------------------------------
SUB EncArtResQVG_Cab 'listagem Descontos por Txa IVA - cabecalho (modo grafico)

if limites=0 then
  codiva=InpVl("VL","C�digo de IVA a listar")
  limites=1
  iva$= ivaTax$(codiva)
end if


Titulo$="Resume Artigos  / Desconto por Taxa IVA"
'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,"Resume Artigos  / Desconto por Taxa IVA" '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=15
TCol3=70
TCol4=110
Tcol5=120
Tcol6=155
Tcol7=175
Tcol8=195
Cmax=TCol8

PrWIN COR_T,  CorTitLst                         'cor de titulo
PrWIN FON  ,   8,   1                        	'activar fonte
PrWin TX_N,    0,   15, "Documentos c/IVA a Taxa de :"
PrWin TX_N,   40,   15, @iva
PrWin TX_N,   45,   15, "%"
PrWIN AJT_B,  Margem, 30                    	'posicao base

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"
PrWIN TX_CTR,  TCol4,Lin1,TCol5,Lin1,"Valor"
PrWIN TX_CTR,  TCol5,Lin1,TCol6,Lin1,"Desconto efect."

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 EncArtResQVG_Lin 'listagem por Descontos por Txa IVA - linha (modo grafico)
Col1=0
Col2=30
Col3=76
Col4=101
Col5=126
Col6=152
Col7=172
Cmax=Col7

listar=1
if limites=1 then
  if codiva<>stc_mst_codiva then
    listar=0 
  end if
end if


if listar=1 then
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",@Tavl
PrWIN TX_NP,    Col5,0       ,"N",@TaDsq
else
  cnt=Doc_CntLin-1
  tmp=CntLin("FRC",cnt)                                 'decrementar contador linhas
end if
end sub


SUB EncArtResQVG_Fim 'listagem por Descontos por Txa IVA - final (modo grafico)
cmax=195

PrWIN FON  ,   8,   1                           'activar fonte
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,    Col3,0       ,"N",@TGaqu1
PrWIN TX_NP,    Col4,0       ,"N",@TGTavl
PrWIN TX_NP,    Col5,0       ,"N",@TGTaDsq
PrWIN GR_LI, 0, 5, Cmax, 5                      'linha

x=totlpz(0)
Call SigLstRod
PrWin FP
limites=0

end sub
##


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