Estimados,
Trabajando con un OCX me encuentro con la siguiente consulta, como definir una variable en base a una estructura definida dentro de un OCX. Debajo env铆o un ejemplo en .NET de como se realiza la creaci贸n de las variables "cierre" y "zeta" por ejemplo que se crean con la estructura que corresponde a "HasarArgentina.RespuestaCerrarJornadaFiscal" y "HasarArgentina.CerrarJornadaFiscalZ" donde "HasarArgentina" es el objeto creado del OCX.
Al final deber铆a contar con un objeto y poder acceder a la propiedad "zeta.Numero"
EJEMPLO .NET
Public Class FormIFH2G
Dim hasar As HasarArgentina.ImpresoraFiscalRG3561 = New HasarArgentina.ImpresoraFiscalRG3561
Private Sub ButtonRepZeta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonRepZeta.Click
Dim cierre As HasarArgentina.RespuestaCerrarJornadaFiscal
Dim zeta As HasarArgentina.CerrarJornadaFiscalZ
Try
Debug.Print("=======================================================")
Debug.Print("A imprimir: INFORME DIARIO DE CIERRE 'Z' (C贸d.: 80) ...")
Debug.Print("=======================================================")
cierre = hasar.CerrarJornadaFiscal(HasarArgentina.TipoReporte.ReporteZ)
zeta = cierre.Z
Debug.Print("Cierre 'Z' N潞 =[" & zeta.Numero & "]")
Catch
Debug.Print("C贸digo: " & Err.Number & vbCrLf & "Mensaje: " & Err.Description)
Debug.Print("")
End Try
End Sub
End Class
EJEMPLO FIVEWIN
oFiscal:= CreateObject("HasarArgentina.ImpresoraFiscalRG3561")
oFiscal:Conectar("127.0.0.1")
oFiscal:CerrarJornadaFiscal(90)
////////////////////////////////////////////////////////////////////////
Como se hace la misma referencia al ocx en fivewin a la que utiliza en .NET ???
"cierre = hasar.CerrarJornadaFiscal(90)
zeta = cierre.Z "
////////////////////////////////////////////////////////////////////////
DEFINICIONES DE LAS ESTRUCTURAS DENTRO DEL OCX
Metodo:
RespuestaCerrarJornadaFiscal CerrarJornadaFiscal([in] TipoReporte Reporte);
Estrucutra:
typedef [uuid(EA15B88B-A2DE-452B-98A2-AD3DE4BD202F), version(1.0)]
struct tagRespuestaCerrarJornadaFiscal {
[helpstring("Reporte")
]
TipoReporte Reporte;
[helpstring("X")
]
CerrarJornadaFiscalX X;
[helpstring("Z")
]
CerrarJornadaFiscalZ Z;
} RespuestaCerrarJornadaFiscal;
typedef [uuid(DBD1FE45-97A6-441E-86B0-94396E279CE8), version(1.0)]
struct tagCerrarJornadaFiscalZ {
[helpstring("Numero")
]
long Numero;
[helpstring("Fecha")
]
DATE Fecha;
[helpstring("DF_Total")
]
double DF_Total;
[helpstring("DF_TotalGravado")
]
double DF_TotalGravado;
[helpstring("DF_TotalNoGravado")
]
double DF_TotalNoGravado;
[helpstring("DF_TotalExento")
]
double DF_TotalExento;
[helpstring("DF_TotalIVA")
]
double DF_TotalIVA;
[helpstring("DF_TotalTributos")
]
double DF_TotalTributos;
[helpstring("DF_CantidadEmitidos")
]
long DF_CantidadEmitidos;
[helpstring("DF_CantidadCancelados")
]
long DF_CantidadCancelados;
[helpstring("NC_Total")
]
double NC_Total;
[helpstring("NC_TotalGravado")
]
double NC_TotalGravado;
[helpstring("NC_TotalNoGravado")
]
double NC_TotalNoGravado;
[helpstring("NC_TotalExento")
]
double NC_TotalExento;
[helpstring("NC_TotalIVA")
]
double NC_TotalIVA;
[helpstring("NC_TotalTributos")
]
double NC_TotalTributos;
[helpstring("NC_CantidadEmitidos")
]
long NC_CantidadEmitidos;
[helpstring("NC_CantidadCancelados")
]
long NC_CantidadCancelados;
[helpstring("DNFH_Total")
]
double DNFH_Total;
[helpstring("DNFH_CantidadEmitidos")
]
long DNFH_CantidadEmitidos;
} CerrarJornadaFiscalZ;
Trabajando con un OCX me encuentro con la siguiente consulta, como definir una variable en base a una estructura definida dentro de un OCX. Debajo env铆o un ejemplo en .NET de como se realiza la creaci贸n de las variables "cierre" y "zeta" por ejemplo que se crean con la estructura que corresponde a "HasarArgentina.RespuestaCerrarJornadaFiscal" y "HasarArgentina.CerrarJornadaFiscalZ" donde "HasarArgentina" es el objeto creado del OCX.
Al final deber铆a contar con un objeto y poder acceder a la propiedad "zeta.Numero"
EJEMPLO .NET
Public Class FormIFH2G
Dim hasar As HasarArgentina.ImpresoraFiscalRG3561 = New HasarArgentina.ImpresoraFiscalRG3561
Private Sub ButtonRepZeta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonRepZeta.Click
Dim cierre As HasarArgentina.RespuestaCerrarJornadaFiscal
Dim zeta As HasarArgentina.CerrarJornadaFiscalZ
Try
Debug.Print("=======================================================")
Debug.Print("A imprimir: INFORME DIARIO DE CIERRE 'Z' (C贸d.: 80) ...")
Debug.Print("=======================================================")
cierre = hasar.CerrarJornadaFiscal(HasarArgentina.TipoReporte.ReporteZ)
zeta = cierre.Z
Debug.Print("Cierre 'Z' N潞 =[" & zeta.Numero & "]")
Catch
Debug.Print("C贸digo: " & Err.Number & vbCrLf & "Mensaje: " & Err.Description)
Debug.Print("")
End Try
End Sub
End Class
EJEMPLO FIVEWIN
oFiscal:= CreateObject("HasarArgentina.ImpresoraFiscalRG3561")
oFiscal:Conectar("127.0.0.1")
oFiscal:CerrarJornadaFiscal(90)
////////////////////////////////////////////////////////////////////////
Como se hace la misma referencia al ocx en fivewin a la que utiliza en .NET ???
"cierre = hasar.CerrarJornadaFiscal(90)
zeta = cierre.Z "
////////////////////////////////////////////////////////////////////////
DEFINICIONES DE LAS ESTRUCTURAS DENTRO DEL OCX
Metodo:
RespuestaCerrarJornadaFiscal CerrarJornadaFiscal([in] TipoReporte Reporte);
Estrucutra:
typedef [uuid(EA15B88B-A2DE-452B-98A2-AD3DE4BD202F), version(1.0)]
struct tagRespuestaCerrarJornadaFiscal {
[helpstring("Reporte")
]
TipoReporte Reporte;
[helpstring("X")
]
CerrarJornadaFiscalX X;
[helpstring("Z")
]
CerrarJornadaFiscalZ Z;
} RespuestaCerrarJornadaFiscal;
typedef [uuid(DBD1FE45-97A6-441E-86B0-94396E279CE8), version(1.0)]
struct tagCerrarJornadaFiscalZ {
[helpstring("Numero")
]
long Numero;
[helpstring("Fecha")
]
DATE Fecha;
[helpstring("DF_Total")
]
double DF_Total;
[helpstring("DF_TotalGravado")
]
double DF_TotalGravado;
[helpstring("DF_TotalNoGravado")
]
double DF_TotalNoGravado;
[helpstring("DF_TotalExento")
]
double DF_TotalExento;
[helpstring("DF_TotalIVA")
]
double DF_TotalIVA;
[helpstring("DF_TotalTributos")
]
double DF_TotalTributos;
[helpstring("DF_CantidadEmitidos")
]
long DF_CantidadEmitidos;
[helpstring("DF_CantidadCancelados")
]
long DF_CantidadCancelados;
[helpstring("NC_Total")
]
double NC_Total;
[helpstring("NC_TotalGravado")
]
double NC_TotalGravado;
[helpstring("NC_TotalNoGravado")
]
double NC_TotalNoGravado;
[helpstring("NC_TotalExento")
]
double NC_TotalExento;
[helpstring("NC_TotalIVA")
]
double NC_TotalIVA;
[helpstring("NC_TotalTributos")
]
double NC_TotalTributos;
[helpstring("NC_CantidadEmitidos")
]
long NC_CantidadEmitidos;
[helpstring("NC_CantidadCancelados")
]
long NC_CantidadCancelados;
[helpstring("DNFH_Total")
]
double DNFH_Total;
[helpstring("DNFH_CantidadEmitidos")
]
long DNFH_CantidadEmitidos;
} CerrarJornadaFiscalZ;
