Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 01-02-2017
sa_pirata sa_pirata is offline
Miembro
 
Registrado: dic 2015
Posts: 14
Poder: 0
sa_pirata Va por buen camino
Question Conectar con WS de AFIP.

Hola a todos los foreros. creo que es la segunda vez que escribo y la verdad es que (como dicen en mi país) "no doy pie con bola". Este foro me ha ayudado incontables veces con dudas y problemas que tenía. Y ahora nuevamente recurro a ustedes para saber si pueden darme una mano.
Estoy desarrollando un sistema con parte de proveedores, compras, venta, etc. y en la parte de compra, quiero añadir la posibilidad de que se pueda verificar si el CAE de la factura entregada por el proveedor, está autorizado por AFIP. Tengo algo de código desarrollado, pero la verdad es que mi experiencia programando a este nivel es practicamente escaza o nula y estoy muy trabado.
En si, no se si la manera en que estoy enviando el token y sign de AFIP, es de esa manera o que mas me está faltando, al ejecutar mi codigo me devuelve desde el WS el error 1000 que es token y/o sign invalido.
Sin mas, les dejo el codigo a ver si pueden darme una mano.

Código Delphi [-]
unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters,
  cxContainer, cxEdit, ComCtrls, dxCore, cxDateUtils, InvokeRegistry, Rio,
  ShellAPI,SOAPHTTPClient, StdCtrls, cxTextEdit, cxMaskEdit, cxDropDownEdit,
  cxCalendar;

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    lblRst: TLabel;
    lblError: TLabel;
    Button1: TButton;
    cxDEEmision: TcxDateEdit;
    txtPVta: TEdit;
    txtNro: TEdit;
    txtCAE: TEdit;
    txtIDoc: TEdit;
    txtNDoc: TEdit;
    txtFDoc: TEdit;
    cmbTipoCbte: TComboBox;
    txtImporte: TEdit;
    HTTPRIO_CAE: THTTPRIO;
    resp: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    token, sign : string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}
uses
  LoginCms1, service1, service;

procedure TForm2.Button1Click(Sender: TObject);
var
token, sign, ruta, cuit : string;
auth : FEAuthRequest;
respuesta : FEConsultaCAEResponse;
ConsultaCAE : FEConsultaCAEReq;
x : integer;
port: ServiceSoap;

begin
ruta  := ExtractFilePath(Application.ExeName);
//token := ruta+'Certificado.crt';
//sign  := ruta+'ClaveCSR.csr';
cuit  := txtIDoc.Text+txtNDoc.Text+txtFDoc.Text;

resp.Lines.Add(ruta);
resp.Lines.Add(token);
resp.Lines.Add(sign);
resp.Lines.Add('2034038545');
resp.Lines.Add('-----------------------------------------');
resp.Lines.Add('-----------------------------------------');

auth := FEAuthRequest.Create;
auth.Cuit := 20340385455;
auth.Sign := sign;
auth.Token:= token;

ConsultaCAE := FEConsultaCAEReq.Create;
ConsultaCAE.cuit_emisor := strtoint64(cuit);
ConsultaCAE.tipo_cbte   := cmbTipoCbte.ItemIndex;
ConsultaCAE.punto_vta   := strtoint(txtPVta.Text);
ConsultaCAE.cbt_nro     := strtoint64(txtNro.Text);
ConsultaCAE.imp_total   := strtofloat(txtImporte.Text);
ConsultaCAE.cae         := txtCAE.Text;
ConsultaCAE.fecha_cbte  := formatdatetime('yyyymmdd', cxDEEmision.Date);

resp.Lines.Add(cuit);
resp.Lines.Add(inttostr(cmbTipoCbte.ItemIndex));
resp.Lines.Add(txtPVta.Text);
resp.Lines.Add(txtNro.Text);
resp.Lines.Add(txtImporte.Text);
resp.Lines.Add(txtCAE.Text);
resp.Lines.Add(formatdatetime('yyyymmdd', cxDEEmision.Date));

port := GetServiceSoap(false,'', HTTPRIO_CAE);
respuesta := port.FEConsultaCAERequest(auth, ConsultaCAE);
//codigo aca
//para la consulta seria algo como respuesta := consultacae(auth, datos)

