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 = 0

COMANDO DURANTE SCCPFOR->( DBGOTO(SE_PROD->PPRINCFORN) )
COMANDO DURANTE Z_FANTASIA = LOWER(SCCPFOR->cp_fantasi)
COMANDO DURANTE Z_ORDEM = Z_ORDEM + 1
COMANDO DURANTE Z_LISTADOS = IF(Z_ORDEM>=Z_Posini, Z_LISTADOS + 1, Z_LISTADOS)
COMANDO DURANTE Z_NIL = IF( LEFT(PDESC,1)>Z_LETFIM .or. z_listados>z_numlst, DbGoBottom(), "")

FILTRO Z_LETINI+Z_LETFIM="  ".OR.(LEFT(PDESC,1)>=Z_LETINI .AND. LEFT(PDESC,1)<=Z_LETFIM)
FILTRO Z_DIVISAO="    ".OR.PDIVISAO=Z_DIVISAO
FILTRO Z_ORDEM <= Z_NUMLST

VARIAVEL Z_DIVISAO="    "

T10,10,18,70,Parametros
T1,2,Divisao dos Produtos.............................:,8,z_divisao,9999
T2,2,Letra Inicial para BALANCO.......................:,1,z_letini,!
T3,2,Letra Final para BALANCO.........................:,1,z_letfim,!
T4,2,Quantidade de produtos a Listar para Balanco.....:,4,z_numlst,9999
T5,2,Ordem na pagina do primeiro produto a ser listado:,4,z_posini,9999

C [Empresa]                                 Data [Date()]
C [Sistema]                                           Hora [Time()]
C Produtos para Balanco, da letra [z_letini] ate [z_letfim], A Listar [z_numlst 9999], OrdemInicial[z_posini 9999]    Pag [Pag 9999]
C------------------------------------------------------------------
C Ord Cod   Apresentacao                  Frc Div  P Cat Est        
C------------------------------------------------------------------
*9999 9999 xxxxxyyyyyxxxxxyyyyyxxxxxyyyyy 999 **** * *** 9999 _____ 
FILTROIMP Z_ORDEM >= Z_POSINI
D[z_ordem 9999] [strzero(pcod,4)] [pdesc] [pitens 999] [pdivisao] [pgpreco] [pcategoria] [peatual 9999] _____ 
*ULTPAG [repl("-",75)]
*ULTPAG TOTAL DE PRODUTOS:          [TOTUNI @e999,999]            [TOTVAL @E99,999.99]
*ULTPAG [repl("-",75)]
