'Nome       : INV_Ano.STD
'Tipo       : LST
'Data       : 2005/10/24
'Versao     : 1.2c
'Descricao  : Inventario de Stocks - Valores varios anos


'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 1.0   1998/10/09 -------------------------------------------------
'Versao base

'- Versao : 1.0a  1998/11/29 -------------------------------------------------
'Correccao de totalizadores e titulos

'- Versao : 1.1   1999/05/06 -------------------------------------------------
'Correccao dos valores no inventario

'- Versao : 1.1a  1999/05/24 -------------------------------------------------
'valor das existencias, a ser consultado por funcao 

'- Versao : 1.1b  1999/10/04 -------------------------------------------------
'inventarios de artigos - nao mostrava existencias em valor

'- Versao : 1.1c  1999/11/19 -------------------------------------------------
'Inventarios de artigos - nao usava as opcoes de valorizacao definidas no video
'de listagem
'Inventario de Um armazem - Correccao de listagem de totais

'- Versao : 1.1d  1999/12/28 -------------------------------------------------
'Controlo de existencias - nao usava as opcoes de valorizacao definidas no video
'de listagem

'- Versao : 1.2   2000/03/03 -------------------------------------------------
'alteracoes nos formatos de impressao

'- Versao : 1.2a  2000/10/24 -------------------------------------------------
'imprimir total de quantidades no controle de existencias

'- Versao : 1.2b  2002/02/13 -------------------------------------------------
'ajustar contador de linhas ao imprimir os  totais

'- Versao : 1.2c  2005/??/?? -------------------------------------------------
'correccao ortografica


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


'==============================================================================
#ESP - Campos especificos
'==============================================================================
Tipo de armazens                    [TARZ]=?
Numero de armazens                  [NARZ]=?
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=InvArt
Nome                       [DocNom]=InvArtL,Artigos
Vias                       [DocVia]=Original
Personalizacao             [DocPer]=

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Especifico do documento    [DocEsp]=LstTot=1
                           [DocEsp]=LstTit=1
'funcoes de listagem
Listar cabecalho            [FxCAB]=InvArt_Cab
Listar linhas               [FxLIN]=InvArt_Lin;Inf,3
Listar fim                  [FxFIM]=InvArt_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=CtrExi
Nome                       [DocNom]=CtrExiL,Controlo de Existências
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
Especifico do documento    [DocEsp]=LstTot=1
                           [DocEsp]=LstTit=1
'funcoes de listagem
Listar cabecalho            [FxCAB]=CExi_Cab
Listar linhas               [FxLIN]=CExi_Lin;Inf,3
Listar fim                  [FxFIM]=CExi_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=InvArz
Nome                       [DocNom]=InvArz,Um Armazém
Vias                       [DocVia]=Original
Personalizacao             [DocPer]=

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Especifico do documento    [DocEsp]=ArzLstTip=2
                           [DocEsp]=ArzLst=?1
                           [DocEsp]=LstTot=1
                           [DocEsp]=LstTit=1
'funcoes de listagem
Listar cabecalho            [FxCAB]=InvArz_Cab
Listar linhas               [FxLIN]=InvArz_Lin;Inf,3;Arz
Listar fim                  [FxFIM]=InvArz_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=InvArzM
Nome                       [DocNom]=InvArzM,Por Armazém
Vias                       [DocVia]=Original
Personalizacao             [DocPer]=
Especifico do documento    [DocEsp]=ArzLstTip=2
                           [DocEsp]=ArzLst=1,3,2
'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=1
                           [DocEsp]=LstTit=1
'funcoes de listagem
Listar cabecalho            [FxCAB]=InvArzM_Cab
Listar linhas               [FxLIN]=InvArzM_Lin;Inf,3
Listar fim                  [FxFIM]=InvArzM_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=InvArzD
Nome                       [DocNom]=InvArzD,Armazém (Discriminado)
Vias                       [DocVia]=Original
Personalizacao             [DocPer]=
Especifico do documento    [DocEsp]=ArzLstTip=1

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Especifico do documento    [DocEsp]=LstTot=1
                           [DocEsp]=LstTit=1
'funcoes de listagem
Listar cabecalho            [FxCAB]=InvArzD_Cab
Listar linhas               [FxLIN]=InvArzD_Lin;Inf,3;Arz
Listar fim                  [FxFIM]=InvArzD_Fim
##


'==============================================================================
#VAR - Variaveis
'==============================================================================
Pag       = Doc_CntPag
DataExt   = FrmVal$(Sig_DtHoje,45,0)
Art       = StcCodFrm$("")                

Nom       = left$(Stc_Mst_Nome1$,25)

Qent      = StcQuFrm$(Stc_Acm_Qent,13,"")
Qsai      = StcQuFrm$(Stc_Acm_Qsai,13,"")
Vent      = FrmMoe$("",14,Stc_Acm_Vent)
Vsai      = FrmMoe$("",14,Stc_Acm_Vsai)

