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 = 2
VARIAVEL Z_POSICAO = SPAC(8)
VARIAVEL Z_DIVISAO = "    "
VARIAVEL Z_NDIAS = 0
VARIAVEL z_nunids = 0
VARIAVEL Z_VALLST = 0

T07,07,19,73,Parametros
T2,2,Numero de Dias sem Alteracao de Precos............:,4,z_ndias,9999
T3,2,Apenas produtos a partir de quantas unidades .....?,4,z_nunids,9999
T4,2,Produtos a Listar (0-Todos 1-Zerados 2-Com_Estoque:,1,z_tipolst,9
T6,2,Divisao de Produto................................:,8,z_divisao,9999
T7,2,Letra Inicial a ser listada.......................:,1,z_letini,!
T8,2,Letra Final a ser listada.........................:,1,z_letfim,!
T9,2,Classe Volume a ser listada.......................:,1,z_giro,!
T10,2,Grupo de Precos a ser listado.....................:,1,z_gpreco,!

COMANDO ANTES Z_NIL = IF( Z_LETINI<>" ", DbSeek( Z_Letini ), "")

COMANDO DURANTEAF Z_EOF = IF( (Z_LETFIM<>" ".AND.LEFT(PDESC,1)>Z_LETFIM) .or. z_listados>z_numlst, .t., .f.)
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-pdataalter>=z_ndias).and.( peatual>=z_nunids )

*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_NDE = peatual/if(pemin>0,pemin,0.0001)
COMANDO DURANTE Z_ULTV = pdatavend
COMANDO DURANTE Z_PRVENDA = PEATUAL*PVLUVENDA
COMANDO DURANTE Z_VALLST = Z_VALLST + Z_PRVENDA

C [Empresa]                                 Data [Date()]
C [Sistema]                                           Hora [Time()]
C Produtos para Balanco                                            Pag [Pag 9999]
C *** Dias_Sem_Vendas:[z_ndias 9999], Prods_a_partir_de_[alltrim(str(z_nunids,4))]_unids, TipoList[z_tipolst]
C     Letras:[z_letini] ate [z_letfim], Div:[z_divisao],Giro:[z_giro],Gprec[z_gpreco]
C----------------------------------------------------------------------------
C Cod   Apresentacao                  PG   Est.    Custo     Venda   DataAlt
C----------------------------------------------------------------------------
*9999 9999 xxxxxyyyyyxxxxxyyyyyxxxxxyyyyy  999 999,99 999,99
FILTROIMP Z_ORDEM >= Z_POSINI
D[strzero(pcod,5)] [pdesc] [peatual] [pvluven3] [pvluvenda]   [pdataalter]

ULTPAG ** Numero de Produtos Listados: [z_listados @E 999,999]
ULTPAG ** Valor dos Produtos Listados: [Z_VALLST @E 999,999,999.99]
