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)
*OMANDO ANTES Z_NIL = IF( Z_LETINI<>" ", DbSeek( Z_Letini ), "")
COMANDO DURANTE SCCPFOR->( DBGOTO(SE_PROD->PPRINCFORN) )
COMANDO DURANTE Z_FANTASIA = Left(SccpFor->cp_fantasi,1)+Lower(Substr(Sccpfor->cp_fantasi,2))
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_POSICAO = PPOSICAO


*EPITA ENQUANTO !Z_EOF

*ILTRO Z_POSICAO=SPAC(8).OR.ALLTRIM(Z_POSICAO)=LEFT(PPOSICAO,LEN(ALLTRIM(Z_POSICAO)))
*ILTRO (Z_LETINI=" ".OR.LEFT(PDESC,1)>=Z_LETINI) .AND. (Z_LETFIM=" ".OR.LEFT(PDESC,1)<=Z_LETFIM)
*ILTRO Z_LISTADOS <= Z_NUMLST .AND. (Z_GIRO=" ".OR.Z_GIRO=PABCFISICA) .and. (z_gpreco=" ".or.z_gpreco=pgpreco)
*ILTRO 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--------------------------------------------------------------------------------
CCod   Apresentacao                       Un  Fabricante      Endereco
C--------------------------------------------------------------------------------
*9999 xxxxxyyyyyxxxxxyyyyyxxxxxyyyyy xxxxxyyyyyxxxxx
*ILTROIMP Z_ORDEM >= Z_POSINI
D[strzero(pcod,4)] [pdesc] [punidade xxx] [z_fantasia] [z_posicao] _________
