'Nome       : Analise.std
'Tipo       : LST
'Data       : 2006/09/28
'Versao     : 1.2e
'Descricao  : Analise de Stocks


'==============================================================================
'#VER - Modificacoes
'==============================================================================
'- Versao : 1.2e  2006/09/28 --------------------------------------------------
'correcção estetica listagens graficas

'- Versao : 1.2d  2005/10/20 --------------------------------------------------
'correcção ortográfica

'- Versao : 1.2c  2004/05/18 --------------------------------------------------
'Na analise financeira geral, colocava os titulos sobre as linhas de informacao

'- Versao : 1.2b  2004/02/05 --------------------------------------------------
'Disponibilizar valores da ultima encomenda de fornecedor

'- Versao : 1.2a  2004/01/15 --------------------------------------------------
'nao estava a valorizara as quantidades usando as opcoes de listagem

'- Versao : 1.2   2003/01/23 --------------------------------------------------
'correccao de total de vendas PMC na analise financeira mensal
'Impressao grafica

'- Versao : 1.1   2002/08/05 --------------------------------------------------
'ajuste no contador de linhas

'- Versao : 1.0e  2001/09/04 --------------------------------------------------
'correcao de valores nas listagens de compras e vendas

'- Versao : 1.0d  2000/12/14 --------------------------------------------------
'Ajuste de posicoes dos totais da analise financeira

'- Versao : 1.0c  2000/12/04 --------------------------------------------------
'Margem para vendas mensais

'- Versao : 1.0b  2000/11/29 --------------------------------------------------
'Mostrar valor de margem
'Analise financeira do periodo actual

'- Versao : 1.0a  2000/08/10 --------------------------------------------------
'Correccao nas variaveis UPC e PMC

'- Versao : 1.0   1998/10/07 --------------------------------------------------
'Versao base


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


'==============================================================================
#ESP - Campos especificos
'==============================================================================
##


'==============================================================================
#DOC - Compras
'==============================================================================
Tipo                       [DocTip]=AnlCmp
Nome                       [DocNom]=AnlCmpL,Compras

'formato
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]=Cmp_Cab
Listar linhas               [FxLIN]=Cmp_Lin,2;Inf,3
Listar fim                  [FxFIM]=Cmp_Fim
##


'==============================================================================
#DOC - Compras (Modo grafico)
'==============================================================================
Tipo                       [DocTip]=AnlCmp
Nome                       [DocNom]=AnlCmpL_G,Compras

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=53
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]=CmpG_Cab
Listar linhas               [FxLIN]=CmpG_Lin;Inf
Listar fim                  [FxFIM]=CmpG_Fim
##


'==============================================================================
#DOC - Encomendas
'==============================================================================
Tipo                       [DocTip]=AnlEnc
Nome                       [DocNom]=AnlEncL,Encomendas

'formato
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]=Enc_Cab
Listar linhas               [FxLIN]=Enc_Lin,2;Inf,3
Listar fim                  [FxFIM]=Enc_Fim
##


'==============================================================================
#DOC - Encomendas (Grafico)
'==============================================================================
Tipo                       [DocTip]=AnlEnc
Nome                       [DocNom]=AnlEncL_G,Encomendas

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=55
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]=EncG_Cab
Listar linhas               [FxLIN]=EncG_Lin;Inf
Listar fim                  [FxFIM]=EncG_Fim
##


'==============================================================================
#DOC - Vendas 
'==============================================================================
Tipo                       [DocTip]=AnlVnd
Nome                       [DocNom]=AnlVndL,Vendas

'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]=Vnd_Cab
Listar linhas               [FxLIN]=Vnd_Lin,2;Inf,3
Listar fim                  [FxFIM]=Vnd_Fim
##


'==============================================================================
#DOC - Vendas  (Grafico)
'==============================================================================
Tipo                       [DocTip]=AnlVnd
Nome                       [DocNom]=AnlVndL_G,Vendas

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=54
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]=VndG_Cab
Listar linhas               [FxLIN]=VndG_Lin;Inf
Listar fim                  [FxFIM]=VndG_Fim
##


'==============================================================================
#DOC - Financeira Acumulada
'==============================================================================
Tipo                       [DocTip]=AnlFin
Nome                       [DocNom]=AnlFinL,Financeira (Geral)

'formato
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]=Fin_Cab
Listar linhas               [FxLIN]=Fin_Lin,2;Inf,3
Listar fim                  [FxFIM]=Fin_Fim
##


'==============================================================================
#DOC - Financeira Acumulada (Grafica)
'==============================================================================
Tipo                       [DocTip]=AnlFin
Nome                       [DocNom]=AnlFinL_G,Financeira (Geral)

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=55
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]=FinG_Cab
Listar linhas               [FxLIN]=FinG_Lin;Inf
Listar fim                  [FxFIM]=FinG_Fim
##


'==============================================================================
#DOC - Financeira Mensal
'==============================================================================
Tipo                       [DocTip]=AnlFin
Nome                       [DocNom]=AnlFinL_M,Financeira Mensal

'formato
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]=Fin_CabMes
Listar linhas               [FxLIN]=Fin_LinMes;Inf
Listar fim                  [FxFIM]=Fin_FimMes
##


'==============================================================================
#DOC - Financeira Mensal (Grafica)
'==============================================================================
Tipo                       [DocTip]=AnlFin
Nome                       [DocNom]=AnlFinL_M_G,Financeira Mensal

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=55
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]=FinG_CabMes
Listar linhas               [FxLIN]=FinG_LinMes;Inf
Listar fim                  [FxFIM]=FinG_FimMes
##


'==============================================================================
#VAR - Variaveis
'==============================================================================
Tipo     =MemTxt$(1)
Pag      =Doc_CntPag
DataExt  =FrmVal$(Sig_Dthoje,45,0)

'variaveis a listar
Art      =StcCodFrm$("")                
Nom1     =Stc_Mst_Nome1$
DtUcomp  =FrmVal$(Stc_Acm_UltCompra,42,0)
FrnUltN  =Stc_Mst_FrnUlt$

