INDEX SEIP_N PDESC 
OUTROARQ SCCPFOR 
VARIAVEL LST_TP = 58 
VARIAVEL Z_LETINI = " " 
VARIAVEL Z_LETFIM = " " 
VARIAVEL Z_numlst = recc() 
VARIAVEL Z_posini = 1 
VARIAVEL Z_Ordem = 0 
VARIAVEL Z_Listados = 1 
VARIAVEL Z_EOF = .F. 
VARIAVEL Z_GIRO = " " 
VARIAVEL Z_GPRECO = " " 
VARIAVEL Z_tipolst = 0 
VARIAVEL Z_POSICAO = SPAC(8) 
VARIAVEL Z_forn = "   " 
 
COMANDO ANTES Z_NIL = IF( Z_LETINI<>" ", DbSeek( Z_Letini ), "") 
COMANDO DURANTE SCCPFOR->( DBGOTO(SE_PROD->PPRINCFORN) ) 
COMANDO DURANTE Z_FANTASIA = Left( Lower(SccpFor->cp_fantasi), 14-len(alltrim(Pposicao)) )+" "+alltrim(Pposicao) 
COMANDO DURANTE Z_ORDEM = Z_ORDEM + 1 
COMANDO DURANTE Z_LISTADOS = IF(Z_ORDEM>=Z_Posini, Z_LISTADOS + 1, Z_LISTADOS) 
COMANDO DURANTE Z_EOF = IF( (Z_LETFIM<>" ".AND.LEFT(PDESC,1)>Z_LETFIM) .or. z_listados>z_numlst, .t., .f.) 
pause 
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_gpreco=" ".or.z_gpreco=pgpreco) 
FILTRO Z_tipolst=0.or.(z_tipolst=1.and.peatual=0).or.(z_tipolst=2.and.peatual>0) 
FILTRO (z_DIVISAO="    ".or.pdivisao=z_divisao).and.(s_datual-pdtultvnd<=z_ndias).and.(( peatual/if(pemincl>0,pemincl,0.0001)>=z_ndiasv) .and. (peatual>1)).and.PPRINCFORN=z_forn 
COMANDO DURANTE Z_NDE = peatual/if(pemincl>0,pemincl,0.0001) 
COMANDO DURANTE Z_ULTV = pdtultvnd 
VARIAVEL Z_DIVISAO = "    " 
VARIAVEL Z_NDIAS = 0 
VARIAVEL Z_NDIASV = 0 
 
T07,07,18,73,Parametros 
T2,2,Divisao de Produto................................:,8,z_divisao,9999 
T3,2,Letra Inicial a ser listada.......................:,1,z_letini,! 
T4,2,Letra Final a ser listada.........................:,1,z_letfim,! 
T5,2,Classe Volume a ser listada.......................:,1,z_giro,! 
T6,2,Grupo de Precos a ser listado.....................:,1,z_gpreco,! 
T7,2,Numero de Dias Sem Vendas.........................?,4,z_ndias,9999 
T8,2,Produtos Com Quantos Dias de Estoque..............?,4,z_ndiasv,9999 
T9,2,Produtos a Listar (0-Todos 1-Zerados 2-Com_Estoque:,1,z_tipolst,9 
T10,2,Fornecedor.......................................:,3,z_forn,999 
 
C [Empresa]                                 Data [Date()] 
C [Sistema]                                           Hora [Time()] 
C Produtos para Balanco                                            Pag [Pag 9999] 
C *** Letras:[z_letini] ate [z_letfim], Div:[z_divisao],Giro:[z_giro],Gprec[z_gpreco] 
C     Dias_Sem_Vendas:[z_ndias 9999], Estoque_Com_Mais_de_Quantos_Dias:[z_ndiasv 9999], TipoList[z_tipolst] 
C---------------------------------------------------------------------------- 
C Cod   Apresentacao                      Pr.Vnd.   GP   F   Est   Div    UltVnd   Dest 
C---------------------------------------------------------------------------- 
*9999 9999 xxxxxyyyyyxxxxxyyyyyxxxxxyyyyy 99999999 xxxx 999 * * 9999 
FILTROIMP Z_ORDEM >= Z_POSINI 
D[strzero(pcod,4)] [pdesc]  [pvluvenda]   [pgpreco]   [pabcfisica]  [peatual 9999]  [pdivisao]  [z_ultv]   [z_nde 9999] 
 
