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?
Funciona 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.
Saludos
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
EJEMPLO
————————————————————
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/
Si 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!
Muchas gracias por su comentario Roberto, trataremos de tomar las caguamas que consideremos suficiente.
Aun así, necesitamos estar motivados para ofrecer soluciones a nuestros compañeros
Que tenga excelente día.
José Félix