WSCG ejemplo certificado deposito

El ejemplo requiere versión 99.80 superior del instalador.

Los datos son teóricos y como muestra de todas los campos posibles a cargar para este método.

Según del tipo de certificado a autorizar (primaria, preexistente, etc.) debe informarse el grupo de campos correspondientes.

Para el modo homologación o prueba es necesario enviar un mail a AFIP sri@afip.gov.ar pidiendo datos de prueba e indicando el C.U.I.T. a usar.

En el proyecto en visual basic, agregar una referencia al objeto WSAFIPFE y ejecutar el código desde un botón.

En este ejemplo se hace uso del método "cgCargarPropiedad" para simplificar la carga de datos y evitar la saturación de propiedades

Dim fe As New WSAFIPFE.Factura

Dim bResultado As Boolean

bResultado = True

If fe.iniciar(0, "CUIT", "*.pfx", "") Then

If fe.lpgObtenerTicketAcceso() Then

bResultado = fe.cgCargarPropiedad("LIMPIAR", "", 0)

bResultado = fe.cgCargarPropiedad("cabecera.campania", "1213", 0)

bResultado = fe.cgCargarPropiedad("cabecera.codGrano", "2", 0)

bResultado = fe.cgCargarPropiedad("cabecera.cuitCorredor", "20111111112", 0)

bResultado = fe.cgCargarPropiedad("cabecera.cuitCorredorNo", "v", 0)

bResultado = fe.cgCargarPropiedad("cabecera.cuitdepositante", "20111111112", 0)

bResultado = fe.cgCargarPropiedad("cabecera.cuitdepositanteNo", "f", 0)

bResultado = fe.cgCargarPropiedad("cabecera.datosAdicionales", "otros", 0)

bResultado = fe.cgCargarPropiedad("cabecera.nroIngBrutoDepositante", "2035709490", 0)

bResultado = fe.cgCargarPropiedad("cabecera.nroIngBrutoDepositanteNO", "f", 0)

bResultado = fe.cgCargarPropiedad("cabecera.nroIngBrutoDepositario", "2035709490", 0)

bResultado = fe.cgCargarPropiedad("cabecera.nroOrden", "1", 0)

bResultado = fe.cgCargarPropiedad("cabecera.ptoEmision", "1", 0)

bResultado = fe.cgCargarPropiedad("cabecera.tipoCertificado", "P", 0)

bResultado = fe.cgCargarPropiedad("cabecera.titularGrano", "T", 0)

bResultado = fe.cgCargarPropiedad("primaria.calidad.analisisMuestra", "1", 0)

bResultado = fe.cgCargarPropiedad("primaria.calidad.codGrado", "G1", 0)

bResultado = fe.cgCargarPropiedad("primaria.calidad.nroBoletin", "1", 0)

bResultado = fe.cgCargarPropiedad("primaria.calidad.valorContProteico", "0.25", 0)

bResultado = fe.cgCargarPropiedad("primaria.calidad.valorFactor", "0.25", 0)

bResultado = fe.cgCargarPropiedad("primaria.calidad.valorFactorNo", "f", 0)

bResultado = fe.cgCargarPropiedad("primaria.calidad.valorGrado", "0.25", 0)

bResultado = fe.cgCargarPropiedad("primaria.calidad.valorGradoNo", "t", 0)

bResultado = fe.cgCargarPropiedad("primaria.calidad.detalleMuestraAnalisis.itemCantidad", "1", 0)

bResultado = fe.cgCargarPropiedad("primaria.calidad.detalleMuestraAnalisis.descripcionRubro", "rubro", 0)

bResultado = fe.cgCargarPropiedad("primaria.calidad.detalleMuestraAnalisis.porcentaje", "1.25", 0)

bResultado = fe.cgCargarPropiedad("primaria.calidad.detalleMuestraAnalisis.tiporubro", "B", 0)

bResultado = fe.cgCargarPropiedad("primaria.calidad.detalleMuestraAnalisis.valor", "1.10", 0)

bResultado = fe.cgCargarPropiedad("primaria.descripcionTipoGrano", "prueba", 0)

bResultado = fe.cgCargarPropiedad("primaria.montoAcarreo", "1.10", 0)

bResultado = fe.cgCargarPropiedad("primaria.montoAlmacenaje", "1.10", 0)

bResultado = fe.cgCargarPropiedad("primaria.montoGastosGenerales", "1.10", 0)

bResultado = fe.cgCargarPropiedad("primaria.montoOtros", "1.10", 0)

bResultado = fe.cgCargarPropiedad("primaria.montoPorCadaPuntoExceso", "1.10", 0)

bResultado = fe.cgCargarPropiedad("primaria.montoSecado", "1.10", 0)

bResultado = fe.cgCargarPropiedad("primaria.montoZarandeo", "1.10", 0)

bResultado = fe.cgCargarPropiedad("primaria.nroActDepositario", "12", 0)

bResultado = fe.cgCargarPropiedad("primaria.pesoNetoMermaVolatil", "1.10", 0)

bResultado = fe.cgCargarPropiedad("primaria.porcentajeSecadoA", "0.25", 0)

bResultado = fe.cgCargarPropiedad("primaria.porcentajeSecadoDe", "0.25", 0)

bResultado = fe.cgCargarPropiedad("primaria.serviciosFormaDePago", "", 0)

bResultado = fe.cgCargarPropiedad("primaria.serviciosOtros", "0", 0)

bResultado = fe.cgCargarPropiedad("primaria.serviciosOtrosNO", "V", 0)

bResultado = fe.cgCargarPropiedad("primaria.serviciosConceptosNoGravados", "0", 0)

