¿Cómo agregar la clave del Método de Pago a la plantilla de factura?

<< Click to Display Table of Contents >>

Navigation:  Ventas > Preguntas Frecuentes de Ventas >

¿Cómo agregar la clave del Método de Pago a la plantilla de factura?

Puedes modificar la Plantilla de Facturas para que haga eso así:

 

OPCIÓN PRINCIPAL

 

1.Entrar a [Herramientas]

2.Dar clic en [Plantilla CFD/CFDI]

3.Presionar el botón de [Diseñar] (en factura)

4.Agregar el campo DBTexto a un lado del Método de pago dentro de la plantilla.

5.Seleccionar la Tabla Venta y el Campo NuMetodoSAT

6.Ir al menú [Archivo] y [Guardar]

 

 

METODOPAGO0

 

 

 

 

OPCIÓN ALTERNA

 

Otra forma de cambiar anexando en la Forma de Pago es cambiando el Procedimiento OnGetText del campo de Método de pago y colo cando esta programación:

 

1.Seleccione el campo del Método de Pago y revise que Nombre en las Propiedades en Identity/UserName (puede asignar otro nombre tal como metodopago para localizarlo de manera mas fácil)

 

METODOPAGO3

 

2.Entre a la pestaña [CALC] y presione [botón derecho del Ratón] sobre el área blanca de "Bandas del Reporte" y seleccione [Eventos]

 

METODOPAGO4

 

3.Busque el Nombre del Campo del Paso 1 (que en el ejemplo mostrado era metodopago)

4.Realice los cambios

 

a.Seleccione el Campo con el mismo nombre de plantilla

b.Seleccione el Evento OnGetText

c.Pegue el Código de abajo dentro de las Instrucciones BEGIN   END.

 

 

METODOPAGO2

 

 

EJEMPLO DE COMO DEBE QUEDAR:

 

Esto en caso de Versión 2015

 

procedure metodopagoOnGetText(var Text: String);

Begin

if (Pos('EFECTIVO', UpperCase(Text))>0) then

   Text :='01 - '+Text

  else

if (Pos('CHEQUE', UpperCase(Text))>0) then

   Text :='02 - '+Text

  else

if (Pos('TRANSFER', UpperCase(Text))>0) then

   Text :='03 - '+Text

  else

if (Pos('TARJETA DE C', UpperCase(Text))>0) then

   Text :='04 - '+Text

  else

if (Pos('MONEDERO', UpperCase(Text))>0) then

   Text :='05 - '+Text

  else

if (Pos('DINERO', UpperCase(Text))>0) then

   Text :='06 - '+Text

  else

if (Pos('VALES', UpperCase(Text))>0) then

   Text :='08 - '+Text

  else

if (Pos('TARJETA DE D', UpperCase(Text))>0) then

   Text :='28 - '+Text

  else

if (Pos('TARJETA DE S', UpperCase(Text))>0) then

   Text :='29 - '+Text

  else

if (Pos('OTROS', UpperCase(Text))>0) then

   Text :='99 - '+Text;

End

 

 

 

Esto en caso de Versión 2016

 

procedure metodopagoOnGetText(var Text: String);

Begin

Text:=Venta['NUM_METODO_PAGOXML']+' - '+Text;

End

 

 

 

 

5.Entre a [Archivo] y [Guardar]