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 Z_NPRODS = 0 
VARIAVEL Z_NPRODEST = 0 
VARIAVEL Z_UNIDS = 0 
VARIAVEL z_grupo="  " 
VARIAVEL z_divisao="    " 
VARIAVEL z_prvenda=30 
 
T07,10,20,70,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,Grupo de Precos a ser listado.....................:,2,z_grupo,!! 
T10,2,Classe Volume a ser listada.......................:,1,z_giro,! 
T11,2,Divisao dos Produtos a Listar.....................:,4,z_divisao,9999 
 
COMANDO ANTES Z_MOVE = "MOVE"+Z_AAMM 
COMANDO ANTES DBGOBOTTOM() 
 
ARQUIVO SE_PROD SEIP_FN str(pprincforn,5)+PDESC 
COMANDO ANTES DBGOTOP() 
OUTROARQ SCCPFAB 
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) 
FILTRO Z_tipolst=0.or.(z_tipolst=1.and.peatual=0).or.(z_tipolst=2.and.peatual>0) 
FILTRO z_grupo="  ".or.z_grupo=pgpreco.or. (z_prvenda<PVLUVENDA.and.pdivisao="0101") 
FILTRO z_divisao="    ".or.z_divisao=pdivisao

COMANDO ANTES Z_NIL = IF( Z_LETINI<>" ", DbSeek( Z_Letini ), "")
COMANDO DURANTE Z_NPRODS = Z_NPRODS+1 
COMANDO DURANTE Z_NPRODEST = Z_NPRODEST + IF(PEATUAL>0,1,0) 
COMANDO DURANTE Z_UNIDS = Z_UNIDS + IF(PEATUAL>0,PEATUAL,0) 
COMANDO DURANTE SCCPFAB->( DBGOTO(SE_PROD->PPRINCFORN) ) 
COMANDO DURANTE Z_FANTASIA = LOWER(SCCPFAB->CP_FANTASI) 
COMANDO DURANTE Z_EOF = IF( (Z_LETFIM<>" ".AND.LEFT(PDESC,1)>Z_LETFIM), .t., .f.) 
 
C [Empresa]                                 Data [Date()] 
C [Sistema]                                           Hora [Time()] 
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                Entra Said gp v Est Laboratorio  Ref Frc 
C-------------------------------------------------------------------------------- 
 
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) 
 
* 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 9999] [Z_SS 9999] [SE_PROD->pgpreco] [SE_PROD->pabcfisica] [SE_PROD->peatual 9999] [Z_FANTASIA] [SE_PROD->pref] [SE_PROD->pitens 999] 
 
FIM SUBLIST 
ULTPAG-------------------------------------------------------------------------------- 
ULTPAG*** Produtos Listados: [z_nprods 9999]   Com Estoque: [z_nprodest 9999]    Unids:[z_unids 9999] 
 