Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
N copies at once
Message
 
À
17/12/2007 13:09:40
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de rapports & Rapports
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows XP SP2
Network:
Windows XP
Database:
Visual FoxPro
Divers
Thread ID:
01276279
Message ID:
01276280
Vues:
25
Claudio,
Why this:
Locate All For LBLPROD.uniqueid="_2900VJI4I"
The printer information is ALWAYS in record 1
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..
>
>I've trying:
>
>
>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
>
>
>I'd like to sent at once many copies of a same label...
>
>TIA
>
>Claudio
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform