Colocar descripcion con varias lineas en ticket

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

 Visual Basic |  copy code |? 
01
02
'------------------------------
03
'asi quedara el resultado
04
CANT. DESCRIPCION       IMPORTE
05
1.00  TORNILLO CUERDA   15.00 
06
       X, CABEZA PLANA
07
      TIPO CRUZ 3/4 PULG
08
'-------------------------------
09
 
10
'--------------------------------------------------
11
'Al inicio del código, identificaremos esta linea de consulta
12
    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 )    
13
 
14
'Agregaremos el campo partvta.observ y quedaría así
15
    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 ) 
16
'--------------------------------------------------  
17
 
18
'identificaremos esta linea, aproximadamente es la numero 142
19
          'strSalida = PadL(Formato( nCantidad, "##,##0.00" ),3) & " " & cDescrip & cLineaNueva   & " " &  cImporte  
20
'agregamos esta linea para que la descripcion sea corta y se complemente con los saltos de linea
21
          strSalida = PadL(Formato( nCantidad, "##,##0.00" ),3) & " " & PadL( Mid( rstPartidas("observ"),1,16 ),16)  &  cImporte & cLineaNueva  
22
 
23
'Si se necesita multiples lineas para la descripcion, colocar este bloque de codigo 
24
          if Len (rstPartidas("observ")) > 16 Then
25
          		strSalida =  strSalida  & "        " & Mid( rstPartidas("observ"),17,16)   & cLineaNueva  
26
          end if
27
          if Len (rstPartidas("observ")) > 32 Then
28
          		strSalida =  strSalida  & "        " & Mid( rstPartidas("observ"),33,16)   & cLineaNueva  
29
          end if
30
'esta linea agrega la descripcion y los importes al ticket
31
          cSalida = cSalida & strSalida & cLineaNueva
32
 
33

6 comments for “Colocar descripcion con varias lineas en ticket

  1. julio 24, 2016 at 12:20 am

    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!

    • julio 24, 2016 at 12:25 pm

      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

  2. Jose Elin
    septiembre 26, 2015 at 12:37 pm

    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

  3. Hector
    marzo 31, 2015 at 5:51 pm

    Este fragmento de código solo sirve para POS v11, cierto?

    • José Félix
      marzo 31, 2015 at 8:42 pm

      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

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos necesarios están marcados *


Time limit is exhausted. Please reload CAPTCHA.