VARIAVEL Z_AAMM = RIGHT(DTOC(S_DATUAL),2)+SUBSTR(DTOC(S_DATUAL),4,2)
VARIAVEL Z_MOVE = ""
VARIAVEL Z_LETINI = " "
VARIAVEL Z_LETFIM = " "
VARIAVEL Z_GIRO = " "
VARIAVEL Z_tipolst = 0
VARIAVEL Z_tipss   = 0
VARIAVEL Z_tipse   = 0
VARIAVEL z_forn = 0
VARIAVEL DTA1 = DATE()
VARIAVEL DTA2 = DATE()

T08,10,21,71,Parametros
T2,2,Ano e Mes da Movimentacao do Estoque..............:,4,z_aamm,9999
T3,2,Codigo do Fornecedor a Listar ....................:,4,z_forn,9999
T4,2,Produtos a Listar: 0-Todos 1-Zerados 2-Com_Estoque:,1,z_tipolst,9
T5,2,.                  0-Todos 1-Vendidos 2-Sem_Vendas:,1,z_tipss,9
T6,2,.                  0-Todos 1-Com_Entr 2-Sem_Entrad:,1,z_tipse,9
T7,2,Letra Inicial a ser listada.......................:,1,z_letini,!
T8,2,Letra Final a ser listada.........................:,1,z_letfim,!
T9,2,Classe Volume a ser listada.......................:,1,z_giro,!
T10,2,Data Inicial..................................:,8,dta1,99.99.99
T11,2,Data Final....................................:,8,dta2,99.99.99

COMANDO ANTES Z_MOVE = "MOVE"+Z_AAMM
COMANDO ANTES DBGOBOTTOM()

ARQUIVO SE_PROD SEIP_FN str(pprincforn,5)+PDESC
COMANDO ANTES DBGOTOP()
OUTROARQ SCCPFOR
OUTROARQ SE_GPRE SE_GPRE GRUPO
OUTROARQ (Z_MOVE) Z_MOVE+".C" PCOD

VARIAVEL LST_TP = 58
VARIAVEL Z_Ordem = 0
VARIAVEL Z_Listados = 1
VARIAVEL Z_EOF = .F.
VARIAVEL Z_SS = 0
VARIAVEL Z_SE = 0
VARIAVEL Z_TOTSS = 0
VARIAVEL Z_TOTSE = 0

REPITA ENQUANTO !Z_EOF
FILTRO (Z_LETINI=" ".OR.LEFT(PDESC,1)>=Z_LETINI) .AND. (Z_LETFIM=" ".OR.LEFT(PDESC,1)<=Z_LETFIM)
FILTRO (Z_GIRO=" ".OR.Z_GIRO=PABCFISICA) .and. (z_forn=0.or.pprincforn=z_forn)
FILTRO Z_tipolst=0.or.(z_tipolst=1.and.peatual=0).or.(z_tipolst=2.and.peatual>0)

COMANDO ANTES Z_NIL = IF( Z_LETINI<>" ", DbSeek( Z_Letini ), "")
COMANDO DURANTE SCCPFOR->( DBGOTO(SE_PROD->PPRINCFORN) )
COMANDO DURANTE Z_FANTASIA = LOWER(SCCPFOR->cp_fantasi)
COMANDO DURANTE Z_EOF = IF( (Z_LETFIM<>" ".AND.LEFT(PDESC,1)>Z_LETFIM), .t., .f.)

VARIAVEL TOTUNI = 0
VARIAVEL TOTVAL = 0
VARIAVEL FABRICA= 0
VARIAVEL TOTDIS = 0
VARIAVEL Z_VNDES = 0
VARIAVEL Z_VNDCT = 0
VARIAVEL Z_VNDCH = 0
VARIAVEL Z_VNDCV = 0
VARIAVEL Z_VNDMT = 0
VARIAVEL Z_TVNDSS = 0
VARIAVEL Z_TVNDSE = 0
VARIAVEL Z_DSCES = 0
VARIAVEL Z_DSCCH = 0
VARIAVEL Z_DSCCT = 0
VARIAVEL Z_DSCCV = 0
VARIAVEL Z_DSCMT = 0
VARIAVEL Z_DESCO = 0
VARIAVEL Z_TOTVND = 0

COMANDO DURANTE FABRICA= PVLUVENDA
COMANDO DURANTE TOTUNI = TOTUNI+PEATUAL
COMANDO DURANTE TOTDIS = TOTDIS+1
COMANDO DURANTE TOTVAL = TOTVAL+(PEATUAL*FABRICA)

