fijar los rsOrders = Server.CreateObject (“ADODB.Recordset”)
rsOrders.Open “SELECCIONAN * de los oitems INTERNOS ENSAMBLAR las órdenes EN oitems.orderid = orders.orderid donde orders.orderid=” y la orden, conec
Mientras que no rsOrders.Eof
ccode = rsOrders (“catalogid”)
numitems = rsOrders (“numitems”)
el itemname = substituye (los rsOrders (“itemname”), el “
”,” - ")
pdf. Célula (5)
pdf. Célula -1.0, Cstr (numitems), 0.1, “C”
pdf. Célula (15)
pdf. Célula 0.0, dejada (itemname, 120), 0.1, “L”
pdf. Ln (6)
rsOrders.MoveNext
pdf. Cerrarse ()
pdf. Hacer salir (“_orders \ pakbon_” y invoiceid y “.pdf” de D:\testshop)
Wend
class= >
Within de