Use "C:\myfolder\reports\LBLPROD90.LBX" Alias LBLPROD GO TOP Scatter Memvar Memo lcresult = "" If "COPIES"$LBLPROD.Expr lnNumLines = Memlines(m.expr) For lnCount = 1 To lnNumLines lclinha = Mline(m.expr, lnCount) If "COPIES="==Substr(lclinha,1,7) lclinha = "COPIES="+Alltrim(Str(cur_etiq.qtde)) Endif lcresult = lcresult + lclinha + Chr(13) Endfor m.expr = lcresult Sele LBLPROD Gather Memvar Memo Endif Sele LBLPROD Use Sele cur_etiq Label Form c:\myfolder\reports\LBLPROD90 Next 1 To Printer PROMPT NOCONSOLE>Hi.. the hack of try to open the .lbx file isn't working here to set the number of copies..
>Use "C:\myfolder\reports\LBLPROD90.LBX" Alias LBLPROD >Sele LBLPROD >Locate All For LBLPROD.uniqueid="_2900VJI4I" >If Found() > Scatter Memvar Memo > lcresult = "" > If "COPIES"$LBLPROD.Expr > lnNumLines = Memlines(m.expr) > For lnCount = 1 To lnNumLines > lclinha = Mline(m.expr, lnCount) > If "COPIES="==Substr(lclinha,1,7) > lclinha = "COPIES="+Alltrim(Str(cur_etiq.qtde)) > Endif > lcresult = lcresult + lclinha + Chr(13) > Endfor > m.expr = lcresult > Sele LBLPROD > Gather Memvar Memo > Endif >Endif >Sele LBLPROD >Use >Sele cur_etiq >Label Form c:\myfolder\reports\LBLPROD90 Next 1 To Printer PROMPT NOCONSOLE >>