ULTPAG
ULTPAG[&m_expandido][EMPRESA][&m_naoexpandi]    Data [date()]
ULTPAG[&m_enfat]Periodo de [dta1] ate [dta2][&m_naoenfat]
ULTPAG[repl("=",80)]
ULTPAG
ULTPAG                       [&m_enfat]POSICAO ATUAL DO ESTOQUE[&m_naoenfat]
ULTPAG
ULTPAG   Valor do Estoque..................: [&m_enfat][totval @e 999,999,999.99][&m_naoenfat]
ULTPAG   Total de Produtos em Discriminacao: [&m_enfat][totdis @e 999,999,999][&m_naoenfat]
ULTPAG   Total de Produtos em Unidades.....: [&m_enfat][totuni @e 999,999,999][&m_naoenfat]
ULTPAG

SUBLIST Z_MOVE
COMANDO ANTES Z_SS = 0
COMANDO ANTES Z_SE = 0
COMANDO ANTES DBSEEK(SE_PROD->PCOD)
REPITA ENQUANTO PCOD=Se_PROD->PCOD
COMANDO DURANTE Z_SS = Z_SS + IF(MFGES="S".AND.MTIPOVEN$"12345",MQUANT,0)
COMANDO DURANTE Z_SE = Z_SE + IF(MFGES="E".and.!mtipoven$"BZ".AND.FNUMPED>0.AND.MCODFORC>0,MQUANT,0)
COMANDO DURANTE Z_TOTSS = Z_TOTSS + iif(mfges="S".AND.MTIPOVEN$"12345",mQUANT,0)
COMANDO DURANTE Z_TVNDSS = Z_TVNDSS + iif(mfges="S".AND.MTIPOVEN$"12345",mVALOR,0)
COMANDO DURANTE Z_TOTSE = Z_TOTSE + iif(mfges="E".AND.!MTIPOVEN$"BZ".AND.FNUMPED>0.AND.MCODFORC>0,MQUANT,0)
COMANDO DURANTE Z_TVNDSE = Z_TVNDSE + iif(mfges="E".AND.!MTIPOVEN$"BZ".AND.FNUMPED>0.AND.MCODFORC>0,MVALOR,0)
COMANDO DURANTE Z_VNDES = Z_VNDES + iif(mfges="S".AND.MTIPOVEN$"1",MVALOR,0)
COMANDO DURANTE Z_VNDCH = Z_VNDCH + iif(mfges="S".AND.MTIPOVEN$"2",MVALOR,0)
COMANDO DURANTE Z_VNDCT = Z_VNDCT + iif(mfges="S".AND.MTIPOVEN$"3",MVALOR,0)
COMANDO DURANTE Z_VNDCV = Z_VNDCV + iif(mfges="S".AND.MTIPOVEN$"4",MVALOR,0)
COMANDO DURANTE Z_VNDMT = Z_VNDMT + iif(mfges="S".AND.MTIPOVEN$"5",MVALOR,0)
COMANDO DURANTE Z_DESCO = Z_DESCO + iif(mfges="S".AND.MTIPOVEN$"12345",MVALOR*(MDESCONTO/100),0)
COMANDO DURANTE Z_DSCES = Z_DSCES + iif(mfges="S".AND.MTIPOVEN$"1",MVALOR*(MDESCONTO/100),0)
COMANDO DURANTE Z_DSCCH = Z_DSCCH + iif(mfges="S".AND.MTIPOVEN$"2",MVALOR*(MDESCONTO/100),0)
COMANDO DURANTE Z_DSCCT = Z_DSCCT + iif(mfges="S".AND.MTIPOVEN$"3",MVALOR*(MDESCONTO/100),0)
COMANDO DURANTE Z_DSCCV = Z_DSCCV + iif(mfges="S".AND.MTIPOVEN$"4",MVALOR*(MDESCONTO/100),0)
COMANDO DURANTE Z_DSCMT = Z_DSCMT + iif(mfges="S".AND.MTIPOVEN$"5",MVALOR*(MDESCONTO/100),0)
COMANDO DURANTE Z_TOTVND = Z_VNDES+Z_VNDCH+Z_VNDCT+Z_VNDCV+Z_VNDMT

FILTRO MDATA>=DTA1.AND.DTA2<=DTA2

FIM SUBLIST

