ALIAS SE_PROD
INDEX SEIP_N PDESC

VARIAVEL z_pcods = "//"+spac(180)
VARIAVEL z_pdesc = spac(20)
VARIAVEL z_pdiv = "    "
VARIAVEL z_pdivexc = "//"+spac(80)
VARIAVEL z_posicao = spac(10)
VARIAVEL z_fgprecos="N"
VARIAVEL z_fgsaldos="S"
VARIAVEL Z_DE = date()
VARIAVEL z_ate = date()
VARIAVEL LST_TP = 999
VARIAVEL zLinhas = 0
 
T5,12,17,60,Parametros 

T2,2,Codigos dos Produtos:,20,z_pcods,@s20 
T3,2,Divisoes a Excluir..:,20,z_pdivexc,@s20 
T4,2,Divisao a imprimir..:,4,z_pdiv,9999 
T5,2,Iniciando com nome..:,20,z_pdesc,@s20 
T6,2,Produtos na Posicao.:,10,z_posicao,@s10 
T7,2,So Precos Alterados ?,1,z_fgprecos,! 
T8,2,Alterados de........:,8,z_de,99.99.99 
T9,2,Alterados Ate.......:,8,z_ate,99.99.99 
T10,2,So Prods. com Saldos?,1,z_fgsaldos,! 

COMANDO ANTES z_pcods=alltrim(z_pcods)
COMANDO ANTES z_pdivexc=alltrim(z_pdivexc)

FILTRO (empty(z_pdiv).or.pdivisao=z_pdiv)
FILTRO (empty(z_pdesc).or.left(pdesc,len(alltrim(z_pdesc)))=alltrim(z_pdesc))
FILTRO (z_pcods="//".or."/"+alltrim(str(pcod,6))+"/"$z_pcods)
FILTRO (z_pdivexc="//".or.!"/"+pdivisao+"/"$z_pdivexc)
FILTRO (z_fgprecos<>"S".or.(pdataalter>=z_de.and.pdataalter<=z_ate))
FILTRO (empty(z_posicao).or.left(pposicao,len(alltrim(z_posicao)))=alltrim(z_posicao))
FILTRO (z_fgsaldos<>"S".or.peatual>0)

COMANDO ANTES SetPrc(0,0)

COMANDO DURANTE zLinhas = zLinhas + 1

COMANDO DURANTE Z_STR  = ""
COMANDO DURANTE zDesc20 = LEFT(PDESC,20)
COMANDO DURANTE zDescCpl = AllTrim( Pad(SUBSTR(PDESC,21),20) )
COMANDO DURANTE zIdx     = rat(" ",zDesc20)
COMANDO DURANTE zDescCpl = if(zIdx>0, Left(Substr(zDesc20,zIdx+1)+zDescCpl,20) , zDescCpl)
COMANDO DURANTE zDesc20  = if(zIdx>0, Pad(Left(zDesc20,zIdx),20), zDesc20)

FiltroImp zLinhas = 1
DEmpresa;Codigo;Descricao;PrecoVenda;CodBarras;Desc_20Letras;Desc_Complemento;Referencia;Cor;Tamanho;Familia;Posicao;

D[Empresa];[Pcod];[Alltrim(Pdesc)];[pVluVenda @E 999,999.99];[pdic6];[alltrim(zDesc20)];[alltrim(zDescCpl)];Referencia;Cor;Tamanho;Familia;Posicao;