[GUFA] comando en ws wsfev1 para consultar datos guardados en afip sistemas agiles

Fri, 04 Nov 2016 06:12:44 -0700


El 15/9/2016 7:02, Cristian Conte <[email protected]> escribió:
aca esta la conexion del afip 
wsaa
ta
cuit 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")
        endif
endif


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')
 
 
_____ Excelencia Informatica Cristian O. Conte E-mail: [email protected] Telefonos Movil : 0341-155025469 - 0341-4592174 - Rosario - Santa Fe - Argentina

Responder a