VARIAVEL Z_AAMM = RIGHT(DTOC(S_DATUAL),2)+SUBSTR(DTOC(S_DATUAL),4,2)
VARIAVEL Z_MOVE = ""
VARIAVEL Z_GIRO = " "
VARIAVEL Z_tipolst = 0
VARIAVEL Z_tipss   = 0
VARIAVEL Z_tipse   = 0
VARIAVEL Z_TUE = 0
VARIAVEL z_forn = 0

T08,10,20,70,Parametros
T2,2,Ano e Mes da Movimentacao do Estoque..............:,4,z_aamm,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
T8,2,Classe Volume a ser listada.......................:,1,z_giro,!

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

FILTRO (Z_GIRO=" ".OR.Z_GIRO=PABCFISICA)
FILTRO Z_tipolst=0.or.(z_tipolst=1.and.peatual=0).or.(z_tipolst=2.and.peatual>0)

COMANDO DURANTE SCCPFOR->( DBGOTO(SE_PROD->PPRINCFORN) )
COMANDO DURANTE Z_FANTASIA = LOWER(SCCPFOR->cp_fantasi)
VARIAVEL Z_TUE = 0
VARIAVEL Z_NI = 0
VARIAVEL Z_TIE = 0
VARIAVEL Z_TVE = 0
VARIAVEL Z_TVSS = 0
VARIAVEL Z_TVSE = 0
COMANDO DURANTE Z_TUE = 0
COMANDO DURANTE Z_NI = 0
COMANDO DURANTE Z_TIE = 0
COMANDO DURANTE Z_TVE = 0
COMANDO DURANTE Z_TVSS = 0
COMANDO DURANTE Z_TVSE = 0
SUBTOTAL PPRINCFORN Z_TUE = Z_TUE + PEATUAL
SUBTOTAL PPRINCFORN Z_TVE = Z_TVE + PEATUAL*PVLUVENDA
SUBTOTAL PPRINCFORN Z_NI = Z_NI + 1
SUBTOTAL PPRINCFORN Z_TIE = Z_TIE + IF(PEATUAL>0,1,0)

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)

C [Empresa]                                 Data [Date()]
C [Sistema]                                           Hora [Time()]
C AVALIACAO DE ENTRADAS E SAIDAS                                   Pag [Pag 9999]
C--------------------------------------------------------------------------------
C Fornecedor                            SE   SS Est
C--------------------------------------------------------------------------------
*9999 9999 xxxxxyyyyyxxxxxyyyyyxxxxxyyyyy 9999 9999 xxxx 999 * * 9999
FILTROIMP (z_tipss=0.or.(z_tipss=1.and.z_ss>0).or.(z_tipss=2.and.z_ss=0)).and.(z_tipse=0.or.(z_tipse=1.and.z_se>0).or.(z_tipse=2.and.z_se=0))
ULTPAG[z_fantasia] [Z_SE 9999] [Z_SS 9999] [z_tue 9999,999] [Z_TVSE 9999,999] [Z_TVSS 9999,999] [Z_TVE 9999,999]

FIM SUBLIST
