Base de Conocimientos (KB)

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

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

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