if (length(inttostr(respuesta.Resultado)) > 0) then
    begin
      if respuesta.Resultado = 1 then
      begin
        resp.lines.Add('CAE Autorizado y Valido.');
      end
      else
      begin
        resp.Lines.Add('CAE NO valido.');
        resp.Lines.Add('Error Nro: '+inttostr(respuesta.RError.percode));
        resp.Lines.Add('--Error Msg: '+respuesta.RError.perrmsg);
      end;
    end
    else
    begin
      resp.Lines.Add('Error Nro: '+inttostr(respuesta.RError.percode));
      resp.Lines.Add('--Error Msg: '+respuesta.RError.perrmsg);
    end;



auth.Free;
ConsultaCAE.Free;
respuesta.Free;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
token := token.crt;

sign := certificado.key
end;

end.

Desde ya, muchas gracias a todos.
Saludos!
Responder Con Cita
  #2  
Antiguo 02-02-2017
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Poder: 15
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
Conozco muy por arriba el tema, pero pegale una leida a la especificacion del WS. Creo que el token y sign hay que enviarlo como base64 o cifrarlo. No tengo info a mano ahora para corroborarlo pero algo de eso habia
Responder Con Cita
  #3  
Antiguo 02-02-2017
sa_pirata sa_pirata is offline
Miembro
 
Registrado: dic 2015
Posts: 14
Poder: 0
sa_pirata Va por buen camino
Si, eso ya lo tengo, tenes que generar una clave (archivo .key) a partir del cual creas un certificado (archivo .csr) y con los cuales generas un certificado X.509 (archivo .crt) o algo asi (no me acuerdo el nombre). eso ya lo tengo todo. pero he visto algunos que generan un TA otros un TRA que no se que cuer... es... en otros vi que le ponian la firma digital a un par de archivos .xml que no se de donde salen y eso es lo que mandan, pero no se como ni con que metodo lo mandan... es alli mi problema.
Responder Con Cita
  #4  
Antiguo 02-02-2017
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Poder: 15
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
Esos dos archivos son los credenciales; son solo la parte del iceberg

Esta es la documentacion del WSAA (autorizacion y autenticacion): enlace

Esta es la del WSFEv1 (facturacion electronica): enlace

Yo lo he implementado usando una biblioteca externa que abstrae el webservice:

En estos foros hay informacion, por ejemplo este hilo

Aca tambien discutimos bastante sobre el tema y hay un ejemplo usando la biblioteca que te mencionaba
Responder Con Cita
  #5  
Antiguo 20-04-2017
sa_pirata sa_pirata is offline
Miembro
 
Registrado: dic 2015
Posts: 14
Poder: 0
sa_pirata Va por buen camino
un pequeño avance

Buenas a todos, trato de continuar el hilo, he logrado seguir puntualmente el documento de AFIP, pero me devuelve que el CMS no es valido.
Antes de continuar, quisiera me saquen la duda de como es la estructura del LoginTicketRequest.xml que debe enviarse, porque el que muestra la documentacion, en ningun lado figura sign o key para agregar.
Despues de eso bueno, lo que hago es generar el XML, firmarlo digitalmente con los certificados de homologación (porque es ahi donde estoy), lo encripto en base64 y lo envio mediante el componente HTTPRio invocandolo asi (RIOLogin as LoginCms).loginCms(sarchivo); por supuesto que sArchivo ya seria todo el mensaje firmado y encriptado que lo guardo en esa variable. Pero sigo recibiendo el mensaje de CMS No Valido mire en la documentación y este error no se debe a algo en especial, asi que puede ser un problema en la sintaxis del xml, en el firmado o el encriptado.
Tambien debo decir que he visto quienes tenian problemas y debian firmar con un PK12, lo cual tambien intente y sigo con el mismo resultado.

Si alguien puede arrojarme algo de luz, sera muy bendecido por los dioses del codigo y por mi
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Factura Electronica - Afip Argentina Joe_Balda Varios 30 30-01-2021 05:10:34
Factura Electrónica AFIP Argentina SergioFrey Noticias 2 19-05-2017 22:02:03
como generar TA de AFIP giulichajari OOP 0 26-04-2016 14:51:08
Dígito verificado comprobantes fiscales AFIP marilinspi Varios 5 27-03-2015 21:43:44
Ayuda Web Service AFIP Argentina patriciojgf Delphi para la web 1 04-11-2014 18:46:34


La franja horaria es GMT +2. Ahora son las 18:34:39.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi