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_GPRECO = " "
VARIAVEL Z_tipolst = 0
VARIAVEL Z_tipss   = 0
VARIAVEL Z_tipse   = 0
VARIAVEL z_forn = 0

T08,10,20,72,Parametros
T 2,2,Ano e Mes da Movimentacao do Estoque..............:,4,z_aamm,9999
T 3,2,Codigo do Fornecedor a Listar ....................:,4,z_forn,9999
T 4,2,Produtos a Listar: 0-Todos 1-Zerados 2-Com_Estoque:,1,z_tipolst,9
T 5,2,.                  0-Todos 1-Vendidos 2-Sem_Vendas:,1,z_tipss,9
T 6,2,.                  0-Todos 1-Com_Entr 2-Sem_Entrad:,1,z_tipse,9
T 7,2,Letra Inicial a ser listada.......................:,1,z_letini,!
T 8,2,Letra Final a ser listada.........................:,1,z_letfim,!
T 9,2,Classe Volume a ser listada.......................:,1,z_giro,!
T10,2,Grupo de Precos a ser listado.....................:,1,z_gpreco,!


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

*ARQUIVO SE_PROD SEIP_FN str(pprincforn,5)+PDESC

ARQUIVO SE_PROD SEIP_N 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

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) .and. (z_gpreco="  ".or.z_gpreco=pgpreco)
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.)

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]                                           
C AVALIACAO DE ENTRADAS E SAIDAS                                       Pag [Pag 9999]
FILTROIMP Z_LETINI+Z_LETFIM<>"  "
C *** Letra Inicial:[z_letini] ate [z_letfim]
C--------------------------------------------------------------------------------
C Cod   Apresentacao                    SE  SS  P  G  Est   Val.Unit  Ref  Frc
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[strzero(SE_PROD->pcod,5)] [SE_PROD->pdesc]  [Z_SE 999] [Z_SS 999]  [SE_PROD->pgpreco] [SE_PROD->pabcfisica] [SE_PROD->peatual 9999]   [SE_PROD->PVLUVENDA 99999.99]  [SE_PROD->pref @S4] [SE_PROD->pitens 999]]

FIM SUBLIST