RepoTmp  =FrmNum$(6.0,Stc_Mst_RepoTmp)
RepoQu   =FrmNum$(6.0,Stc_Mst_RepoQu)
Penc     =FrmNum$(6.0,Stc_Mst_Penc)
Smin     =FrmNum$(6.0,Stc_Mst_Smin)
FrnCt    =Stc_Mst_FrnCt$
FrnArt   =Stc_Mst_FrnArt$

Pv1      =FrmNum$(6.2,Stc_Mst_Pv1)
Pv2      =FrmNum$(6.2,Stc_Mst_Pv2)
Upc      =FrmNum$(6.2,Stc_Acm_Upc)
Pmc      =FrmNum$(6.2,Stc_Acm_Pmc)

EncQ     =FrmNum$(10.2,Stc_Acm_QencF)
DtEnt    =Frmval$(Stc_Acm_Ultcompra,44,0)

CqMes    =FrmNum$(10.2,Stc_Acm_CqAct-Stc_Acm_CqAnt)
CvMes    =FrmNum$(10.2,Stc_Acm_CvAct-Stc_Acm_CvAnt)
CvMesTot =FrmNum$(12.2,Total("CvMes",0))

VqMes    =FrmNum$(10.2,Stc_Acm_VqAct-Stc_Acm_VqAnt)
VvMes    =FrmNum$(10.2,Stc_Acm_VvAct-Stc_Acm_VvAnt)
VvMesTot =FrmNum$(12.2,Total("VvMes",0))

CqAct    =FrmNum$(10.2,Stc_Acm_CqAct)
CvAct    =FrmNum$(10.2,Stc_Acm_CvAct)
VqAct    =FrmNum$(10.2,Stc_Acm_VqAct)
VvAct    =FrmNum$(10.2,Stc_Acm_VvAct)
VvActTot =FrmNum$(15.2,Total("VvAct",0))

Vpmc     =FrmNum$(12.2,Stc_Acm_VpmcAct)
VpmcMes  =FrmNum$(12.2,Stc_Acm_VpmcAct-Stc_Acm_VpmcAnt)

CqAcm    =FrmNum$(10.2,Stc_Acm_CqAct)
CvAcm    =FrmNum$(10.2,Stc_Acm_CvAct)

ExistCq  =FrmNum$(10.2,StcArtExi$("Q"))
ExistCv  =FrmNum$(10.2,StcArtExi$("V"))

ExistQ   =FrmNum$(10.2,StcArtExi$("Q"))
'ExistV   =FrmNum$(10.2,StcArtExi$("V"))
ExistV   =FrmNum$(10.2,memnum(50))

TvendVMes=FrmNum$(12.2,Total(VvMes))
TcompVMes=FrmNum$(12.2,Total(CvMes))
TvpmcVMes=FrmNum$(12.2,Total(VpmcMes))

TvendV   =FrmNum$(12.2,Total(VvAct))
TcompV   =FrmNum$(12.2,Total(CvAct))
Tvpmc    =FrmNum$(12.2,Total(Vpmc))
TexiV    =FrmNum$(12.2,Total(ExistV))

ConsMedQ =FrmNum$(6.2,MemNum(20))
ConsMedV =FrmNum$(6.2,MemNum(21))
CmPerQ   =FrmNum$(8.2,MemNum(22))
CmPerV   =FrmNum$(8.2,MemNum(23))
CmPerVT  =FrmNum$(8.2,Total(CmPerV))

Margem   =FrmVal$(MemNum(24),21,3.2)+" %"
MargMes  =StcArtMargem$("PF","MES")

DtPrv    =FrmVal$(MemNum(25),42,0)

TExiCv   =FrmNum$(11.2,Total(ExistCv))
TacmCv   =FrmNum$(11.2,Total(CvAcm))

CmpAcmQ  =FrmNum(15.2,Stc_Acm_VqAct)
CmpAcmV  =FrmNum(15.2,Stc_Acm_VvAct)
CmpAcmVT =FrmNum(15.2,Total(CmpAcmV))

txInf1   =MemTxt$(11)
txInf2   =MemTxt$(12)
TxInfTot =MemTxt$(11)+" : "+MemTxt$(12)

TitTotFam  = "Total de Familia"+MemTxt$(11)
TitTotSfam = "Total de Sub-Familia"+MemTxt$(11)
##


'==============================================================================
#INC - Variaveis comuns
'==============================================================================
Variaveis  comuns                 =[SIG_Dir.Div],LsComVar.std
##


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


'------------------------------------------------------------------------------
' Formato dos documentos
'------------------------------------------------------------------------------
'- Analise de Compras ---------------------------------------------------------
SUB Cmp_Cab
FxDiv LstIde,16CPI,0
print TxTit$("TT=16CPI, LD, PT=66C, TL=16CPI","Analise de Compras")
?Data : @DataExt                                                                                                      Folha No : @Pag
?====================================================================================================================================
?                               U.P. Compra    Ult. Forn.  Cons. Medio   St.Reposicao   Existencia   Compras Periodo   Compras Acum.
?    Artigo                     Data U.C.      Tmp. Rep.   Quant./val.   P.Encomenda    Quant./valor    Quant./valor    Quant./valor
?====================================================================================================================================
end sub


SUB Cmp_Lin
?@Art                           @Upc           @FrnUltN     @ConsMedQ     @RepoQu     @Existq        @CqMes          @CqAcm       #
?@Nom1                          @DtuComp       @RepoTmp     @ConsMedV     @Penc       @Existv        @CvMes          @CvAcm       #

end sub


Sub Cmp_LinInf
call Listar_Titulos

