En este ejemplo vamos a colocar la descripcion de un producto en varias lineas.Para aplicarlo, modificaremos el formato TICKET, el cual esta en Configuracion--Personalizacion--formatos del sistema--Ticket
'------------------------------
'asi quedara el resultado
CANT. DESCRIPCION IMPORTE
1.00 TORNILLO CUERDA 15.00
X, CABEZA PLANA
TIPO CRUZ 3/4 PULG
'-------------------------------
'--------------------------------------------------
'Al inicio del código, identificaremos esta linea de consulta
Set rstPartidas = Rst("SELECT partvta.prcantidad, partvta.iespecial, partvta.id_salida, partvta.kit, partvta.articulo, prods.precio1,prods.descrip, partvta.precio, partvta.cantidad, partvta.descuento, partvta.impuesto, partvta.preciobase, partvta.prdescrip, prods.serie FROM partvta INNER JOIN prods ON prods.articulo = partvta.articulo WHERE venta =" & rstEncabezado.fields("Venta"), Ambiente.Connection )
'Agregaremos el campo partvta.observ y quedaría así
Set rstPartidas = Rst("SELECT partvta.prcantidad, partvta.iespecial, partvta.id_salida, partvta.kit, partvta.articulo, prods.precio1,prods.descrip, partvta.precio, partvta.cantidad, partvta.descuento, partvta.impuesto, partvta.preciobase, partvta.prdescrip, prods.serie,partvta.observ FROM partvta INNER JOIN prods ON prods.articulo = partvta.articulo WHERE venta =" & rstEncabezado.fields("Venta"), Ambiente.Connection )
'--------------------------------------------------
'identificaremos esta linea, aproximadamente es la numero 142
'strSalida = PadL(Formato( nCantidad, "##,##0.00" ),3) & " " & cDescrip & cLineaNueva & " " & cImporte
'agregamos esta linea para que la descripcion sea corta y se complemente con los saltos de linea
strSalida = PadL(Formato( nCantidad, "##,##0.00" ),3) & " " & PadL( Mid( rstPartidas("observ"),1,16 ),16) & cImporte & cLineaNueva
'Si se necesita multiples lineas para la descripcion, colocar este bloque de codigo
if Len (rstPartidas("observ")) > 16 Then
strSalida = strSalida & " " & Mid( rstPartidas("observ"),17,16) & cLineaNueva
end if
if Len (rstPartidas("observ")) > 32 Then
strSalida = strSalida & " " & Mid( rstPartidas("observ"),33,16) & cLineaNueva
end if
'esta linea agrega la descripcion y los importes al ticket
cSalida = cSalida & strSalida & cLineaNueva
Este fragmento de código solo sirve para POS v11, cierto?
ResponderEliminarFunciona en cualquier versión debido a que solo estamos jugando con cadenas de texto y un par de campos que son consultados de forma rutiaria.
ResponderEliminarSaludos
José Félix
Buen dia, una pregunta al realizar el ticket los totales no sale impresos,ya revise el codigo y todo esta correcto, tengo la version 2012
ResponderEliminarEJEMPLO
------------------------------------------------------------
CANT. DESCRIPCION P.UNIT. TOTAL
1.00 ALIMENTO POLLO 400.00
INICIO 40 KG
------------------------------------------------------------
Esperando me puedas ayudar, recibe un cordial saludo
Buenas tardes. Le puedo ofrecer el editor de ticket a cambio de un pomode $700 http://helpmybusinesspos.info/editor-ticket/
ResponderEliminarSi no le interesa comprar, puede desarrollar su formato con los ejemplos de ticket, con alineación, totales y varias líneas en descripción,que se encuentran en esta liga:
http://helpmybusinesspos.info/?s=ticket
http://helpmybusinesspos.info/12012-2/
Saludos
José Félix
Amigo deberías pensar en la gente , que al igual que yo batallamos mucho para solucionar nuestros problemas en el sistema y deberías de dejar a un lado tu problema con el alcohol. espero recapacites y ayudes a mucha gente, te lo agradeceríamos , saludos!
ResponderEliminarMuchas gracias por su comentario Roberto, trataremos de tomar las caguamas que consideremos suficiente.
ResponderEliminarAun así, necesitamos estar motivados para ofrecer soluciones a nuestros compañeros
Que tenga excelente día.
José Félix