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 = 0 
VARIAVEL Z_PREF = SPACE(15)

VARIAVEL Z_DIVISAO = "    " 
VARIAVEL Z_NDIAS = 0 
VARIAVEL Z_NDIASV = 0 

COMANDO ANTES DBGOTOP() 
COMANDO ANTES Z_NIL = IF( Z_LETINI<>" ", DbSeek( Z_Letini ), "") 
 
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
FILTRO z_ndias=0  .OR. (s_datual-pdatavend<=z_ndias)
FILTRO z_ndiasv=0 .OR. ( peatual/if(pemincl>0,pemincl,0.0001)>=z_ndiasv) 
FILTRO z_forn=0 .OR. PPRINCFORN=z_forn 
FILTRO Z_PREF=SPACE(15) .OR. Z_PREF=PREF

COMANDO DURANTE SCCPFOR->( DBGOTO(SE_PROD->PPRINCFORN) ) 
COMANDO DURANTE Z_FANTASIA = if(z_forn>0,str(z_forn,4),"")+" "+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.) 
COMANDO DURANTE Z_NDE = peatual/if(pemincl>0,pemincl,0.0001) 
COMANDO DURANTE Z_ULTV = pdatavend 
 
T06,07,19,73,Parametros 
T2,2,Divisao de Produto..................:,4,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 
T09,2,Fabricante..........................:,3,z_forn,99999,;z_forn=0.or.PSQ_BROW;SCCPFAB;PSCCPFAB;N;N; 2;30;CP_NOME;@S30;
T10,2,Marca...............................:,15,z_pref,@S15,;z_pref=spac(15).OR.PSQ_BROW;SE_R;PSER;N;S; 0;0;;;
T11,2,Produtos a Listar (0-Todos 1-Zerados 2-Com_Estoque:,1,z_tipolst,9 
 
C [Empresa]                                 Data [Date()] 
C [Sistema]                                 Hora [Time()] 
C Relacao de Produtos                                              Pag [Pag 9999] 
C *** Letras:[z_letini] ate [z_letfim], Div:[z_divisao],Giro:[z_giro],Gprec[z_gpreco] 
C     Forn:[Z_FANTASIA] 
// Dias_Sem_Vendas:[z_ndias 9999], TipoList:[z_tipolst] 
// Estoque_Com_Mais_de_Quantos_Dias:[z_ndiasv 9999], 
C---------------------------------------------------------------------------- 
C Cod   Apresentacao                      Pr.Vnd GP F    Est  Div     UltVnd   
C---------------------------------------------------------------------------- 
*9999 9999 xxxxxyyyyyxxxxxyyyyyxxxxxyyyyy 99999999 xxxx 999 * * 9999 

FILTROIMP Z_ORDEM >= Z_POSINI 
D[pcod 99999] [pdesc @S30] [pvluvenda] [pgpreco]   [pabcfisica]  [peatual 9999]  [pdivisao]  [z_ultv] 
// [z_nde 9999] 
//[pdic6] 
 
 