'Listar Totais
if MemNum(11)=301 then                                 'total de familia
   print tab(12) "Total da Familia     : " MemTxt$(11);
   print tab(84)  FrmNum$(12.2,Total("ExistV",1));        
   print tab(099) FrmNum$(12.2,Total("CvMes",1));
   print tab(115) FrmNum$(12.2,Total("CvAcm",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(84)  FrmNum$(12.2,Total("ExistV",2));        
   print tab(099) FrmNum$(12.2,Total("CvMes",2));
   print tab(115) FrmNum$(12.2,Total("CvAcm",2))
   x=TotLpz(2)                                          'azerar totalizador de sub-familia
end if
Call AjtCntLin                                          'ajustar contador linhas
end Sub


SUB Cmp_Fim
?====================================================================================================================================
?        Total Geral :                                                              @TexiV         @CvMesTot        @TacmCv         #
?====================================================================================================================================
FxDiv LstPer,SP
'Print PrtCmd$("[SP]");
end sub


'- Analise de Encomendas ------------------------------------------------------
Sub Enc_Cab
FxDiv LstIde,16CPI,0
print TxTit$("TT=16CPI, LD, PT=66C, TL=16CPI","Analise de Artigos / Encomendas")
?Data : @DataExt                                                                                                       Folha No : @Pag
?=====================================================================================================================================
?Codigo                       Pt.Enc. St.Rep.   Forn.Norm.   Cons.Med. Ult.Fornec.  Ult.Pc.Compra    Existencia      Enc.    
?Designacao                   Stk.Mn. Tp.Rep.   Art.Fornec.  Quant./val.            Dt.Ult.Compra   Quant./valor    Dt.Prv.
?=====================================================================================================================================
end sub


Sub Enc_Lin
?@Art                        @Penc    @RepoQu    @FrnCt       @ConsMedQ    @FrnUltN    @Upc          @ExistQ        @Encq       @Obs
?@Nom1                       @Smin    @RepoTmp   @FrnArt      @ConsMedV                @DtuComp      @ExistV        @DtEnt           #
end sub


Sub Enc_LinInf
call Listar_Titulos
end Sub


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


'- Analise de Vendas ----------------------------------------------------------
Sub Vnd_Cab
FxDiv LstIde,16CPI,0
print TxTit$("TT=16CPI, LD, PT=66C, TL=16CPI","Analise de Vendas")
?Data : @DataExt                                                                                                     Folha No : @Pag
?===================================================================================================================================
?                                                         Cons.Medio                Periodos                        Acumulado
?   Artigo       Pr.Venda 1    Pr.Venda 2    Pr.Medio     Quant./val.              Quant./val.                    Quant./val.
?===================================================================================================================================
end sub


Sub Vnd_Lin
?@Art             @Pv1          @Pv2          @Pmc         @ConsMedQ                @VqMes                         @VqAct         #
?@Nom1                                                     @ConsMedV                @VvMes                         @VvAct         #
end sub


Sub Vnd_LinInf
Call Listar_Titulos

'Listar Totais
if MemNum(11)=301 then                                 'total de familia
   print tab(12) "Total da Familia     : " MemTxt$(11);
   print tab(079) FrmNum$(15.2,Total("VvMes",1));
   print tab(110) FrmNum$(15.2,Total("VvAct",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(079) FrmNum$(15.2,Total("VvMes",2));
   print tab(110) FrmNum$(15.2,Total("VvAct",2))        
   x=TotLpz(2)                                          'azerar totalizador de sub-familia
end if
Call AjtCntLin                                          'ajustar contador linhas
end Sub


SUB Vnd_Fim
?==================================================================================================================================
?            Total Geral :                                                        @VvMesTot                   @VvActTot           #
?==================================================================================================================================
FxDiv LstPer,SP
end sub


'- Analise Financeira (Geral) -------------------------------------------------
Sub Fin_Cab
FxDiv LstIde,16CPI,0
print TxTit$("TT=16CPI, LD, PT=66C, TL=16CPI","Analise Financeira")
?Data : @DataExt                                                                                                    Folha No : @Pag
?==================================================================================================================================
?Codigo           Pr.Venda 1      P.M.C.        Vendas Mes      Compras Mes        Vendas P.Custo      Existencias         Encom(Q)
?Designacao       Pr.Venda 2    U.P.Compra     Quant./val.     Quant./val.           Margem (%)        Quant./val.         Dt.Entr.
?==================================================================================================================================
end sub


Sub Fin_Lin
?@Art             @Pv1          @Pmc           @VqAct          @CqAct             @Vpmc                @ExistQ           @EncQ    #
?@Nom1            @Pv2          @Upc           @VvAct          @CvAct                    @Margem       @ExistV           @DtEnt   #
end sub


Sub Fin_LinInf
Call Listar_Titulos

'Listar Totais
if MemNum(11)=301 then                                 'total de familia
   print tab(12) "Total da Familia     : " MemTxt$(11);
   print tab(47)  FrmNum$(10.2,Total("VvAct",1));        
   print tab(63)  FrmNum$(10.2,Total("CvAct",1));
   print tab(86)  FrmNum$(8.2,Total("Vpmc",1));     
   print tab(103) FrmNum$(10.2,Total("ExistV",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(47)  FrmNum$(10.2,Total("VvAct",2));        
   print tab(63)  FrmNum$(10.2,Total("CvAct",2));
   print tab(86)  FrmNum$(8.2,Total("Vpmc",2));
   print tab(103) FrmNum$(10.2,Total("ExistV",2))        
   x=TotLpz(2)                                          'azerar totalizador de sub-familia
end if
Call AjtCntLin                                          'ajustar contador linhas
end Sub


SUB Fin_Fim
?==================================================================================================================================
?     Total Geral :                          @TvendV         @TcompV              @Tvpmc             @TexiV                       #
?==================================================================================================================================
'Print PrtCmd$("[SP]");
FxDiv LstPer,SP
end sub


'- Analise Financeira (Mensal) ------------------------------------------------
Sub Fin_CabMes
FxDiv LstIde,16CPI,0
print TxTit$("TT=16CPI, LD, PT=66C, TL=16CPI","Analise Financeira (mes)")
?Data : @DataExt                                                                                                    Folha No : @Pag
?==================================================================================================================================
?Codigo           Pr.Venda 1      P.M.C.        Vendas Mes      Compras Mes        Vendas P.Custo      Existencias         Encom(Q)
?Designacao       Pr.Venda 2    U.P.Compra     Quant./val.     Quant./val.           Margem (%)        Quant./val.         Dt.Entr.
?==================================================================================================================================
end sub


Sub Fin_LinMes
?@Art             @Pv1          @Pmc           @VqMes          @CqMes             @VpmcMes          @ExistQ           @EncQ       #
?@Nom1            @Pv2          @Upc           @VvMes          @CvMes                 @MargMes      @ExistV           @DtEnt      #
end sub


Sub Fin_LinMesInf
Call Listar_Titulos

'Listar Totais
if MemNum(11)=301 then                                 'total de familia
   print tab(12) "Total da Familia     : " MemTxt$(11);
   print tab(47)  FrmNum$(10.2,Total("VvMes",1));        
   print tab(63)  FrmNum$(10.2,Total("CvMes",1));
   print tab(86)  FrmNum$(8.2,Total("VpmcMes",1));     
   print tab(103) FrmNum$(10.2,Total("ExistV",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(47)  FrmNum$(10.2,Total("VvMes",2));        
   print tab(63)  FrmNum$(10.2,Total("CvMes",2));
   print tab(86)  FrmNum$(8.2,Total("VpmcMes",2));
   print tab(103) FrmNum$(10.2,Total("ExistV",2))        
   x=TotLpz(2)                                          'azerar totalizador de sub-familia
end if
Call AjtCntLin                                          'ajustar contador linhas
end Sub


SUB Fin_FimMes
?==================================================================================================================================
?     Total Geral :                          @TvendVMes      @TcompVMes           @TvpmcVmes         @TexiV                          #
?==================================================================================================================================
'Print PrtCmd$("[SP]");
FxDiv LstPer,SP
end sub


Sub Listar_Titulos
if MemNum(11)=201                   'titulo de familia
?----------------------------------------------------------------------------------------------------------------------------------
?@txinf2        @Txinf1                                                        #
?----------------------------------------------------------------------------------------------------------------------------------
end if

if MemNum(11)=202                   'titulo de subfamilia
?----------------------------------------------------------------------------------------------------------------------------------
?@txinf2        @Txinf1                                                        #
?----------------------------------------------------------------------------------------------------------------------------------
end if
End sub


Sub AjtCntLin
if MemNum(11)=302 then                                  'total de subfamilia
  cnt=Doc_CntLin-2
  tmp=CntLin("FRC",cnt)                                 'decrementar contador linhas
end if

if MemNum(11)=301 then                                  'total de familia
  cnt=Doc_CntLin-2
  tmp=CntLin("FRC",cnt)                                 'decrementar contador linhas
end if
End sub


'==============================================================================
' *****  Formato dos documentos em modo grafico  ****
'==============================================================================
SUB FxIni 'funcao de inicializacao
Call SigLstIni
FimDoc=272
End sub

Sub Listar_TitulosG 'titulos da listagem
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
Listar=0
If MemNum(11)=201 then 
   Listar=1                  'titulo familia
end if

If MemNum(11)=202 then
   Listar=1                  'titulo sub-familia
end if

if Listar=1 then
  PrWIN COR_T,CorTraco                            'cor de linhas
  PrWIN GR_LI,     0,  0, Cmax, 0            	'linha
  PrWIN GR_LI,     0,  3, Cmax, 3            	'linha
  PrWIN COR_T,     CorTit
  PrWIN  TX_N,     Col1+10, 0   ,@txinf2
  PrWIN  TX_N,     Col2-10, 0   ,@txinf1
end if
End sub


'- Analise de Compras --------------------------------------------------------- CABECALHO ---
SUB CmpG_Cab
SigCabNorOpcTit=2 		                 'alterar origem do titulo
Titulo$="Análise de Compras"
Call SigLstCab

Lin1=1                            		'linha 1
Lin2=5                                          'linha2

esp=21

TCol1=  0
TCol2= 45
TCol3= 66
TCol4= 87
TCol5=108
TCol6=129
TCol7=150
TCol8=171
TCol9=190
Cmax=TCol9

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

PrWIN FON, "BOLD+"                              'activar bold
PrWIN TX_NCTR,  TCol1,Lin2,TCol2,Lin2,"Artigo"

PrWIN TX_CTR,  TCol2,Lin1,TCol3,Lin1,"U.P. Compra"
PrWIN TX_CTR,  TCol2,Lin2,TCol3,Lin2,"Data U.C."

PrWIN TX_CTR,  TCol3,Lin1,TCol4,Lin1,"Ult. Forn"
PrWIN TX_CTR,  TCol3,Lin2,TCol4,Lin2,"Tmp. Rep."

PrWIN TX_CTR,  TCol4,Lin1,TCol5,Lin1,"Cons. Médio"
PrWIN TX_CTR,  TCol4,Lin2,TCol5,Lin2,"Quant./val."

PrWIN TX_CTR,  TCol5,Lin1,TCol6,Lin1,"St.Reposição"
PrWIN TX_CTR,  TCol5,Lin2,TCol6,Lin2,"P.Encomenda"

PrWIN TX_CTR,  TCol6,Lin1,TCol7,Lin1,"Existência"
PrWIN TX_CTR,  TCol6,Lin2,TCol7,Lin2,"Quant./valor"

PrWIN TX_N,    TCol7-1,Lin1,"Compras Período"
PrWIN TX_CTR,  TCol7,Lin2,TCol8,Lin2,"Quant./Valor"

PrWIN TX_N,    TCol8,Lin1,"Compras Acum."
PrWIN TX_CTR,  TCol8,Lin2,TCol9,Lin2,"Quant./Valor"

PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 0, Cmax, 0                      'linha
PrWIN GR_LI, 0, 9, Cmax, 9                      'linha
PrWIN FON, "BOLD-"                              'desactivar bold

PrWIN FON  ,   7,   1                           'activar fonte
PrWIN COR_T,CorLin                              'cor de linhas
InicioLinhas=32
end sub


'- Analise de Compras --------------------------------------------------------- LINHA ---
SUB CmpG_Lin

Col1=  0
Col2= 45
Col3= 66
Col4= 87
Col5=108
Col6=129
Col7=150
Col8=171
Col9=190
Cmax=Col9

Lin2=4
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN COR_T,     CorLin

PrWIN TX_N,     Col1,0,             @Art
PrWIN TX_DMX,   Col1,Lin2,Col2-Col1,@Nom1

PrWIN TX_NP,    Col2,0   ,"N",@Upc
PrWIN TX_NP,    Col2+1,Lin2,"N",@DtuComp

PrWIN TX_NP,    Col3,   0,"N",@FrnUltN
PrWIN TX_NP,    Col3,Lin2,"N",@RepoTmp

PrWIN TX_NP,    Col4,0   ,"N",@ConsMedQ
PrWIN TX_NP,    Col4,Lin2,"N",@ConsMedV

PrWIN TX_NP,    Col5,0   ,"N",@RepoQu
PrWIN TX_NP,    Col5,Lin2,"N",@Penc

PrWIN TX_NP,    Col6,0   ,"N",@Existq
PrWIN TX_NP,    Col6,Lin2,"N",@Existv

PrWIN TX_NP,    Col7,0   ,"N",@CqMes
PrWIN TX_NP,    Col7,Lin2,"N",@CvMes

PrWIN TX_NP,    Col8,0   ,"N",@CqAcm
PrWIN TX_NP,    Col8,Lin2,"N",@CvAcm

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


'- Analise de Compras --------------------------------------------------- TITULOS/TOTAIS ---
Sub CmpG_LinInf                       'listar titulos/totais
call Listar_TitulosG
PrWIN COR_T,     CorTit

if MemNum(11)=301 then                                 'total de familia
  PrWIN TX_N,      Col1+10, 0   ,@TitTotFam
  PrWIN TX_NP,     Col6-3, 0 , "N",FrmNum$(12.2,Total("ExistV",1))
  PrWIN TX_NP,     Col7-3, 0 , "N",FrmNum$(12.2,Total("CvMes",1))
  PrWIN TX_NP,     Col8-3, 0 , "N",FrmNum$(12.2,Total("CvAcm",1))
  x=TotLpz(1)                                         'azerar totalizador de familia
end if

if MemNum(11)=302 then                                  'total de subfamilia
  PrWIN TX_N,      Col1+10, 0      ,@TitTotSfam
  PrWIN TX_NP,     Col6-3, 0 , "N" ,FrmNum$(12.2,Total("ExistV",2))
  PrWIN TX_NP,     Col7-3, 0 , "N" ,FrmNum$(12.2,Total("CvMes",2))
  PrWIN TX_NP,     Col8-3, 0 , "N" ,FrmNum$(12.2,Total("CvAcm",2))
  x=TotLpz(2)                                          'azerar totalizador de sub-familia
end if
end Sub


'- Analise de Compras --------------------------------------------------------- FIM ---
SUB CmpG_Fim

FCol6=126
FCol7=147
FCol8=169
FCol9=190
Cmax=Col9

PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN AJT_B,Margem,FimDoc-4                     'posicao base
PrWIN GR_LI,     0,  0, Col9, 0            	'linha
PrWIN GR_LI,     0,  5, Col9, 5            	'linha

PrWIN COR_T,     CorTotGer                      'cor para totais
PrWIN FON,"BOLD+"
PrWIN TX_NP,    FCol6,1.0   ,"N",@TexiV
PrWIN TX_NP,    FCol7,1.0   ,"N",@CvMesTot
PrWIN TX_NP,    FCol8,1.0   ,"N",@TacmCv
PrWIN FON,"BOLD-"
Call SigLstRod
PrWin FP
end sub


'- Analise de Encomendas --------------------------------------------------------- CABECALHO ---
Sub EncG_Cab
SigCabNorOpcTit=2 		                 'alterar origem do titulo
Titulo$="Análise de Artigos / Encomendas")
Call SigLstCab

Lin1=  1               'linha 1
Lin2=  5               'linha2

Col1 =  0
Col2 = 45
Col3 = 60
Col4 = 75
Col5 = 94
Col6 =113
Col7 =132
Col8 =151
Col9 =170
Col10=190
Cmax=Col10

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

PrWIN FON,"BOLD+"
PrWIN TX_CTR,  Col1,Lin2,Col2,Lin2,"Artigo"

PrWIN TX_CTR,  Col2,Lin1,Col3,Lin1,"Pt.Enc."
PrWIN TX_CTR,  Col2,Lin2,Col3,Lin2,"Stk.Mn."

PrWIN TX_CTR,  Col3,Lin1,Col4,Lin1,"St.Rep."
PrWIN TX_CTR,  Col3,Lin2,Col4,Lin2,"Tp.Rep."

PrWIN TX_CTR,  Col4,Lin1,Col5,Lin1,"Forn.Norm."
PrWIN TX_CTR,  Col4,Lin2,Col5,Lin2,"Art.Fornec."

PrWIN TX_CTR,  Col5,Lin1,Col6,Lin1,"Cons.Med."
PrWIN TX_CTR,  Col5,Lin2,Col6,Lin2,"Quant./Val"

PrWIN TX_CTR,  Col6,Lin1,Col7,Lin1,"Ult.Fornec."
PrWIN TX_CTR,  Col6,Lin2,Col7,Lin2,""

PrWIN TX_N,    Col7,Lin1          ,"Ult.Pc.Compra"
PrWIN TX_N,    Col7,Lin2          ,"Dt.Ult.Compra"

PrWIN TX_CTR,  Col8,Lin1,Col9,Lin1,"Existencia"
PrWIN TX_CTR,  Col8,Lin2,Col9,Lin2,"Quant./Valor"

PrWIN TX_CTR,  Col9,Lin1,Col10,Lin1,"Enc."
PrWIN TX_CTR,  Col9,Lin2,Col10,Lin2,"Dt.Prv."
PrWIN FON,"BOLD-"

PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 0, Cmax, 0                      'linha
PrWIN GR_LI, 0, 9, Cmax, 9                      'linha

PrWIN FON  ,   7,   1                           'activar fonte
PrWIN COR_T,CorLin                              'cor de linhas
InicioLinhas=32
end sub


'- Analise de Encomendas --------------------------------------------------------- LINHA ---
Sub EncG_Lin

LCol1 =  0
LCol2 = 45
LCol3 = 60
LCol4 = 75
LCol5 = 99
LCol6 =113
LCol7 =133
LCol8 =151
LCol9 =172
LCol10=190
Cmax=LCol10

Lin2=4
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN COR_T,     CorLin

PrWIN TX_N,     LCol1,0,             @Art
PrWIN TX_DMX,   LCol1,Lin2,LCol2-LCol1,@Nom1

PrWIN TX_NP,    LCol2,0   ,"N",@Penc
PrWIN TX_NP,    LCol2,Lin2,"N",@Smin

PrWIN TX_NP,    LCol3,   0,"N",@RepoQu
PrWIN TX_NP,    LCol3,Lin2,"N",@RepoTmp

PrWIN TX_NP,    LCol4,0   ,"N",@FrnCt
PrWIN TX_NP,    LCol4,Lin2,"N",@FrnArt

PrWIN TX_NP,    LCol5,0   ,"N",@ConsMedQ
PrWIN TX_NP,    LCol5,Lin2,"N",@ConsMedV

PrWIN TX_NP,    LCol6,0   ,"N",@FrnUltN
PrWIN TX_NP,    LCol6,Lin2,"N",""

PrWIN TX_NP,    LCol7,0   ,"N",@Upc
PrWIN TX_NP,    LCol7+1,Lin2,"N",@DtuComp

PrWIN TX_NP,    LCol8,0   ,"N",@ExistQ
PrWIN TX_NP,    LCol8,Lin2,"N",@ExistV

PrWIN TX_NP,    LCol9,0   ,"N",@EncQ
PrWIN TX_NP,    LCol9,Lin2,"N",@DtEnt

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


'- Analise de Encomendas --------------------------------------------------------- TITULOS ---
Sub EncG_LinInf
call Listar_TitulosG
end Sub


'- Analise de Encomendas --------------------------------------------------------- FIM ---
SUB EncG_Fim
PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN AJT_B,Margem,FimDoc                       'posicao base
PrWIN GR_LI,     0,  0, CMax, 0            	'linha
Call SigLstRod
PrWin FP
end sub



'- Analise de Vendas --(Grafico)-----------------------------------------------

'- Analise de Vendas ----------------------------------------------- CABECALHO ---
Sub VndG_Cab
SigCabNorOpcTit=2 		                 'alterar origem do titulo
Titulo$="Análise de Vendas"
Call SigLstCab

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

Col1 =   0
Col2 =  58
Col3 =  80
Col4 = 102
Col5 = 124
Col6 = 144
Col7 = 174
Col8 = 190
Cmax=Col8

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

PrWIN FON, "BOLD+"                              'activar bold
PrWIN TX_CTR,  Col1,Lin2,Col2,Lin2,"Artigo"

PrWIN TX_CTR,  Col2,Lin2,Col3,Lin2,"Pr.Venda 1"

PrWIN TX_CTR,  Col3,Lin2,Col4,Lin2,"Pr.Venda 2"

PrWIN TX_CTR,  Col4,Lin2,Col5,Lin2,"Pr.Médio"

PrWIN TX_CTR,  Col5,Lin1,Col6,Lin1,"Cons.Méd."
PrWIN TX_CTR,  Col5,Lin2,Col6,Lin2,"Quant./Valor"

PrWIN TX_CTR,  Col6,Lin1,Col7,Lin1,"Períodos"
PrWIN TX_CTR,  Col6,Lin2,Col7,Lin2,"Quant./Valor"

PrWIN TX_CTR,  Col7,Lin1,Col8,Lin1,"Acumulado"
PrWIN TX_CTR,  Col7,Lin2,Col8,Lin2,"Quant./Valor"
PrWIN FON, "BOLD-"                              'desactivar bold

PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 0, Cmax, 0                      'linha
PrWIN GR_LI, 0, 9, Cmax, 9                      'linha

PrWIN FON  ,   8,   1                           'activar fonte
PrWIN COR_T,CorLin                              'cor de linhas
InicioLinhas=32
end sub


'- Analise de Vendas ----------------------------------------------- LINHA ---
Sub VndG_Lin
Lin2=4

LCol1 =   0
LCol2 =  62
LCol3 =  84
LCol4 = 105
LCol5 = 129
LCol6 = 146
LCol7 = 169
LCol8 = 190
Cmax=LCol8

PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN COR_T,     CorLin

PrWIN TX_N,     LCol1,0,               @Art
PrWIN TX_DMX,   LCol1,Lin2,LCol2-LCol1,@Nom1

PrWIN TX_NP,    LCol2,0   ,"N",@Pv1

PrWIN TX_NP,    LCol3,   0,"N",@Pv2

PrWIN TX_NP,    LCol4,0   ,"N",@Pmc

PrWIN TX_NP,    LCol5,0   ,"N",@ConsMedQ
PrWIN TX_NP,    LCol5,Lin2,"N",@ConsMedV

PrWIN TX_NP,    LCol6,0   ,"N",@VqMes
PrWIN TX_NP,    LCol6,Lin2,"N",@VvMes

PrWIN TX_NP,    LCol7,0   ,"N",@VqAct
PrWIN TX_NP,    LCol7,Lin2,"N",@VvAct

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


'- Analise de Vendas ----------------------------------------------- TITULOS/TOTAIS ---
Sub VndG_LinInf
Call Listar_TitulosG
PrWIN COR_T,     CorTit

if MemNum(11)=301 then                                 'total de familia
  PrWIN TX_N,      LCol1+10, 0   ,@TitTotFam
  PrWIN TX_NP,     LCol6-8, 0 , "N",FrmNum$(15.2,Total("VvMes",1))
  PrWIN TX_NP,     LCol7-8, 0 , "N",FrmNum$(15.2,Total("VvAct",1))
  x=TotLpz(1)                                         'azerar totalizador de familia
end if

if MemNum(11)=302 then                                  'total de subfamilia
  PrWIN TX_N,      LCol1+10, 0      ,@TitTotSfam
  PrWIN TX_NP,     LCol6-3, 0 , "N" ,FrmNum$(12.2,Total("VvMes",2))
  PrWIN TX_NP,     LCol7-3, 0 , "N" ,FrmNum$(12.2,Total("VvAct",2))
  x=TotLpz(2)                                          'azerar totalizador de sub-familia
end if
end Sub


'- Analise de Vendas ----------------------------------------------- FIM ---
SUB VndG_Fim

FCol2 =  62
FCol6 = 143
FCol7 = 161

PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN AJT_B,Margem,FimDoc-4                     'posicao base
PrWIN GR_LI,     0,  0, Cmax, 0            	'linha
PrWIN GR_LI,     0,  5, Cmax, 5            	'linha

PrWIN COR_T,     CorTotGer                      'cor para totais
prWIN FON, "BOLD+"
PrWIN TX_N,     FCol2,0.5  ,"Total Geral :"
PrWIN TX_NP,    FCol6,0.5  ,"N",@VvMesTot
PrWIN TX_NP,    FCol7,0.5  ,"N",@VvActTot
prWIN FON, "BOLD-"
Call SigLstRod
PrWin FP
end sub


'- Analise Financeira (Funcoes Comumns) --------------------------------

'- Analise FINANCEIRA ----------------------------------------------- CABECALHO ---

Sub Anl_Fin_Cab   'impressao cabecalho
SigCabNorOpcTit=2 		                 'alterar origem do titulo
Call SigLstCab

Lin1=1                            		'linha 1
Lin2=5                                          'linha2

Col1=   0
Col2=  59
Col3=  78
Col4=  97
Col5= 116
Col6= 135
Col7= 154
Col8= 173
Col9= 190
Cmax=Col9

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

PrWIN FON, "BOLD+"
PrWIN TX_CTR,  Col1,Lin2,Col2,Lin2,"Artigo"

PrWIN TX_CTR,  Col2,Lin1,Col3,Lin1,"Pr.Venda 1"
PrWIN TX_CTR,  Col2,Lin2,Col3,Lin2,"Pr.Venda 2"

PrWIN TX_CTR,  Col3,Lin1,Col4,Lin1,"P.M.C."
PrWIN TX_CTR,  Col3,Lin2,Col4,Lin2,"U.P.Compra"

PrWIN TX_CTR,  Col4,Lin1,Col5,Lin1,"Vendas Mês"
PrWIN TX_CTR,  Col4,Lin2,Col5,Lin2,"Quant./Val."

PrWIN TX_CTR,  Col5,Lin1,Col6,Lin1,"Compras Mês"
PrWIN TX_CTR,  Col5,Lin2,Col6,Lin2,"Quant./Val"

PrWIN TX_CTR,  Col6,Lin1,Col7,Lin1,"Vendas P.Custo"
PrWIN TX_CTR,  Col6,Lin2,Col7,Lin2,"Margem (%)"

PrWIN TX_CTR,  Col7,Lin1,Col8,Lin1,"Existências"
PrWIN TX_CTR,  Col7,Lin2,Col8,Lin2,"Quant./Val."

PrWIN TX_CTR,  Col8,Lin1,Col9,Lin1,"Encom(Q)"
PrWIN TX_CTR,  Col8,Lin2,Col9,Lin2,"Dt.Entr."
PrWIN FON, "BOLD-"

PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 0, Cmax, 0                      'linha
PrWIN GR_LI, 0, 9, Cmax, 9                      'linha

PrWIN FON  ,   7,   1                           'activar fonte
PrWIN COR_T,CorLin                              'cor de linhas
InicioLinhas=32
end sub


'- Analise Financeira (Geral - formato grafico)--------------------------------
Sub FinG_Cab
Titulo$="Análise Financeira"
Call Anl_Fin_Cab
End Sub


'- Analise FINANCEIRA ----------------------------------------------- LINHA ---
Sub FinG_Lin
Lin2=4

LCol1=   0
LCol2=  59
LCol3=  78
LCol4=  97
LCol5= 116
LCol6= 135
LCol7= 156
LCol8= 175
LCol9= 190
Cmax=LCol9

PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN COR_T,     CorLin

PrWIN TX_N,     LCol1,0,               @Art
PrWIN TX_DMX,   LCol1,Lin2,LCol2-LCol1,@Nom1

PrWIN TX_NP,    LCol2,0   ,"N",@Pv1
PrWIN TX_NP,    LCol2,Lin2,"N",@Pv2

PrWIN TX_NP,    LCol3,0   ,"N",@Pmc
PrWIN TX_NP,    LCol3,Lin2,"N",@Upc

PrWIN TX_NP,    LCol4,0   ,"N",@VqAct
PrWIN TX_NP,    LCol4,Lin2,"N",@VvAct

PrWIN TX_NP,    LCol5,0   ,"N",@CqAct
PrWIN TX_NP,    LCol5,Lin2,"N",@CvAct

PrWIN TX_NP,    LCol6,0   ,"N",@Vpmc
PrWIN TX_NP,    LCol6+5,Lin2,"N",@Margem

PrWIN TX_NP,    LCol7,0   ,"N",@ExistQ
PrWIN TX_NP,    LCol7,Lin2,"N",@ExistV

'PrWIN TX_NP,    LCol8,0   ,"N",@EncQ
PrWIN TX_NP,    LCol8,Lin2,"N",@DtEnt

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


Sub FinG_LinInf
Call Listar_TitulosG 

PrWIN COR_T,     CorTit
if MemNum(11)=301 then                                 'total de familia
  PrWIN TX_N,      LCol1+10, 0   ,@TitTotFam
  PrWIN TX_NP,     LCol4-7, 0 , "N",FrmNum$(15.2,Total("VvAct",1))
  PrWIN TX_NP,     LCol5-7, 0 , "N",FrmNum$(15.2,Total("CvAct",1))
  PrWIN TX_NP,     LCol6-7, 0 , "N",FrmNum$(15.2,Total("Vpmc",1))
  PrWIN TX_NP,     LCol7-7, 0 , "N",FrmNum$(15.2,Total("ExistV",1))
  x=TotLpz(1)                                         'azerar totalizador de familia
end if

if MemNum(11)=302 then                                  'total de subfamilia
  PrWIN TX_N,      LCol1+10, 0      ,@TitTotSfam
  PrWIN TX_NP,     LCol4-7, 0 , "N",FrmNum$(15.2,Total("VvAct",2))
  PrWIN TX_NP,     LCol5-7, 0 , "N",FrmNum$(15.2,Total("CvAct",2))
  PrWIN TX_NP,     LCol6-7, 0 , "N",FrmNum$(15.2,Total("Vpmc",2))
  PrWIN TX_NP,     LCol7-7, 0 , "N",FrmNum$(15.2,Total("ExistV",2))
  x=TotLpz(2)                                          'azerar totalizador de sub-familia
end if
end Sub


'- Analise FINANCEIRA ----------------------------------------------- FIM ---
SUB FinG_Fim
FCol2=  59
FCol4=  94
FCol5= 113
FCol6= 135
FCol7= 153
FCol8= 190
Cmax=FCol8

PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN AJT_B,Margem,FimDoc-4                     'posicao base
PrWIN GR_LI,     0,  0, Cmax, 0            	'linha
PrWIN GR_LI,     0,  5, Cmax, 5            	'linha

PrWIN COR_T,     CorTotGer                      'cor para totais
PrWin FON, "BOLD+"
PrWIN TX_N,     FCol2,1.0 ,"Total Geral :"
PrWIN TX_NP,    FCol4,1.0 ,"N",@TvendV
PrWIN TX_NP,    FCol5,1.0 ,"N",@TcompV
PrWIN TX_NP,    FCol6,1.0 ,"N",@Tvpmc
PrWIN TX_NP,    FCol7,1.0 ,"N",@TexiV
PrWin FON, "BOLD-"
Call SigLstRod
PrWin FP
end sub


'- Analise Financeira (Mensal) ------------------------------------------------
Sub FinG_CabMes
Titulo$="Análise Financeira (Mensal)"
Call Anl_Fin_Cab
end sub


Sub FinG_LinMes
Lin2=4
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN COR_T,     CorLin

PrWIN TX_N,     Col1,0,             @Art
PrWIN TX_DMX,   Col1,Lin2,Col2-Col1,@Nom1

PrWIN TX_NP,    Col2,0   ,"N",@Pv1
PrWIN TX_NP,    Col2,Lin2,"N",@Pv2

PrWIN TX_NP,    Col3,0   ,"N",@Pmc
PrWIN TX_NP,    Col3,Lin2,"N",@Upc

PrWIN TX_NP,    Col4,0   ,"N",@VqMes
PrWIN TX_NP,    Col4,Lin2,"N",@VvMes

PrWIN TX_NP,    Col5,0   ,"N",@CqMes
PrWIN TX_NP,    Col5,Lin2,"N",@CvMes

PrWIN TX_NP,    Col6,0   ,"N",@VpmcMes
PrWIN TX_NP,  Col6+5,Lin2,"N",@Margem

PrWIN TX_NP,    Col7,0   ,"N",@ExistQ
PrWIN TX_NP,    Col7,Lin2,"N",@ExistV

'PrWIN TX_NP,    Col8,0   ,"N",@EncQ
PrWIN TX_NP,    Col8,Lin2,"N",@DtEnt

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


Sub FinG_LinMesInf
Call Listar_TitulosG 

PrWIN COR_T,     CorTit
if MemNum(11)=301 then                                 'total de familia
  PrWIN TX_N,      Col1+10, 0   ,@TitTotFam
  PrWIN TX_NP,     Col4-7, 0 , "N",FrmNum$(15.2,Total("VvMes",1))
  PrWIN TX_NP,     Col5-7, 0 , "N",FrmNum$(15.2,Total("CvMes",1))
  PrWIN TX_NP,     Col6-7, 0 , "N",FrmNum$(15.2,Total("VpmcMes",1))
  PrWIN TX_NP,     Col7-7, 0 , "N",FrmNum$(15.2,Total("ExistV",1))
  x=TotLpz(1)                                         'azerar totalizador de familia
end if

if MemNum(11)=302 then                                  'total de subfamilia
  PrWIN TX_N,      Col1+10, 0      ,@TitTotSfam
  PrWIN TX_NP,     Col4-7, 0 , "N",FrmNum$(15.2,Total("VvMes",2))
  PrWIN TX_NP,     Col5-7, 0 , "N",FrmNum$(15.2,Total("CvMes",2))
  PrWIN TX_NP,     Col6-7, 0 , "N",FrmNum$(15.2,Total("VpmcMes",2))
  PrWIN TX_NP,     Col7-7, 0 , "N",FrmNum$(15.2,Total("ExistV",2))
  x=TotLpz(2)                                          'azerar totalizador de sub-familia
end if
end Sub


SUB FinG_FimMes
PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN AJT_B,Margem,FimDoc-4                       'posicao base
PrWIN GR_LI,     0,  0, Cmax, 0            	'linha
PrWIN GR_LI,     0,  5, Cmax, 5            	'linha

PrWIN COR_T,     CorTotGer                      'cor para totais
PrWIN FON, "BOLD+"
PrWIN TX_N,     Col2  ,1.0 ,"Total Geral :"
PrWIN TX_NP,    Col4-3,1.0 ,"N",@TvendVMes
PrWIN TX_NP,    Col5-3,1.0 ,"N",@TcompVMes
PrWIN TX_NP,    Col6-3,1.0 ,"N",@TvpmcVMes
PrWIN TX_NP,    Col7-3,1.0 ,"N",@TexiV
PrWIN FON, "BOLD-"
Call SigLstRod
PrWin FP
end sub
##

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

