Con la libreria de Sistemas Agiles, Asi lo tengo yo. De: Cristian Conte <[email protected]>
Para: "[email protected]" <[email protected]> Enviado: Jueves, 15 de septiembre, 2016 7:02:12 Asunto: comando en ws wsfev1 para consultar datos guardados en afip aca esta la conexion del afip wsaatacuit del cliente tuyo variables de consulta cae2 = WSFE.CompConsultar(tipo_cbte, punto_vta, cbte_nro) if WSFE.Version >= "1.12a" Then ok = WSFE.AnalizarXml("XmlResponse") If ok Then ? "CAE:", WSFE.ObtenerTagXml("CodAutorizacion"), WSFE.CAE ? "CbteFch:", WSFE.ObtenerTagXml("CbteFch"), WSFe.FechaCbte ? "Moneda:", WSFE.ObtenerTagXml("MonId") ? "Cotizacion:", WSFE.ObtenerTagXml("MonCotiz") ? "DocTIpo:", WSFE.ObtenerTagXml("DocTipo") ? "DocNro:", WSFE.ObtenerTagXml("DocNro") endifendif MESSAGEBOX("Fecha Comprobante" + WSFE.fechacbte + " CAE " + wsfe.cae + " Vencimiento: " + WSFE.Vencimiento + CHR(13)+ "Base Imponible :"+ STR(wsfe.impneto,15,2)+ " IVA:"+ STR(wsfe.imptoliq,15,2)+ " Importe Total " + STR(WSFE.imptotal,15,2)+ CHR(13)+ "Cuit :" + WSFE.ObtenerTagXml("DocNro")+CHR(13)++ " EmisionTipo " + WSFE.EmisionTipo + " Observaciones: " + WSFE.Obs + " Errores: " + WSFE.ErrMsg + CHR(13),0,'Informacion obtenida de AFIP') Visitanos : http://tecnologiayservicios.wordpress.com/_____ Excelencia Informatica Cristian O. Conte E-mail: [email protected] Telefonos Movil : 0341-155025469 - 0341-4592174 - Rosario - Santa Fe - Argentina
