Base de Conocimientos (KB)
Facturación Electrónica : SUNAT > Help Desk : VFPS CPE > Base de Conocimientos (KB)

Ayuda de búsqueda:


Creación del componente de facturación electrónica

Solución

La creación del componente se puede realizar en su programa de inicio o en un método dentro de un formulario principal de su sistema ello queda a criterio y solo se crea una sola vez de la siguiente manera:

Visual Foxpro

*!* PROPIEDAD PARA LLAMADO DE LA CLASE CPE COMO OBJETO
IF !PEMSTATUS(_SCREEN,"loCPE",5)
   _SCREEN.AddProperty ("loCPE",.F.)
ENDIF
 
IF VARTYPE(_SCREEN.loCPE) <> "O"
   loFac = CREATEOBJECT("vfps_cpe_cl.vfps_fac_pe")
   IF VARTYPE(loFac) = "O"
      _SCREEN.loCPE  = CREATEOBJECT("vfps_cpe_cl.vfps_cpe_cl")
      *!* PARAMETRO SU NUMERO DE RUC DE LICENCIA Y EL OBJETO _SCREEN
      _SCREEN.loCPE.Add_VFPsRuc ("2010006603",_SCREEN)           
   ENDIF
ENDIF
 
IF VARTYPE(_SCREEN.loCPE) = "L"
   RETURN .F.
ENDIF
 
Visual Basic .NET
 
Public Class Form1
    Public Property loCPE As vfps_cpe_cl.vfps_cpe_cl
    Private Sub Form1_Load(sender As Object, e As EventArgs) HandlesMyBase.Load
        'DECLARAMOS EL COMPONENTE CPE
        Dim loFac As vfps_cpe_cl.vfps_fac_pe
        loFac = CreateObject("vfps_cpe_cl.vfps_fac_pe")
 
        If TypeName(loFac) = "Integer" Then
            MsgBox("No se ha declarado el objeto principal. Verificar!!", 48, "VFPS CPE")
            Me.Close()
        End If
 
        loCPE = CreateObject("vfps_cpe_cl.vfps_cpe_cl")
        loCPE.add_vfpsruc("20100066603", "Ruc")
 
        If TypeName(loCPE) = "Integer" Then
            MsgBox("No se ha declarado la función CPE del objeto principal. Verificar!!", 48, "VFPS CPE")
            Me.Close()
        End If
 
    End Sub
End Class
 
C# .NET
 
namespace VFPs_CPE_CChar
{
    publicpartialclassForm1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }
 
        public vfps_cpe_cl.vfps_cpe_cl loCPE;
        private vfps_cpe_cl.vfps_fac_pe loFac;
 
        privatevoid Form1_Load(object sender, EventArgs e)
        {
            //DECLARAMOS EL COMPONENTE CPE
            this.loFac = new vfps_cpe_cl.vfps_fac_pe();
            this.loCPE = new vfps_cpe_cl.vfps_cpe_cl();
 
            //
            this.loCPE.add_vfpsruc("20100066603", "Ruc");
        }
        
    }
}
 
Visual Basic 6.0
 
Public loCPE As vfps_cpe_cl.vfps_cpe_cl
Private Sub Form_Load()
        'DECLARAMOS EL COMPONENTE CPE
        Dim loFac As vfps_cpe_cl.vfps_fac_pe
        Set loFac = CreateObject("vfps_cpe_cl.vfps_fac_pe")
        Set loCPE = CreateObject("vfps_cpe_cl.vfps_cpe_cl")
        
        If (loCPE Is Nothing) Then
           MsgBox "No se ha declarado la función CPE del objeto principal. Verificar!!", vbExclamation, "VFPS CPE"
           Unload Me
        End If
        
        'SE PASA COMO PARAMETRO EL NÚMERO DE RUC
        loCPE.add_vfpsruc "20100066603", "Ruc"
End Sub
 
Eliminación destrucción del objeto
 
Dependiendo del tipo de lenguaje solo se debe de colocar el objeto en .F.
 
_SCREEN.loCPE = .F.
 
 
VFPSTEAM BI SOLUTIONS
 
¿Le ha sido útil este artículo? si / no
Artículos relacionados Ejemplo creación de componente en un formulario principal
Rutas y direcctorios de acceso
Uso de API componente VFPs CPE
Solución de problemas
Consulta de RUC directamente con SUNAT
Detalles del artículo
ID de artículo: 1
Categoria: Knowledgebase
Fecha de alta: 2016-06-15 01:13:18
Vistas: 5304
valoración (Votar): valoración del artículo 3.1/5.0 (17)

 
« Volver atras

 
Powered by Help Desk Software HESK, brought to you by SysAid