TQent     = StcQuFrm$(Total(Qent),13,"")
TQsai     = StcQuFrm$(Total(Qsai),13,"")
TQexi     = StcQuFrm$(Total(ExiQ),13,"")
TVent     = FrmMoe$("",14,Total(Vent))
TVsai     = FrmMoe$("",14,Total(Vsai))
TVexi     = FrmMoe$("",14,Total(ExiV))

TgQu      = FrmVal$(Total(Qu),21,15.3)
TgVt      = FrmMoe$("",17,Total(Vt))
Qu        = StcQuFRm$(StcArtExi$("Q"),16,"")
Vt        = FrmMoe$("",17,MemNum(50))

TxInf1    = MemTxt$(11)
TxInf2    = MemTxt$(12)
TxInfTot  = MemTxt$(11)+" : "+MemTxt$(12)

ExiQ      = StcQuFrm$(StcArtExi$("Q"),13,"")
ExiV      = FrmMoe$("",14,MemNum(50))

ArzNum1   = MemNum(21)
ArzNum2   = MemNum(22)
ArzNum3   = MemNum(23)

ExiArzQT  = StcQuFrm$(MemNum(40),15,"")
ExiArzQ1  = StcQuFrm$(MemNum(41),15,"")
ExiArzQ2  = StcQuFrm$(MemNum(42),15,"")
ExiArzQ3  = StcQuFrm$(MemNum(43),15,"")

ExiArzVT  = FrmMoe$("",18,MemNum(60))
ExiArzV1  = FrmMoe$("",18,MemNum(61))
ExiArzV2  = FrmMoe$("",18,MemNum(62))
ExiArzV3  = FrmMoe$("",18,MemNum(63))

TExiArzQ1 = StcQuFrm$(Total(ExiArzQ1),15,"")
TExiArzQ2 = StcQuFrm$(Total(ExiArzQ2),15,"")
TExiArzQ3 = StcQuFrm$(Total(ExiArzQ3),15,"")
TExiArzQT = StcQuFrm$(Total(ExiArzQT),15,"")

TExiArzV1 = FrmMoe$("",18,Total(ExiArzV1))
TExiArzV2 = FrmMoe$("",18,Total(ExiArzV2))
TExiArzV3 = FrmMoe$("",18,Total(ExiArzV3))
TExiArzVT = FrmMoe$("",18,Total(ExiArzVT))

V1    = V1$
v2    = V2$
V3    = V3$
V4    = V4$
V5    = V5$
##


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


'- Inventario de Artigos -----------------------------------------------------
Sub InvArt_Cab
FxDiv LstIde,10CPI,0
?
print TxTit$("TT=12CPI, LD, PT=48C, TL=10CPI","Inventario de Artigos")
?Data : @DataExt                                                Folha No : @Pag#
?===============================================================================
? REF     Artigo                    P.M.C.    Exist.     1999    2000    2001
?===============================================================================
end sub


Sub InvArt_Lin
'- StcValCon[$](art$,tpv$,ano%,arz%) ------------------------------------------

V1$=StcValCon(Stc_Mst_Art$,"PMC", 2002,0)
V2$=StcValCon(Stc_Mst_Art$,"EXI_Q",2002,0)

V3$=StcValCon(Stc_Mst_Art$,"SAI_Q",1999,0)
V4$=StcValCon(Stc_Mst_Art$,"SAI_Q",2000,0)
V5$=StcValCon(Stc_Mst_Art$,"SAI_Q",2001,0)

?@Art              @Nom             @V1       @V2       @V3     @V4     @V5   #
end sub


Sub InvArt_LinInf
'Listar Titulos
if MemNum(11)=201                   'titulo de familia
?-------------------------------------------------------------------------------
?@TxInf2        @TxInf1                                                        #
?-------------------------------------------------------------------------------
end if

if MemNum(11)=202                   'titulo de subfamilia
?-------------------------------------------------------------------------------
?@TxInf2        @TxInf1                                                        #
?-------------------------------------------------------------------------------
end if

'Listar Totais
if MemNum(11)=301 then                                 'total de familia
   print tab(12) "Total da Familia : " MemTxt$(12);
   print tab(45) FrmVal$(Total("Qu",1),21,12.3);        
   print tab(63) FrmMoe$("",17,Total("Vt",1))        
   x=TotLpz(1)                                         'azerar totalizador de familia
end if

if MemNum(11)=302 then                                  'total de subfamilia
   print tab(12) "Total da Sub-Familia : " MemTxt$(12);
   print tab(45) FrmVal$(Total("Qu",2),21,12.3);
   print tab(63) FrmMoe$("",17,Total("Vt",2))
   x=TotLpz(2)                                          'azerar totalizador de sub-familia
end if
Call AjtCntLin                                       'ajustar contador linhas
end Sub


SUB InvArt_Fim
?===============================================================================
FxDiv LstPer,SP
end sub
##