bResultado = fe.cgCargarPropiedad("primaria.serviciosConceptosNoGravadosNO", "V", 0)

bResultado = fe.cgCargarPropiedad("primaria.serviciosOtrasPercepciones", "0", 0)

bResultado = fe.cgCargarPropiedad("primaria.serviciosOtrasPercepcionesNO", "V", 0)

bResultado = fe.cgCargarPropiedad("primaria.serviciosPercepcionesIVA", "0", 0)

bResultado = fe.cgCargarPropiedad("primaria.serviciosPercepcionesIVA", "V", 0)

bResultado = fe.cgCargarPropiedad("primaria.ctg.itemCantidad", "2", 0)

bResultado = fe.cgCargarPropiedad("primaria.ctg.importeSecado", "1.25", 0)

bResultado = fe.cgCargarPropiedad("primaria.ctg.importeZarandeo", "1.25", 0)

bResultado = fe.cgCargarPropiedad("primaria.ctg.nroCartaDePorte", "1234567890123", 0)

bResultado = fe.cgCargarPropiedad("primaria.ctg.nroCTG", "123456789012", 0)

bResultado = fe.cgCargarPropiedad("primaria.ctg.pesoNetoConfirmadoDefinitivo", "100000.25", 0)

bResultado = fe.cgCargarPropiedad("primaria.ctg.pesoNetoMermaSecado", "1.25", 0)

bResultado = fe.cgCargarPropiedad("primaria.ctg.porcentajeSecadoHumedad", "1.25", 0)

bResultado = fe.cgCargarPropiedad("primaria.ctg.tarifaSecado", "0.25", 0)

bResultado = fe.cgCargarPropiedad("primaria.ctg.tarifaZarandeo", "1.25", 0)

bResultado = fe.cgCargarPropiedad("primaria.ctg.importeSecado", "1.25", 1)

bResultado = fe.cgCargarPropiedad("primaria.ctg.importeZarandeo", "1.25", 1)

bResultado = fe.cgCargarPropiedad("primaria.ctg.nroCartaDePorte", "1245556", 1)

bResultado = fe.cgCargarPropiedad("primaria.ctg.nroCTG", "97", 1)

bResultado = fe.cgCargarPropiedad("primaria.ctg.pesoNetoConfirmadoDefinitivo", "100000.25", 1)

bResultado = fe.cgCargarPropiedad("primaria.ctg.pesoNetoMermaSecado", "1.25", 1)

bResultado = fe.cgCargarPropiedad("primaria.ctg.porcentajeSecadoHumedad", "1.25", 1)

bResultado = fe.cgCargarPropiedad("primaria.ctg.tarifaSecado", "0.25", 1)

bResultado = fe.cgCargarPropiedad("primaria.ctg.tarifaZarandeo", "1.25", 1)

bResultado = fe.cgCargarPropiedad("RetiroTransferencia.certificadoDeposito.coeCertificadoDeposito", "97", 0)

bResultado = fe.cgCargarPropiedad("RetiroTransferencia.certificadoDeposito.pesoNeto", "1000", 0)

bResultado = fe.cgCargarPropiedad("RetiroTransferencia.cuitReceptor", "20235709490", 0)

bResultado = fe.cgCargarPropiedad("RetiroTransferencia.cuitReceptorNO", "f", 0)

bResultado = fe.cgCargarPropiedad("RetiroTransferencia.nroActDepositario", "29", 0)

bResultado = fe.cgCargarPropiedad("RetiroTransferencia.nroCartaPorteAUtilizar", "530304826", 0)

~~bResultado = fe.cgCargarPropiedad("RetiroTransferencia.nroCartaPorteAUtilizarNO", "f", 0)~~

bResultado = fe.cgCargarPropiedad("Preexistente.cacCertificadoDepositoPreexistente", "1654564456", 0)

bResultado = fe.cgCargarPropiedad("Preexistente.fechaEmisionCertificadoDepositoPreexistente", "20141202", 0)

bResultado = fe.cgCargarPropiedad("Preexistente.nroCertificadoDepositoPreexistente", "54545665", 0)

bResultado = fe.cgCargarPropiedad("Preexistente.nroPlanta", "3413", 0)

bResultado = fe.cgCargarPropiedad("Preexistente.pesoneto", "100050", 0)

bResultado = fe.cgCargarPropiedad("Preexistente.tipoCertificadoDepositoPreexistente", "1", 0)

fe.ArchivoXMLEnviado = "d:\cgenviado.xml"

fe.ArchivoXMLRecibido = "d:\cgrecibido.xml"

If fe.UltimoMensajeError = "" Then

bResultado = fe.cgAutorizar()

If bResultado Then

MsgBox("resultado método: verdadero")

Else

MsgBox("resultado método: falso")

End If

MsgBox("ultimo error " + fe.UltimoMensajeError)

MsgBox("error servicdor " + fe.lpgErrorCodigo1 + " " + fe.lpgErrorDescripcion1)

MsgBox("COE " + fe.lpgRespuestaCoe)

MsgBox("peso bruto " + fe.cgLeerPropiedadRespuesta("cgautorizar", "pesosResumen.pesoBrutoCertificado",0)

MsgBox("servicio total " + fe.cgLeerPropiedadRespuesta("cgautorizar", "serviciosResumen.servicioTotal",0)

Else

MsgBox("error en cargar de propiedad " + fe.UltimoMensajeError)

End If

Else

MsgBox("fallo acceso " + fe.UltimoMensajeError)

End If

Else

MsgBox("fallo inicio " + fe.UltimoMensajeError)

End If