Imprime Fácil con DsigExpresPrint

Imprime Fácil con DsigExpresPrint

$79.00
S/ 265.84

Descripción

Imprime Fácil con DsigExpresPrint

Es una biblioteca de clase desarrollada para la impresión de Comprobantes Electrónicos de manera sencilla.

Comprobantes que Imprime

  • Factura Electrónica
  • Boleta Electrónica
  • Nota de Crédito Electrónica
  • Nota de Débito Electrónica

Formatos que Imprime

Lenguajes de Programación que Soporta.

  • Visual Basic 6.0
  • Visual Studio (VB)
  • Visual Studio (C#)
  • 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

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'

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"
.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
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
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
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;
     
        }
    }
}

 

Representación Impresa del Comprobante Electrónico.

Formato A4

Formato A5

Formato Ticket

Formato Colegio

 

Plantillas Personalizadas

  • Plantilla en 4 Colores (Rojo, Verde, Negro y Azul)
  • Plantilla con su Logo e Información de Empresa

Herramientas Adicionales

  • Validación del CDR de la Sunat
  • Lectura del XML Sunat
  • Generación del Código QR
VIDEO DE DEMOSTRACIÓN – 01
¿Cómo realizar la Comprar?

1.- Efectuar el Deposito Correspondiente en las Siguientes Cuentas Bancarias << CLICK AQUÍ >>
2.- Enviar Boucher escaneado del Depósito o el Número de Operación Bancaria al Siguiente Correo:
Ventas@excelservicios.com o excelservicios@hotmail.com
3.- Se Efectuara la validación de la Operación Bancaria y la Entrega del Producto dentro las 24 Horas
Como Plazo Máximo para la Entrega del Producto.
4.- En caso de demoras se puede Comunicar con nosotros al Siguiente número de Celular solo pagos: RPC: 51 995155060
5.- La Entrega de cada Producto es un lapso de 0:30 Minutos a 1 Hora,
6.- La descarga del producto se realiza directamente desde la Tienda de www.excelservicios.com, solicite su pedido y realice el Pago.
7.- Enviar datos correspondientes como RUC o DNI, DIRECCIÓN, CIUDAD Y CELULAR para efectuar la Entrega del Comprobante Electrónico.

Valoraciones

No hay valoraciones aún.

Sé el primero en valorar “Imprime Fácil con DsigExpresPrint”

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