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_FRACAO = 1 
 
VARIAVEL Z_DIV1   = "0101" 
VARIAVEL Z_DIV2   = "0102" 
VARIAVEL Z_DIV3   = "0103" 
VARIAVEL Z_DIV4   = "0104" 
VARIAVEL Z_DIV5   = "0105" 
VARIAVEL Z_DIV6   = "0106" 
VARIAVEL Z_DIV7   = "0107" 
VARIAVEL Z_DIV8   = "0108" 
VARIAVEL Z_DIV9   = "0109" 
VARIAVEL Z_DIV10  = "0110" 
VARIAVEL Z_DIV11  = "0111" 
VARIAVEL Z_DIV12  = "0112" 
 
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.) 
 
REPITA ENQUANTO !Z_EOF 
 
FILTRO Z_FRACAO=PITENS.AND.(Z_DIV1=PDIVISAO.OR.Z_DIV12=PDIVISAO) 
FILTRO Z_POSICAO=SPAC(8).OR.ALLTRIM(Z_POSICAO)=LEFT(PPOSICAO,LEN(ALLTRIM(Z_POSICAO))) 
FILTRO (Z_LETINI=" ".OR.LEFT(PDESC,1)>=Z_LETINI) .AND. (Z_LETFIM=" ".OR.LEFT(PDESC,1)<=Z_LETFIM) 
FILTRO Z_LISTADOS <= Z_NUMLST .AND. (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) 
 
 
T07,07,18,73,Parametros 
T2,2,Posicao a ser listada.............................:,8,z_posicao,@s8 
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 na pagina do primeiro produto a ser listado:,4,z_posini,9999 
T8,2,Quantidade de produtos a listar para o Balanco....:,4,z_numlst,9999 
T9,2,Produtos a Listar (0-Todos 1-Zerados 2-Com_Estoque:,1,z_tipolst,9 
 
C [Empresa]                                 Data [Date()] 
C [Sistema]                                           Hora [Time()] 
C Produtos para Balanco                                            Pag [Pag 9999] 
C *** Letra Inicial:[z_letini] ate [z_letfim], Quantidade: [z_numlst 9999], Numero_Inicial:[z_posini 9999] 
C-------------------------------------------------------------------------------- 
C Ord Cod   Apresentacao                    Frc P G    Custo     Venda  Est  Bal 
C-------------------------------------------------------------------------------- 
*9999 9999 xxxxxyyyyyxxxxxyyyyyxxxxxyyyyy xxxx 999 999,99  999,99 9999 _____ 
FILTROIMP Z_ORDEM >= Z_POSINI 
D[z_ordem 9999] [strzero(pcod,5)] [pdesc] [pitens 999] [pgpreco] [pabcfisica] [pvluven3] [pvluvenda] [peatual 9999] _____ 