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