ULTPAG[repl("+",80)]
ULTPAG
ULTPAG                       [&m_enfat]POSICAO DE ENTRADAS E SAIDAS[&m_naoenfat]
ULTPAG
ULTPAG                            Unidades         Valor R$
ULTPAG   Total Compradas...:   [&m_enfat][z_totse @e 999,999,999]   [z_tVNDse @e 999,999,999.99][&m_naoenfat]
ULTPAG   Total Vendidas....:   [&m_enfat][Z_TOTSS @e 999,999,999]   [z_tVNDsS @e 999,999,999.99][&m_naoenfat]
ULTPAG                      [REPL("-",50)]
ULTPAG            TOTAL....:   [&m_enfat][z_totse-Z_TOTSS @e 999,999,999]   [z_tVNDse-z_tVNDsS @e 999,999,999.99][&m_naoenfat]
ULTPAG[repl(".",80)]
ULTPAG
ULTPAG                       [&m_enfat]POSICAO DAS VENDAS DO PERIODO[&m_naoenfat]
ULTPAG
ULTPAG                                   SubTotal       Descontos          Total
ULTPAG   ** Vendas em Dinheiro...: [&m_enfat][Z_VNDES @e 999,999,999.99]  [Z_DSCES @e 999,999,999.99] [Z_VNDES-Z_DSCES @e 999,999,999.99][&m_naoenfat]
ULTPAG   ** Vendas em Cheque.....: [&m_enfat][Z_VNDch @e 999,999,999.99]  [Z_DSCCH @e 999,999,999.99] [Z_VNDCH-Z_DSCCH @e 999,999,999.99][&m_naoenfat]
ULTPAG   ** Vendas em Cartao.....: [&m_enfat][Z_VNDct @e 999,999,999.99]  [Z_DSCCT @e 999,999,999.99] [Z_VNDCT-Z_DSCCT @e 999,999,999.99][&m_naoenfat]
ULTPAG   ** Vendas em Convenio...: [&m_enfat][Z_VNDcv @e 999,999,999.99]  [Z_DSCCV @e 999,999,999.99] [Z_VNDCV-Z_DSCCV @e 999,999,999.99][&m_naoenfat]
ULTPAG   ** Vendas em Prazo Misto: [&m_enfat][Z_VNDmt @e 999,999,999.99]  [Z_DSCMT @e 999,999,999.99] [Z_VNDMT-Z_DSCMT @e 999,999,999.99][&m_naoenfat]
ULTPAG                            [REPL("-",50)]
ULTPAG                  TOTAL....: [&m_enfat][Z_TOTVND @e 999,999,999.99]  [Z_DESCO @e 999,999,999.99] [Z_TOTVND-Z_DESCO @e 999,999,999.99][&m_naoenfat]
ULTPAG
ULTPAG
ULTPAG
ULTPAG                       [&m_enfat]POSICAO DO CONVENIO[&m_naoenfat]
ULTPAG
ULTPAG

VARIAVEL Z_CAFRAFEP = 1
VARIAVEL Z_CSAND    = 2
VARIAVEL Z_CFUNC    = 3
VARIAVEL Z_1VND = 0
VARIAVEL Z_2VND = 0
VARIAVEL Z_3VND = 0
VARIAVEL Z_1DSC = 0
VARIAVEL Z_2DSC = 0
VARIAVEL Z_3DSC = 0
COMANDO DURANTE Z_1VND = Z_1VND + iif(mcodforc=z_cafrafep.and.mfges="S".AND.MTIPOVEN$"12345",MVALOR,0)
COMANDO DURANTE Z_2VND = Z_2VND + iif(mcodforc=z_csand.and.mfges="S".AND.MTIPOVEN$"12345",MVALOR,0)
COMANDO DURANTE Z_3VND = Z_3VND + iif(mcodforc=z_cfunc.and.mfges="S".AND.MTIPOVEN$"12345",MVALOR,0)
COMANDO DURANTE Z_1DSC = Z_1DSC + iif(mcodforc=z_cafrafep.and.mfges="S".AND.MTIPOVEN$"12345",MVALOR*(MDESCONTO/100),0)
COMANDO DURANTE Z_2DSC = Z_2DSC + iif(mcodforc=z_csand.and.mfges="S".AND.MTIPOVEN$"12345",MVALOR*(MDESCONTO/100),0)
COMANDO DURANTE Z_3DSC = Z_3DSC + iif(mcodforc=z_cfunc.and.mfges="S".AND.MTIPOVEN$"12345",MVALOR*(MDESCONTO/100),0)

ULTPAG                                   SubTotal       Descontos          Total
ULTPAG   ** Vendas do AFRAFEP-SAUDE.: [&m_enfat][Z_1VNDES @e 999,999,999.99]  [Z_1DSCES @e 999,999,999.99] [Z_1VNDES-Z_1DSCES @e 999,999,999.99][&m_naoenfat]
ULTPAG   ** Vendas do SAMD..........: [&m_enfat][Z_2VNDES @e 999,999,999.99]  [Z_2DSCES @e 999,999,999.99] [Z_2VNDES-Z_2DSCES @e 999,999,999.99][&m_naoenfat]
ULTPAG   ** Vendas do Func. AFRAFEP.: [&m_enfat][Z_3VNDES @e 999,999,999.99]  [Z_3DSCES @e 999,999,999.99] [Z_3VNDES-Z_3DSCES @e 999,999,999.99][&m_naoenfat]
ULTPAG
ULTPAG
ULTPAG
ULTPAG
ULTPAG
ULTPAG
ULTPAG
ULTPAG
ULTPAG
ULTPAG
ULTPAG
ULTPAG
ULTPAG
ULTPAG
ULTPAG
ULTPAG
ULTPAG
ULTPAG
ULTPAG
ULTPAG
ULTPAG
ULTPAG

