Source: https://excelservicios.com/blog/producto/imprime-facil-con-dsigexpresprint/
Timestamp: 2020-02-20 02:38:54+00:00

Document:
Imprime Fácil con DsigExpresPrint -
Imprime Fácil con DsigExpresPrint
S/ 265.84
Imprime Fácil con DsigExpresPrint cantidad
Es una biblioteca de clase desarrollada para la impresión de Comprobantes Electrónicos de manera sencilla.
Comprobantes que Imprime
Formatos que Imprime
Lenguajes de Programación que Soporta.
VBA Excel (Office de 32 Bits)
Integración del Código a los lenguajes de Programación.
EstructuraConexiónCabezera de ImpresiónDirectorioArchivos
Estructura General de la Biblioteca de Clase
Dim DsigPrinter As DsigExpressPrint Set DsigPrinter = New DsigExpressPrint With DsigPrinter end with Set DsigPrinter = Nothing
Dim DsigPrinter As DsigExpressPrint
Set DsigPrinter = New DsigExpressPrint
With DsigPrinter
Set DsigPrinter = Nothing
Conexión a una base de datos de MS ACCES , SQLSERVER y MySQL
'Cadena de Conexion a MS ACCES .c_Conexion = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + App.path + "\Bd\" + "bdTest.accdb;Persist Security Info=False" 'Cadena de Conexion SQL SERVER .c_Conexion = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=COA;Data Source=TRABADO\SQLEXPRESS" 'Cadena de Conexion a MYSQL .c_Conexion = "DRIVER={MySQL ODBC 3.51Driver}; SERVER=localhost; DATABASE=Sistema_De_Inventario; UID=root;PWD=;OPTION=3" 'Consulta SQL .c_ImprimirPDF = "SELECT * FROM VISTA_PDF_FACTURA_IMPRESION WHERE LLAVE='REG-0001'
'Cadena de Conexion a MS ACCES
.c_Conexion = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + App.path + "\Bd\" + "bdTest.accdb;Persist Security Info=False"
'Cadena de Conexion SQL SERVER
.c_Conexion = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=COA;Data Source=TRABADO\SQLEXPRESS"
'Cadena de Conexion a MYSQL
.c_Conexion = "DRIVER={MySQL ODBC 3.51Driver}; SERVER=localhost; DATABASE=Sistema_De_Inventario; UID=root;PWD=;OPTION=3"
.c_ImprimirPDF = "SELECT * FROM VISTA_PDF_FACTURA_IMPRESION WHERE LLAVE='REG-0001'
Aquí se Toma los Criterios de las tablas para reverenciar las propiedades.
.T_CodeBarra = Empty .T_ModalBarra = True .c_serie = "serie" .c_numero = "numero" .c_fechaEmision = "fechaem" .c_fechaVence = "fechaven" .c_ruc = "ruc" .c_razon = "raz" .c_direccion = "dir" .c_pais = "codpais" .c_departamento = "dpt" .c_provincia = "prov" .c_distrito = "distrito" .c_Condicion = "condicion" .c_moneda = "tipmon" .c_Correo = "correo" .c_GuiaRemitente = "Guiarem" .c_GuiaTransportista = "GuiaTrans" .c_FormaPago = "Forpago" .c_NumeroOrden = "Numorden" .c_ItemCodigo = "codigo" .c_ItemUnidad = "unidad" .c_ItemDescripcion = "nombreproducto" .c_ItemCantidad = "cant" .c_ItemIgvUnitario = "itemigv" .c_ItemPrecioUnitario = "itemprecio" .c_Otroscargos = "otroscargos" .c_DescuentoGlobal = "desctoglobal" .c_TotalDescuentos = "totaldescuentos" .c_TotalGravado = "opgra" .c_Totalgratuita = "opgratuitas" .c_TotalExonerado = "opexon" .c_TotalInafecto = "opina" .c_IgvTotal = "igv" .c_ImporteTotal = "total" .c_ReferenciaCpe = "referenciadoc" .c_MotivoNota = "cat09" .c_DescripcionNota = "motivonota" .s_resolucion = "Autorizado Mediante Resolución de Intendencia N° 454545454545" .p_Web = "Consulta tu Conprobante Electrónico en: https://facturadorelectronico.net/Intranet/consultacpe/ " .T_Obslinea1 = "Sirvase Cancelar la factura Electrónica en la Siguiente Cuenta" .T_Obslinea2 = "Banco de Credito del Perú" .T_Obslinea3 = "Cuenta de Ahorros: 0999898-12120121-12" .T_Obslinea4 = "Moneda: Nuevos Soles" .T_Obslinea5 = "Cuenta de Ahorros"
.T_CodeBarra = Empty
.T_ModalBarra = True
.c_serie = "serie"
.c_numero = "numero"
.c_fechaEmision = "fechaem"
.c_fechaVence = "fechaven"
.c_ruc = "ruc"
.c_razon = "raz"
.c_direccion = "dir"
.c_pais = "codpais"
.c_departamento = "dpt"
.c_provincia = "prov"
.c_distrito = "distrito"
.c_Condicion = "condicion"
.c_moneda = "tipmon"
.c_Correo = "correo"
.c_GuiaRemitente = "Guiarem"
.c_GuiaTransportista = "GuiaTrans"
.c_FormaPago = "Forpago"
.c_NumeroOrden = "Numorden"
.c_ItemCodigo = "codigo"
.c_ItemUnidad = "unidad"
.c_ItemDescripcion = "nombreproducto"
.c_ItemCantidad = "cant"
.c_ItemIgvUnitario = "itemigv"
.c_ItemPrecioUnitario = "itemprecio"
.c_Otroscargos = "otroscargos"
.c_DescuentoGlobal = "desctoglobal"
.c_TotalDescuentos = "totaldescuentos"
.c_TotalGravado = "opgra"
.c_Totalgratuita = "opgratuitas"
.c_TotalExonerado = "opexon"
.c_TotalInafecto = "opina"
.c_IgvTotal = "igv"
.c_ImporteTotal = "total"
.c_ReferenciaCpe = "referenciadoc"
.c_MotivoNota = "cat09"
.c_DescripcionNota = "motivonota"
.s_resolucion = "Autorizado Mediante Resolución de Intendencia N° 454545454545"
.p_Web = "Consulta tu Conprobante Electrónico en: https://facturadorelectronico.net/Intranet/consultacpe/ "
.T_Obslinea1 = "Sirvase Cancelar la factura Electrónica en la Siguiente Cuenta"
.T_Obslinea2 = "Banco de Credito del Perú"
.T_Obslinea3 = "Cuenta de Ahorros: 0999898-12120121-12"
.T_Obslinea4 = "Moneda: Nuevos Soles"
.T_Obslinea5 = "Cuenta de Ahorros"
.r_Pdf = App.Path + "\pdf\" .r_Pla = App.Path & "\pla\" .r_Cdr = App.Path + "\cdr\" .r_Code = App.Path + "\CodeQR\" .r_Xml = App.Path + "\xml\"
.r_Pdf = App.Path + "\pdf\"
.r_Pla = App.Path & "\pla\"
.r_Cdr = App.Path + "\cdr\"
.r_Code = App.Path + "\CodeQR\"
.r_Xml = App.Path + "\xml\"
Se tiene que especificar el Nombre del Archivo generado desde la SUNAT el XML
Const cpe = "20601733022-01-FF11-00000004" .c_TipoImpresion = "A4" 'Tipo de Formato .b_cpe = cpe'Comprobante If Mid(cpe, 13, 2) = "01" Then .PdfFactura ("fac1") ElseIf Mid(cpe, 13, 2) = "03" Then .PdfBoleta ("bol1") ElseIf Mid(cpe, 13, 2) = "07" Then .PdfNotaCredito ("cred1") ElseIf Mid(cpe, 13, 2) = "08" Then .PdfNotaDebito ("deb1") End If
Const cpe = "20601733022-01-FF11-00000004"
.c_TipoImpresion = "A4" 'Tipo de Formato
.b_cpe = cpe'Comprobante
If Mid(cpe, 13, 2) = "01" Then
.PdfFactura ("fac1")
ElseIf Mid(cpe, 13, 2) = "03" Then
.PdfBoleta ("bol1")
ElseIf Mid(cpe, 13, 2) = "07" Then
.PdfNotaCredito ("cred1")
ElseIf Mid(cpe, 13, 2) = "08" Then
.PdfNotaDebito ("deb1") End If
Código Visual Basic 6.0
Crear un Proyecto en VB 6.0.
Insertar Command1
Option Explicit Dim DsigPrinter As DsigExpressPrint Const cpe = "20601733022-01-FF11-00000004" '1 Private Sub cmd_Test_Click() Set DsigPrinter = New DsigExpressPrint With DsigPrinter 'XXXXXXXXXXX-XX-XXXX-XXXXXXXX (Archivo a Buscar) .b_cpe = cpe .V_Cdr = False 'Fuerza a Validar el CDR en Aceptado por Sunat .c_TipoImpresion = "A4" 'Cadena de Conexion .c_Conexion = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + App.path + "\Bd\" + "bdTest.accdb;Persist Security Info=False" .c_ImprimirPDF = "SELECT * FROM VISTA_PDF_FACTURA_IMPRESION WHERE LLAVE='REG-0001'" 'Directorio de los Archivos .r_Pdf = App.path + "\pdf\" .r_Pla = App.path & "\pla\" .r_Cdr = App.path + "\cdr\" .r_Code = App.path + "\CodeQR\" .r_Xml = App.path + "\xml\" 'Cabezeras para Impresión .T_CodeBarra = Empty .T_ModalBarra = True .c_serie = "serie" .c_numero = "numero" '===== Cabezera 1: de la factura Boleta y Notas ========' .c_fechaEmision = "fechaem" .c_fechaVence = "fechaven" .c_tipodoc = "tipodoc" .c_ruc = "ruc" .c_razon = "raz" .c_direccion = "dir" .c_pais = "codpais" .c_departamento = "dpt" .c_provincia = "prov" .c_distrito = "distrito" .c_Condicion = "condicion" .c_moneda = "tipmon" .c_Correo = "correo" .c_GuiaRemitente = "Guiarem" .c_GuiaTransportista = "GuiaTrans" .c_FormaPago = "Forpago" .c_NumeroOrden = "Numorden" '======== Detalle del Comprobante =========' .c_ItemCodigo = "codigo" .c_ItemUnidad = "unidad" .c_ItemDescripcion = "nombreproducto" .c_ItemCantidad = "cant" .c_ItemIgvUnitario = "itemigv" .c_ItemValorUnitario = "itemvalor" '======== Totales del Pie de Página ========' .c_Otroscargos = "otroscargos" .c_DescuentoGlobal = "desctoglobal" .c_TotalDescuentos = "totaldescuentos" .c_TotalGravado = "opgra" .c_Totalgratuita = "opgratuitas" .c_TotalExonerado = "opexon" .c_TotalInafecto = "opina" .c_IgvTotal = "igv" .c_ImporteTotal = "total" '======== Cabezera 2: de la Nota de Cédito o Débito" ========' .c_ReferenciaCpe = "referenciadoc" .c_MotivoNota = "cat09" .c_DescripcionNota = "motivonota" '======== Pie de Pagina del Documento ==========' .s_resolucion = "Autorizado Mediante Resolución de Intendencia N° 454545454545" .p_Web = "Consulta tu Conprobante Electrónico en: https://facturadorelectronico.net/Intranet/consultacpe/ " .T_Obslinea1 = "Sirvase Cancelar la factura Electrónica en la Siguiente Cuenta" .T_Obslinea2 = "Banco de Credito del Perú" .T_Obslinea3 = "Cuenta de Ahorros: 0999898-12120121-12" .T_Obslinea4 = "Moneda: Nuevos Soles" .T_Obslinea5 = "Cuenta de Ahorros" '======== Método a Ejecutar =========' If Mid(cpe, 13, 2) = "01" Then .PdfFactura ("fac1") ElseIf Mid(cpe, 13, 2) = "03" Then .PdfBoleta ("bol1") ElseIf Mid(cpe, 13, 2) = "07" Then .PdfNotaCredito ("cred1") ElseIf Mid(cpe, 13, 2) = "08" Then .PdfNotaDebito ("deb1") End If End With Print "Proceso generado con Exito" Set DsigPrinter = Nothing End Sub
Const cpe = "20601733022-01-FF11-00000004" '1
'XXXXXXXXXXX-XX-XXXX-XXXXXXXX (Archivo a Buscar)
.b_cpe = cpe
.V_Cdr = False 'Fuerza a Validar el CDR en Aceptado por Sunat
.c_TipoImpresion = "A4"
.c_ImprimirPDF = "SELECT * FROM VISTA_PDF_FACTURA_IMPRESION WHERE LLAVE='REG-0001'"
'Directorio de los Archivos
'Cabezeras para Impresión
'===== Cabezera 1: de la factura Boleta y Notas ========'
.c_tipodoc = "tipodoc"
'======== Detalle del Comprobante ========='
.c_ItemValorUnitario = "itemvalor"
'======== Totales del Pie de Página ========'
'======== Cabezera 2: de la Nota de Cédito o Débito" ========'
'======== Pie de Pagina del Documento =========='
'======== Método a Ejecutar ========='
.PdfNotaDebito ("deb1")
Print "Proceso generado con Exito"
Código Visual Studio VB.NET
Imports DsigExpress Public Class Form1 Dim ImprimirPDF As DsigExpressPrint Dim cpe As String Private Sub Btnimprimir_Click(sender As Object, e As EventArgs) Handles Btnimprimir.Click cpe = "20601733022-01-FF11-00000004" ImprimirPDF = New DsigExpressPrint With ImprimirPDF .b_cpe = cpe ''XXXXXXXXXXX-XX-XXXX-XXXXXXXX (Archivo a Buscar) .V_Cdr = False 'Fuerza a Validar el CDR en Aceptado por Sunat .c_TipoImpresion = cmbformato.Text 'Cadena de Conexion .c_Conexion = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + Application.StartupPath + "\Bd\" + "bdTest.accdb;Persist Security Info=False" .c_ImprimirPDF = "SELECT * FROM VISTA_PDF_FACTURA_IMPRESION WHERE LLAVE='REG-0001'" 'Directorio de los Archivos .r_Pdf = Application.StartupPath + "\pdf\" .r_Pla = Application.StartupPath & "\pla\" .r_Cdr = Application.StartupPath + "\cdr\" .r_Code = Application.StartupPath + "\CodeQR\" .r_Xml = Application.StartupPath + "\xml\" 'Cabezeras para Impresión .T_CodeBarra = String.Empty .T_ModalBarra = True '===== cabezera de .c_serie = "serie" .c_numero = "numero" '===== Cabezera 1: de la factura Boleta y Notas ========' .c_fechaEmision = "fechaem" .c_fechaVence = "fechaven" .c_tipodoc = "tipodoc" .c_ruc = "ruc" .c_razon = "raz" .c_direccion = "dir" .c_pais = "codpais" .c_departamento = "dpt" .c_provincia = "prov" .c_distrito = "distrito" .c_Condicion = "condicion" .c_moneda = "tipmon" .c_Correo = "correo" .c_GuiaRemitente = "Guiarem" .c_GuiaTransportista = "GuiaTrans" .c_FormaPago = "Forpago" .c_NumeroOrden = "Numorden" '======== Detalle del Comprobante =========' .c_ItemCodigo = "codigo" .c_ItemUnidad = "unidad" .c_ItemDescripcion = "nombreproducto" .c_ItemCantidad = "cant" .c_ItemIgvUnitario = "itemigv" .c_ItemValorUnitario = "itemvalor" '======== Totales del Pie de Página ========' .c_Otroscargos = "otroscargos" .c_DescuentoGlobal = "desctoglobal" .c_TotalDescuentos = "totaldescuentos" .c_TotalGravado = "opgra" .c_Totalgratuita = "opgratuitas" .c_TotalExonerado = "opexon" .c_TotalInafecto = "opina" .c_IgvTotal = "igv" .c_ImporteTotal = "total" '======== Cabezera 2: de la Nota de Cédito o Débito" ========' .c_ReferenciaCpe = "referenciadoc" .c_MotivoNota = "cat09" .c_DescripcionNota = "motivonota" '======== Pie de Pagina del Documento ==========' .s_resolucion = "Autorizado Mediante Resolución de Intendencia N° 454545454545" .p_Web = "Consulta tu Conprobante Electrónico en: https://facturadorelectronico.net/Intranet/consultacpe/ " .T_Obslinea1 = "Sirvase Cancelar la factura Electrónica en la Siguiente Cuenta" .T_Obslinea2 = "Banco de Credito del Perú" .T_Obslinea3 = "Cuenta de Ahorros: 0999898-12120121-12" .T_Obslinea4 = "Moneda: Nuevos Soles" .T_Obslinea5 = "Cuenta de Ahorros" '======== Método a Ejecutar =========' If Mid(cpe, 13, 2) = "01" Then .PdfFactura("fac1") ElseIf Mid(cpe, 13, 2) = "03" Then .PdfBoleta("bol1") ElseIf Mid(cpe, 13, 2) = "07" Then .PdfNotaCredito("cred1") ElseIf Mid(cpe, 13, 2) = "08" Then .PdfNotaDebito("deb1") End If End With ImprimirPDF = Nothing MsgBox("Archivo Generado con Exito", vbInformation, "Atención") End Sub End Class
Imports DsigExpress
Dim ImprimirPDF As DsigExpressPrint
Dim cpe As String
Private Sub Btnimprimir_Click(sender As Object, e As EventArgs) Handles Btnimprimir.Click
cpe = "20601733022-01-FF11-00000004"
ImprimirPDF = New DsigExpressPrint
With ImprimirPDF
.b_cpe = cpe ''XXXXXXXXXXX-XX-XXXX-XXXXXXXX (Archivo a Buscar)
.c_TipoImpresion = cmbformato.Text
.c_Conexion = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + Application.StartupPath + "\Bd\" + "bdTest.accdb;Persist Security Info=False"
.r_Pdf = Application.StartupPath + "\pdf\"
.r_Pla = Application.StartupPath & "\pla\"
.r_Cdr = Application.StartupPath + "\cdr\"
.r_Code = Application.StartupPath + "\CodeQR\"
.r_Xml = Application.StartupPath + "\xml\"
.T_CodeBarra = String.Empty
'===== cabezera de
.PdfFactura("fac1")
.PdfBoleta("bol1")
.PdfNotaCredito("cred1")
.PdfNotaDebito("deb1")
ImprimirPDF = Nothing
MsgBox("Archivo Generado con Exito", vbInformation, "Atención")
Código Visual Studio C#
using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; using DsigExpress; namespace PdfFacturacion_C_Sharp { public partial class Form1 : Form { DsigExpressPrint ImprimirPDF; string cpe; public Form1() { InitializeComponent(); } private void Form1_Load(object sender, EventArgs e) { } private void btnPDF_Click(object sender, EventArgs e) { cpe = "20601733022-01-FF11-00000004"; ImprimirPDF = new DsigExpressPrint(); ImprimirPDF.b_cpe = cpe; //'XXXXXXXXXXX-XX-XXXX-XXXXXXXX (Archivo a Buscar) ImprimirPDF.V_Cdr = false; //Fuerza a Validar el CDR en Aceptado por Sunat ImprimirPDF.c_TipoImpresion = cmbformato.Text; //Cadena de Conexion ImprimirPDF.c_Conexion = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + Application.StartupPath + @"\Bd\" + "bdTest.accdb;Persist Security Info=False"; ImprimirPDF.c_ImprimirPDF = "SELECT * FROM VISTA_PDF_FACTURA_IMPRESION WHERE LLAVE='REG-0001'"; //Directorio de los Archivos ImprimirPDF.r_Pdf = Application.StartupPath + @"\pdf\"; ImprimirPDF.r_Pla = Application.StartupPath + @"\pla\"; ImprimirPDF.r_Cdr = Application.StartupPath + @"\cdr\"; ImprimirPDF.r_Code = Application.StartupPath + @"\CodeQR\"; ImprimirPDF.r_Xml = Application.StartupPath + @"\xml\"; //Cabezeras para Impresión ImprimirPDF.T_CodeBarra = String.Empty; ImprimirPDF.T_ModalBarra = true; //===== cabezera de ImprimirPDF.c_serie = "serie"; ImprimirPDF.c_numero = "numero"; //===== Cabezera 1: de la factura Boleta y Notas ========' ImprimirPDF.c_fechaEmision = "fechaem"; ImprimirPDF.c_fechaVence = "fechaven"; ImprimirPDF.c_tipodoc = "tipodoc"; ImprimirPDF.c_ruc = "ruc"; ImprimirPDF.c_razon = "raz"; ImprimirPDF.c_direccion = "dir"; ImprimirPDF.c_pais = "codpais"; ImprimirPDF.c_departamento = "dpt"; ImprimirPDF.c_provincia = "prov"; ImprimirPDF.c_distrito = "distrito"; ImprimirPDF.c_Condicion = "condicion"; ImprimirPDF.c_moneda = "tipmon"; ImprimirPDF.c_Correo = "correo"; ImprimirPDF.c_GuiaRemitente = "Guiarem"; ImprimirPDF.c_GuiaTransportista = "GuiaTrans"; ImprimirPDF.c_FormaPago = "Forpago"; ImprimirPDF.c_NumeroOrden = "Numorden"; //======== Detalle del Comprobante =========' ImprimirPDF.c_ItemCodigo = "codigo"; ImprimirPDF.c_ItemUnidad = "unidad"; ImprimirPDF.c_ItemDescripcion = "nombreproducto"; ImprimirPDF.c_ItemCantidad = "cant"; ImprimirPDF.c_ItemIgvUnitario = "itemigv"; ImprimirPDF.c_ItemValorUnitario = "itemvalor"; //======== Totales del Pie de Página ========' ImprimirPDF.c_Otroscargos = "otroscargos"; ImprimirPDF.c_DescuentoGlobal = "desctoglobal"; ImprimirPDF.c_TotalDescuentos = "totaldescuentos"; ImprimirPDF.c_TotalGravado = "opgra"; ImprimirPDF.c_Totalgratuita = "opgratuitas"; ImprimirPDF.c_TotalExonerado = "opexon"; ImprimirPDF.c_TotalInafecto = "opina"; ImprimirPDF.c_IgvTotal = "igv"; ImprimirPDF.c_ImporteTotal = "total"; //======== Cabezera 2: de la Nota de Cédito o Débito" ========' ImprimirPDF.c_ReferenciaCpe = "referenciadoc"; ImprimirPDF.c_MotivoNota = "cat09"; ImprimirPDF.c_DescripcionNota = "motivonota"; //======== Pie de Pagina del Documento ==========' ImprimirPDF.s_resolucion = "Autorizado Mediante Resolución de Intendencia N° 454545454545"; ImprimirPDF.p_Web = "Consulta tu Conprobante Electrónico en: https://facturadorelectronico.net/Intranet/consultacpe/ "; ImprimirPDF.T_Obslinea1 = "Sirvase Cancelar la factura Electrónica en la Siguiente Cuenta"; ImprimirPDF.T_Obslinea2 = "Banco de Credito del Perú"; ImprimirPDF.T_Obslinea3 = "Cuenta de Ahorros: 0999898-12120121-12"; ImprimirPDF.T_Obslinea4 = "Moneda: Nuevos Soles"; ImprimirPDF.T_Obslinea5 = "Cuenta de Ahorros"; //======== Método a Ejecutar =========' if (cpe.Substring(12, 2) == "01") { ImprimirPDF.PdfFactura("fac1"); } else if (cpe.Substring(12, 2) == "03") { ImprimirPDF.PdfBoleta("bol1"); } else if (cpe.Substring(12, 2) == "07") { ImprimirPDF.PdfNotaCredito("cred1"); } else if (cpe.Substring(12, 2) == "08") { ImprimirPDF.PdfNotaDebito("deb1"); } ImprimirPDF = null; } } }
using DsigExpress;
namespace PdfFacturacion_C_Sharp
DsigExpressPrint ImprimirPDF;
string cpe;
cpe = "20601733022-01-FF11-00000004";
ImprimirPDF = new DsigExpressPrint();
ImprimirPDF.b_cpe = cpe; //'XXXXXXXXXXX-XX-XXXX-XXXXXXXX (Archivo a Buscar)
ImprimirPDF.V_Cdr = false; //Fuerza a Validar el CDR en Aceptado por Sunat
ImprimirPDF.c_TipoImpresion = cmbformato.Text;
ImprimirPDF.c_Conexion = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + Application.StartupPath + @"\Bd\" + "bdTest.accdb;Persist Security Info=False";
ImprimirPDF.c_ImprimirPDF = "SELECT * FROM VISTA_PDF_FACTURA_IMPRESION WHERE LLAVE='REG-0001'";
//Directorio de los Archivos
ImprimirPDF.r_Pdf = Application.StartupPath + @"\pdf\";
ImprimirPDF.r_Pla = Application.StartupPath + @"\pla\";
ImprimirPDF.r_Cdr = Application.StartupPath + @"\cdr\";
ImprimirPDF.r_Code = Application.StartupPath + @"\CodeQR\";
ImprimirPDF.r_Xml = Application.StartupPath + @"\xml\";
//Cabezeras para Impresión
ImprimirPDF.T_CodeBarra = String.Empty;
ImprimirPDF.T_ModalBarra = true;
//===== cabezera de
ImprimirPDF.c_serie = "serie";
ImprimirPDF.c_numero = "numero";
//===== Cabezera 1: de la factura Boleta y Notas ========'
ImprimirPDF.c_fechaEmision = "fechaem";
ImprimirPDF.c_fechaVence = "fechaven";
ImprimirPDF.c_tipodoc = "tipodoc";
ImprimirPDF.c_ruc = "ruc";
ImprimirPDF.c_razon = "raz";
ImprimirPDF.c_direccion = "dir";
ImprimirPDF.c_pais = "codpais";
ImprimirPDF.c_departamento = "dpt";
ImprimirPDF.c_provincia = "prov";
ImprimirPDF.c_distrito = "distrito";
ImprimirPDF.c_Condicion = "condicion";
ImprimirPDF.c_moneda = "tipmon";
ImprimirPDF.c_Correo = "correo";
ImprimirPDF.c_GuiaRemitente = "Guiarem";
ImprimirPDF.c_GuiaTransportista = "GuiaTrans";
ImprimirPDF.c_FormaPago = "Forpago";
ImprimirPDF.c_NumeroOrden = "Numorden";
//======== Detalle del Comprobante ========='
ImprimirPDF.c_ItemCodigo = "codigo";
ImprimirPDF.c_ItemUnidad = "unidad";
ImprimirPDF.c_ItemDescripcion = "nombreproducto";
ImprimirPDF.c_ItemCantidad = "cant";
ImprimirPDF.c_ItemIgvUnitario = "itemigv";
ImprimirPDF.c_ItemValorUnitario = "itemvalor";
//======== Totales del Pie de Página ========'
ImprimirPDF.c_Otroscargos = "otroscargos";
ImprimirPDF.c_DescuentoGlobal = "desctoglobal";
ImprimirPDF.c_TotalDescuentos = "totaldescuentos";
ImprimirPDF.c_TotalGravado = "opgra";
ImprimirPDF.c_Totalgratuita = "opgratuitas";
ImprimirPDF.c_TotalExonerado = "opexon";
ImprimirPDF.c_TotalInafecto = "opina";
ImprimirPDF.c_IgvTotal = "igv";
ImprimirPDF.c_ImporteTotal = "total";
//======== Cabezera 2: de la Nota de Cédito o Débito" ========'
ImprimirPDF.c_ReferenciaCpe = "referenciadoc";
ImprimirPDF.c_MotivoNota = "cat09";
ImprimirPDF.c_DescripcionNota = "motivonota";
//======== Pie de Pagina del Documento =========='
ImprimirPDF.s_resolucion = "Autorizado Mediante Resolución de Intendencia N° 454545454545";
ImprimirPDF.p_Web = "Consulta tu Conprobante Electrónico en: https://facturadorelectronico.net/Intranet/consultacpe/ ";
ImprimirPDF.T_Obslinea1 = "Sirvase Cancelar la factura Electrónica en la Siguiente Cuenta";
ImprimirPDF.T_Obslinea2 = "Banco de Credito del Perú";
ImprimirPDF.T_Obslinea3 = "Cuenta de Ahorros: 0999898-12120121-12";
ImprimirPDF.T_Obslinea4 = "Moneda: Nuevos Soles";
ImprimirPDF.T_Obslinea5 = "Cuenta de Ahorros";
//======== Método a Ejecutar ========='
if (cpe.Substring(12, 2) == "01")
ImprimirPDF.PdfFactura("fac1");
else if (cpe.Substring(12, 2) == "03")
ImprimirPDF.PdfBoleta("bol1");
else if (cpe.Substring(12, 2) == "07")
ImprimirPDF.PdfNotaCredito("cred1");
else if (cpe.Substring(12, 2) == "08")
ImprimirPDF.PdfNotaDebito("deb1");
ImprimirPDF = null;
Representación Impresa del Comprobante Electrónico.
Formato Colegio
Plantilla en 4 Colores (Rojo, Verde, Negro y Azul)
Plantilla con su Logo e Información de Empresa
Validación del CDR de la Sunat
Lectura del XML Sunat
Sé el primero en valorar “Imprime Fácil con DsigExpresPrint” Cancelar respuesta
S/ 302.85 Añadir al carrito
Archivos Elegir mes febrero 2020 (2) enero 2020 (5) septiembre 2019 (1) julio 2019 (1) junio 2019 (1) mayo 2019 (2) abril 2019 (1) diciembre 2018 (1) noviembre 2018 (2) septiembre 2018 (1) agosto 2018 (2) julio 2018 (1) mayo 2018 (4) abril 2018 (40) marzo 2018 (10) febrero 2018 (27) enero 2018 (35) diciembre 2017 (8) noviembre 2017 (8) octubre 2017 (6) agosto 2017 (2) julio 2017 (2) junio 2017 (1) mayo 2017 (1) abril 2017 (2) marzo 2017 (8) febrero 2017 (3) enero 2017 (3) diciembre 2016 (2) noviembre 2016 (1) octubre 2016 (4) septiembre 2016 (4) agosto 2016 (3) julio 2016 (2) junio 2016 (1) mayo 2016 (10) abril 2016 (6) enero 2016 (2) diciembre 2015 (5) noviembre 2015 (10) octubre 2015 (6) septiembre 2015 (11)
Liquidación de Impuestos y guía Pagos Varios
Barras de Ribbon en Excel | IDBE RibbonCreator y OfficeCustomUIEditor
Sunat informa a 15,000 personas obligación de pagar impuesto por renta de fuente extranjera
Personalizar Plantilla Jasper del Facturador Sunat con Logo de Empresa

References: Resolución 
 Resolución 
 Resolución 
 Resolución 
 Resolución 
 Resolución