[CrazySoft]

Buen día, yo tambien estoy con problemas con el sevicio que ofrecen, porque no aparecen algunas funciones al importra el servicio, por ejemplo la solicitud del CUIS deberia haber una funcion "SolicitudCuis" segun el manual https://siatinfo.impuestos.gob.bo/in...solicitud-cuis






Código Delphi [-]// ************************************************************************ // // The types declared in this file were generated from data read from the // WSDL File described below: // WSDL : https://pilotosiatservicios.impuesto...utarizada?wsdl // >Import : https://pilotosiatservicios.impuesto...cturacion.wsdl // >Import : https://pilotosiatservicios.impuestos.gob.bo/v2/ServicioFacturacionComputarizada?wsdl=ServicioFacturacion.wsdl>0 // Encoding : UTF-8 // Codegen : [wfServer+, wfOutputLiteralTypes+, wfMapStringsToWideStrings+, wfMapArraysToClasses+, wfGenTrueGUIDs+, wfAllowOutParameters+, wfUseSettersAndGetters+, wfUseXSTypeForSimpleNillable+, wfCreateArrayElemTypeAlias+, wfMergeDuplicateTypes+] // Version : 1.0 // (18/12/2021 07:00:08 a. m. - - $Rev: 103843 $) // ************************************************************************ // unit ServicioFacturacionComputarizada; interface //uses Soap.InvokeRegistry, Soap.SOAPHTTPClient, System.Types, Soap.XSBuiltIns; uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns; const IS_OPTN = $0001; IS_UNBD = $0002; IS_NLBL = $0004; IS_UNQL = $0008; type // ************************************************************************ // // The following types, referred to in the WSDL document are not being represented // in this file. They are either aliases[@] of other types represented or were referred // to but never[!] declared in the document. The types from the latter category // typically map to predefined/known XML or Embarcadero types; however, they could also // indicate incorrect WSDL documents that failed to declare or import a schema type. // ************************************************************************ // // !:long - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:int - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:string - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:boolean - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:base64Binary - "http://www.w3.org/2001/XMLSchema"[Gbl] model = class; { "https://siat.impuestos.gob.bo/"[GblCplx] } modelDto = class; { "https://siat.impuestos.gob.bo/"[GblCplx] } respuestaComunicacion = class; { "https://siat.impuestos.gob.bo/"[GblCplx] } mensajeServicio = class; { "https://siat.impuestos.gob.bo/"[GblCplx] } mensajeRecepcion = class; { "https://siat.impuestos.gob.bo/"[GblCplx] } solicitudRecepcion = class; { "https://siat.impuestos.gob.bo/"[GblCplx] } solicitudVerificacionEstado = class; { "https://siat.impuestos.gob.bo/"[GblCplx] } solicitudAnulacion = class; { "https://siat.impuestos.gob.bo/"[GblCplx] } solicitudValidacionRecepcion = class; { "https://siat.impuestos.gob.bo/"[GblCplx] } solicitudRecepcionFactura = class; { "https://siat.impuestos.gob.bo/"[GblCplx] } solicitudRecepcionPaquete = class; { "https://siat.impuestos.gob.bo/"[GblCplx] } solicitudRecepcionMasiva = class; { "https://siat.impuestos.gob.bo/"[GblCplx] } respuestaRecepcion = class; { "https://siat.impuestos.gob.bo/"[GblCplx] } Array_Of_mensajeRecepcion = array of mensajeRecepcion; { "https://siat.impuestos.gob.bo/"[GblUbnd] } Array_Of_mensajeServicio = array of mensajeServicio; { "https://siat.impuestos.gob.bo/"[GblUbnd] } // ************************************************************************ // // XML : model, global, // Namespace : https://siat.impuestos.gob.bo/ // ************************************************************************ // model = class(TRemotable) private published end; // ************************************************************************ // // XML : modelDto, global, // Namespace : https://siat.impuestos.gob.bo/ // ************************************************************************ // modelDto = class(model) private published end; // ************************************************************************ // // XML : respuestaComunicacion, global, // Namespace : https://siat.impuestos.gob.bo/ // ************************************************************************ // respuestaComunicacion = class(modelDto) private FmensajesList: Array_Of_mensajeServicio; FmensajesList_Specified: boolean; Ftransaccion: Boolean; Ftransaccion_Specified: boolean; function GetmensajesList(Index: Integer): Array_Of_mensajeServicio; procedure SetmensajesList(Index: Integer; const AArray_Of_mensajeServicio: Array_Of_mensajeServicio); function mensajesList_Specified(Index: Integer): boolean; function Gettransaccion(Index: Integer): Boolean; procedure Settransaccion(Index: Integer; const ABoolean: Boolean); function transaccion_Specified(Index: Integer): boolean; published property mensajesList: Array_Of_mensajeServicio Index (IS_OPTN or IS_UNBD or IS_NLBL or IS_UNQL) read GetmensajesList write SetmensajesList stored mensajesList_Specified; property transaccion: Boolean Index (IS_OPTN or IS_UNQL) read Gettransaccion write Settransaccion stored transaccion_Specified; end; // ************************************************************************ // // XML : mensajeServicio, global, // Namespace : https://siat.impuestos.gob.bo/ // ************************************************************************ // mensajeServicio = class(modelDto) private Fcodigo: Integer; Fcodigo_Specified: boolean; Fdescripcion: WideString; Fdescripcion_Specified: boolean; function Getcodigo(Index: Integer): Integer; procedure Setcodigo(Index: Integer; const AInteger: Integer); function codigo_Specified(Index: Integer): boolean; function Getdescripcion(Index: Integer): WideString; procedure Setdescripcion(Index: Integer; const AWideString: WideString); function descripcion_Specified(Index: Integer): boolean; published property codigo: Integer Index (IS_OPTN or IS_UNQL) read Getcodigo write Setcodigo stored codigo_Specified; property descripcion: WideString Index (IS_OPTN or IS_UNQL) read Getdescripcion write Setdescripcion stored descripcion_Specified; end; // ************************************************************************ // // XML : mensajeRecepcion, global, // Namespace : https://siat.impuestos.gob.bo/ // ************************************************************************ // mensajeRecepcion = class(mensajeServicio) private Fadvertencia: Boolean; Fadvertencia_Specified: boolean; FnumeroArchivo: Integer; FnumeroArchivo_Specified: boolean; FnumeroDetalle: Integer; FnumeroDetalle_Specified: boolean; function Getadvertencia(Index: Integer): Boolean; procedure Setadvertencia(Index: Integer; const ABoolean: Boolean); function advertencia_Specified(Index: Integer): boolean; function GetnumeroArchivo(Index: Integer): Integer; procedure SetnumeroArchivo(Index: Integer; const AInteger: Integer); function numeroArchivo_Specified(Index: Integer): boolean; function GetnumeroDetalle(Index: Integer): Integer; procedure SetnumeroDetalle(Index: Integer; const AInteger: Integer); function numeroDetalle_Specified(Index: Integer): boolean; published property advertencia: Boolean Index (IS_OPTN or IS_UNQL) read Getadvertencia write Setadvertencia stored advertencia_Specified; property numeroArchivo: Integer Index (IS_OPTN or IS_UNQL) read GetnumeroArchivo write SetnumeroArchivo stored numeroArchivo_Specified; property numeroDetalle: Integer Index (IS_OPTN or IS_UNQL) read GetnumeroDetalle write SetnumeroDetalle stored numeroDetalle_Specified; end; // ************************************************************************ // // XML : solicitudRecepcion, global, // Namespace : https://siat.impuestos.gob.bo/ // ************************************************************************ // solicitudRecepcion = class(modelDto) private FcodigoAmbiente: Integer; FcodigoDocumentoSector: Integer; FcodigoEmision: Integer; FcodigoModalidad: Integer; FcodigoPuntoVenta: Integer; FcodigoPuntoVenta_Specified: boolean; FcodigoSistema: WideString; FcodigoSucursal: Integer; Fcufd: WideString; Fcuis: WideString; Fnit: Int64; FtipoFacturaDocumento: Integer; function GetcodigoAmbiente(Index: Integer): Integer; procedure SetcodigoAmbiente(Index: Integer; const AInteger: Integer); function GetcodigoDocumentoSector(Index: Integer): Integer; procedure SetcodigoDocumentoSector(Index: Integer; const AInteger: Integer); function GetcodigoEmision(Index: Integer): Integer; procedure SetcodigoEmision(Index: Integer; const AInteger: Integer); function GetcodigoModalidad(Index: Integer): Integer; procedure SetcodigoModalidad(Index: Integer; const AInteger: Integer); function GetcodigoPuntoVenta(Index: Integer): Integer; procedure SetcodigoPuntoVenta(Index: Integer; const AInteger: Integer); function codigoPuntoVenta_Specified(Index: Integer): boolean; function GetcodigoSistema(Index: Integer): WideString; procedure SetcodigoSistema(Index: Integer; const AWideString: WideString); function GetcodigoSucursal(Index: Integer): Integer; procedure SetcodigoSucursal(Index: Integer; const AInteger: Integer); function Getcufd(Index: Integer): WideString; procedure Setcufd(Index: Integer; const AWideString: WideString); function Getcuis(Index: Integer): WideString; procedure Setcuis(Index: Integer; const AWideString: WideString); function Getnit(Index: Integer): Int64; procedure Setnit(Index: Integer; const AInt64: Int64); function GettipoFacturaDocumento(Index: Integer): Integer; procedure SettipoFacturaDocumento(Index: Integer; const AInteger: Integer); published property codigoAmbiente: Integer Index (IS_UNQL) read GetcodigoAmbiente write SetcodigoAmbiente; property codigoDocumentoSector: Integer Index (IS_UNQL) read GetcodigoDocumentoSector write SetcodigoDocumentoSector; property codigoEmision: Integer Index (IS_UNQL) read GetcodigoEmision write SetcodigoEmision; property codigoModalidad: Integer Index (IS_UNQL) read GetcodigoModalidad write SetcodigoModalidad; property codigoPuntoVenta: Integer Index (IS_OPTN or IS_UNQL) read GetcodigoPuntoVenta write SetcodigoPuntoVenta stored codigoPuntoVenta_Specified; property codigoSistema: WideString Index (IS_UNQL) read GetcodigoSistema write SetcodigoSistema; property codigoSucursal: Integer Index (IS_UNQL) read GetcodigoSucursal write SetcodigoSucursal; property cufd: WideString Index (IS_UNQL) read Getcufd write Setcufd; property cuis: WideString Index (IS_UNQL) read Getcuis write Setcuis; property nit: Int64 Index (IS_UNQL) read Getnit write Setnit; property tipoFacturaDocumento: Integer Index (IS_UNQL) read GettipoFacturaDocumento write SettipoFacturaDocumento; end; // ************************************************************************ // // XML : solicitudVerificacionEstado, global, // Namespace : https://siat.impuestos.gob.bo/ // ************************************************************************ // solicitudVerificacionEstado = class(solicitudRecepcion) private Fcuf: WideString; function Getcuf(Index: Integer): WideString; procedure Setcuf(Index: Integer; const AWideString: WideString); published property cuf: WideString Index (IS_UNQL) read Getcuf write Setcuf; end; // ************************************************************************ // // XML : solicitudAnulacion, global, // Namespace : https://siat.impuestos.gob.bo/ // ************************************************************************ // solicitudAnulacion = class(solicitudRecepcion) private FcodigoMotivo: Integer; Fcuf: WideString; function GetcodigoMotivo(Index: Integer): Integer; procedure SetcodigoMotivo(Index: Integer; const AInteger: Integer); function Getcuf(Index: Integer): WideString; procedure Setcuf(Index: Integer; const AWideString: WideString); published property codigoMotivo: Integer Index (IS_UNQL) read GetcodigoMotivo write SetcodigoMotivo; property cuf: WideString Index (IS_UNQL) read Getcuf write Setcuf; end; // ************************************************************************ // // XML : solicitudValidacionRecepcion, global, // Namespace : https://siat.impuestos.gob.bo/ // ************************************************************************ // solicitudValidacionRecepcion = class(solicitudRecepcion) private FcodigoRecepcion: WideString; function GetcodigoRecepcion(Index: Integer): WideString; procedure SetcodigoRecepcion(Index: Integer; const AWideString: WideString); published property codigoRecepcion: WideString Index (IS_UNQL) read GetcodigoRecepcion write SetcodigoRecepcion; end; // ************************************************************************ // // XML : solicitudRecepcionFactura, global, // Namespace : https://siat.impuestos.gob.bo/ // ************************************************************************ // solicitudRecepcionFactura = class(solicitudRecepcion) private Farchivo: TByteSOAPArray; FfechaEnvio: WideString; FhashArchivo: WideString; function Getarchivo(Index: Integer): TByteSOAPArray; procedure Setarchivo(Index: Integer; const ATByteSOAPArray: TByteSOAPArray); function GetfechaEnvio(Index: Integer): WideString; procedure SetfechaEnvio(Index: Integer; const AWideString: WideString); function GethashArchivo(Index: Integer): WideString; procedure SethashArchivo(Index: Integer; const AWideString: WideString); published property archivo: TByteSOAPArray Index (IS_UNQL) read Getarchivo write Setarchivo; property fechaEnvio: WideString Index (IS_UNQL) read GetfechaEnvio write SetfechaEnvio; property hashArchivo: WideString Index (IS_UNQL) read GethashArchivo write SethashArchivo; end; // ************************************************************************ // // XML : solicitudRecepcionPaquete, global, // Namespace : https://siat.impuestos.gob.bo/ // ************************************************************************ // solicitudRecepcionPaquete = class(solicitudRecepcionFactura) private Fcafc: WideString; Fcafc_Specified: boolean; FcantidadFacturas: Integer; FcodigoEvento: Int64; function Getcafc(Index: Integer): WideString; procedure Setcafc(Index: Integer; const AWideString: WideString); function cafc_Specified(Index: Integer): boolean; function GetcantidadFacturas(Index: Integer): Integer; procedure SetcantidadFacturas(Index: Integer; const AInteger: Integer); function GetcodigoEvento(Index: Integer): Int64; procedure SetcodigoEvento(Index: Integer; const AInt64: Int64); published property cafc: WideString Index (IS_OPTN or IS_UNQL) read Getcafc write Setcafc stored cafc_Specified; property cantidadFacturas: Integer Index (IS_UNQL) read GetcantidadFacturas write SetcantidadFacturas; property codigoEvento: Int64 Index (IS_UNQL) read GetcodigoEvento write SetcodigoEvento; end; // ************************************************************************ // // XML : solicitudRecepcionMasiva, global, // Namespace : https://siat.impuestos.gob.bo/ // ************************************************************************ // solicitudRecepcionMasiva = class(solicitudRecepcionFactura) private FcantidadFacturas: Integer; function GetcantidadFacturas(Index: Integer): Integer; procedure SetcantidadFacturas(Index: Integer; const AInteger: Integer); published property cantidadFacturas: Integer Index (IS_UNQL) read GetcantidadFacturas write SetcantidadFacturas; end; // ************************************************************************ // // XML : respuestaRecepcion, global, // Namespace : https://siat.impuestos.gob.bo/ // ************************************************************************ // respuestaRecepcion = class(modelDto) private FcodigoDescripcion: WideString; FcodigoDescripcion_Specified: boolean; FcodigoEstado: Integer; FcodigoEstado_Specified: boolean; FcodigoRecepcion: WideString; FcodigoRecepcion_Specified: boolean; FmensajesList: Array_Of_mensajeRecepcion; FmensajesList_Specified: boolean; Ftransaccion: Boolean; Ftransaccion_Specified: boolean; function GetcodigoDescripcion(Index: Integer): WideString; procedure SetcodigoDescripcion(Index: Integer; const AWideString: WideString); function codigoDescripcion_Specified(Index: Integer): boolean; function GetcodigoEstado(Index: Integer): Integer; procedure SetcodigoEstado(Index: Integer; const AInteger: Integer); function codigoEstado_Specified(Index: Integer): boolean; function GetcodigoRecepcion(Index: Integer): WideString; procedure SetcodigoRecepcion(Index: Integer; const AWideString: WideString); function codigoRecepcion_Specified(Index: Integer): boolean; function GetmensajesList(Index: Integer): Array_Of_mensajeRecepcion; procedure SetmensajesList(Index: Integer; const AArray_Of_mensajeRecepcion: Array_Of_mensajeRecepcion); function mensajesList_Specified(Index: Integer): boolean; function Gettransaccion(Index: Integer): Boolean; procedure Settransaccion(Index: Integer; const ABoolean: Boolean); function transaccion_Specified(Index: Integer): boolean; published property codigoDescripcion: WideString Index (IS_OPTN or IS_UNQL) read GetcodigoDescripcion write SetcodigoDescripcion stored codigoDescripcion_Specified; property codigoEstado: Integer Index (IS_OPTN or IS_UNQL) read GetcodigoEstado write SetcodigoEstado stored codigoEstado_Specified; property codigoRecepcion: WideString Index (IS_OPTN or IS_UNQL) read GetcodigoRecepcion write SetcodigoRecepcion stored codigoRecepcion_Specified; property mensajesList: Array_Of_mensajeRecepcion Index (IS_OPTN or IS_UNBD or IS_NLBL or IS_UNQL) read GetmensajesList write SetmensajesList stored mensajesList_Specified; property transaccion: Boolean Index (IS_OPTN or IS_UNQL) read Gettransaccion write Settransaccion stored transaccion_Specified; end; // ************************************************************************ // // Namespace : https://siat.impuestos.gob.bo/ // transport : http://schemas.xmlsoap.org/soap/http // style : document // use : literal // binding : ServicioFacturacionSoapBinding // service : ServicioFacturacion // port : ServicioFacturacionPort // URL : https://pilotosiatservicios.impuesto...nComputarizada // ************************************************************************ // ServicioFacturacion = interface(IInvokable) ['{BDB92EDF-C1F2-45B6-A3C2-F9173455259B}'] function recepcionPaqueteFactura(const SolicitudServicioRecepcionPaquete: solicitudRecepcionPaquete): respuestaRecepcion; stdcall; function verificarComunicacion: respuestaComunicacion; stdcall; function recepcionFactura(const SolicitudServicioRecepcionFactura: solicitudRecepcionFactura): respuestaRecepcion; stdcall; function validacionRecepcionMasivaFactura(const SolicitudServicioValidacionRecepcionMasiva: solicitudValidacionRecepcion): respuestaRecepcion; stdcall; function recepcionMasivaFactura(const SolicitudServicioRecepcionMasiva: solicitudRecepcionMasiva): respuestaRecepcion; stdcall; function verificacionEstadoFactura(const SolicitudServicioVerificacionEstadoFactura: solicitudVerificacionEstado): respuestaRecepcion; stdcall; function validacionRecepcionPaqueteFactura(const SolicitudServicioValidacionRecepcionPaquete: solicitudValidacionRecepcion): respuestaRecepcion; stdcall; function anulacionFactura(const SolicitudServicioAnulacionFactura: solicitudAnulacion): respuestaRecepcion; stdcall; end; implementation type ServicioFacturacionImpl = class(TInvokableClass, ServicioFacturacion) public { ServicioFacturacion } function recepcionPaqueteFactura(const SolicitudServicioRecepcionPaquete: solicitudRecepcionPaquete): respuestaRecepcion; stdcall; function verificarComunicacion: respuestaComunicacion; stdcall; function recepcionFactura(const SolicitudServicioRecepcionFactura: solicitudRecepcionFactura): respuestaRecepcion; stdcall; function validacionRecepcionMasivaFactura(const SolicitudServicioValidacionRecepcionMasiva: solicitudValidacionRecepcion): respuestaRecepcion; stdcall; function recepcionMasivaFactura(const SolicitudServicioRecepcionMasiva: solicitudRecepcionMasiva): respuestaRecepcion; stdcall; function verificacionEstadoFactura(const SolicitudServicioVerificacionEstadoFactura: solicitudVerificacionEstado): respuestaRecepcion; stdcall; function validacionRecepcionPaqueteFactura(const SolicitudServicioValidacionRecepcionPaquete: solicitudValidacionRecepcion): respuestaRecepcion; stdcall; function anulacionFactura(const SolicitudServicioAnulacionFactura: solicitudAnulacion): respuestaRecepcion; stdcall; end; function ServicioFacturacionImpl.recepcionPaqueteFactura(const SolicitudServicioRecepcionPaquete: solicitudRecepcionPaquete): respuestaRecepcion; begin { TODO - Implement method recepcionPaqueteFactura } end; function ServicioFacturacionImpl.verificarComunicacion: respuestaComunicacion; begin { TODO - Implement method verificarComunicacion } end; function ServicioFacturacionImpl.recepcionFactura(const SolicitudServicioRecepcionFactura: solicitudRecepcionFactura): respuestaRecepcion; begin { TODO - Implement method recepcionFactura } end; function ServicioFacturacionImpl.validacionRecepcionMasivaFactura(const SolicitudServicioValidacionRecepcionMasiva: solicitudValidacionRecepcion): respuestaRecepcion; begin { TODO - Implement method validacionRecepcionMasivaFactura } end; function ServicioFacturacionImpl.recepcionMasivaFactura(const SolicitudServicioRecepcionMasiva: solicitudRecepcionMasiva): respuestaRecepcion; begin { TODO - Implement method recepcionMasivaFactura } end; function ServicioFacturacionImpl.verificacionEstadoFactura(const SolicitudServicioVerificacionEstadoFactura: solicitudVerificacionEstado): respuestaRecepcion; begin { TODO - Implement method verificacionEstadoFactura } end; function ServicioFacturacionImpl.validacionRecepcionPaqueteFactura(const SolicitudServicioValidacionRecepcionPaquete: solicitudValidacionRecepcion): respuestaRecepcion; begin { TODO - Implement method validacionRecepcionPaqueteFactura } end; function ServicioFacturacionImpl.anulacionFactura(const SolicitudServicioAnulacionFactura: solicitudAnulacion): respuestaRecepcion; begin { TODO - Implement method anulacionFactura } end; function respuestaComunicacion.GetmensajesList(Index: Integer): Array_Of_mensajeServicio; begin Result := FmensajesList; end; procedure respuestaComunicacion.SetmensajesList(Index: Integer; const AArray_Of_mensajeServicio: Array_Of_mensajeServicio); begin FmensajesList := AArray_Of_mensajeServicio; FmensajesList_Specified := True; end; function respuestaComunicacion.mensajesList_Specified(Index: Integer): boolean; begin Result := FmensajesList_Specified; end; function respuestaComunicacion.Gettransaccion(Index: Integer): Boolean; begin Result := Ftransaccion; end; procedure respuestaComunicacion.Settransaccion(Index: Integer; const ABoolean: Boolean); begin Ftransaccion := ABoolean; Ftransaccion_Specified := True; end; function respuestaComunicacion.transaccion_Specified(Index: Integer): boolean; begin Result := Ftransaccion_Specified; end; function mensajeServicio.Getcodigo(Index: Integer): Integer; begin Result := Fcodigo; end; procedure mensajeServicio.Setcodigo(Index: Integer; const AInteger: Integer); begin Fcodigo := AInteger; Fcodigo_Specified := True; end; function mensajeServicio.codigo_Specified(Index: Integer): boolean; begin Result := Fcodigo_Specified; end; RemClassRegistry.RegisterXSClass(respuestaRecepcion, 'https://siat.impuestos.gob.bo/', 'respuestaRecepcion'); end.