* LIGACAO=se_prod->( DbSeek(sp_movf->pcod) ) 
VARIAVEL z_pcods = "//"
VARIAVEL z_pdesc = spac(20) 
VARIAVEL z_pdiv = "    " 
VARIAVEL z_posicao = spac(10) 
VARIAVEL z_fgprecos="N" 
VARIAVEL Z_DE = date() 
VARIAVEL z_ate = date() 
 
T5,12,16,60,Parametros 
 
T2,2,Codigos dos Produtos:,20,z_pcods,@s20 
T3,2,Divisao a imprimir..:,4,z_pdiv,9999 
T4,2,Iniciando com nome..:,20,z_pdesc,@s20 
T5,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 

*COMANDO ANTES Z_expressao_filtro = "(empty(z_pdiv).or.pdivisao=z_pdiv).and."
*COMANDO ANTES Z_expressao_filtro = Z_expressao_filtro+"(empty(z_pdesc).or.left(pdesc,len(alltrim(z_pdesc)))=alltrim(z_pdesc)).and."
*COMANDO ANTES Z_expressao_filtro = Z_expressao_filtro+"(z_pcods="//".or."/"+alltrim(str(pcod,6))+"/"$z_pcods).and."
*COMANDO ANTES Z_expressao_filtro = Z_expressao_filtro+"(z_fgprecos<>"S".or.(pdataalter>=z_de.and.pdataalter<=z_ate))"
*COMANDO ANTES Z_NIL = DbSetFilter( _CreateBlock(Z_expressao_filtro), Z_expressao_filtro)
*COMANDO ANTES Z_arq_etq = "ETQ3.DBF"

COMANDO DURANTE Z_STR  = ""
COMANDO DURANTE z_des1 = LEFT(PDESC,20)
COMANDO DURANTE z_cpl1 = Pad(SUBSTR(PDESC,21),20)
COMANDO DURANTE z_pos_branco = rat(" ",z_des1)
COMANDO DURANTE z_cpl1 = Left(Substr(z_des1,z_pos_branco+1)+z_cpl1,20)
COMANDO DURANTE z_des1 = Pad( LEFT(z_des1,z_pos_branco),20 )
COMANDO DURANTE z_cd1  = PCOD
COMANDO DURANTE z_pr1  = PVLUVENDA
COMANDO DURANTE Z_STR  = Z_STR + PAD(z_des1,20)+";"+PAD(z_cpl1,20)+";"+STR(z_cd1,5)+";"+STR(z_pr1,10,2)+";"
COMANDO DURANTE dbskip()        
COMANDO DURANTE z_des2 = LEFT(PDESC,20)
COMANDO DURANTE z_cpl2 = Pad(SUBSTR(PDESC,21),20)
COMANDO DURANTE z_pos_branco = rat(" ",z_des2)
COMANDO DURANTE z_cpl2 = Left(Substr(z_des2,z_pos_branco+1)+z_cpl2,20)
COMANDO DURANTE z_des2 = Pad( LEFT(z_des2,z_pos_branco),20 )
COMANDO DURANTE z_cd2  = PCOD
COMANDO DURANTE z_pr2  = PVLUVENDA
COMANDO DURANTE Z_STR  = Z_STR + PAD(z_des2,20)+";"+PAD(z_cpl2,20)+";"+STR(z_cd2,5)+";"+STR(z_pr2,10,2)+";"
COMANDO DURANTE dbskip()        
COMANDO DURANTE z_des3 = LEFT(PDESC,20)
COMANDO DURANTE z_cpl3 = Pad(SUBSTR(PDESC,21),20)
COMANDO DURANTE z_pos_branco = rat(" ",z_des3)
COMANDO DURANTE z_cpl3 = Left(Substr(z_des3,z_pos_branco+1)+z_cpl3,20)
COMANDO DURANTE z_des3 = Pad( LEFT(z_des3,z_pos_branco),20 )
COMANDO DURANTE z_cd3  = PCOD
COMANDO DURANTE z_pr3  = PVLUVENDA
COMANDO DURANTE Z_STR  = Z_STR + PAD(z_des3,20)+";"+PAD(z_cpl3,20)+";"+STR(z_cd3,5)+";"+STR(z_pr3,10,2)+";"
COMANDO DURANTE dbskip()

CDESC1;DESC2;COD;PRECO;2desc1;2desc2;cod2;preco2;
D[z_str]

ARQTMP Z_arq_etq [z_des1] [z_cpl1] [z_cd1 99999] [z_pr1 @E 9,999.99] [z_des2] [z_cpl2] [z_cd2 99999] [z_pr2 @E 9,999.99] [z_des3] [z_cpl3] [z_cd3 99999] [z_pr3 @E 9,999.99] 
