<< 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]
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)
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]
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.
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]