TAfipQuery.ObtenerConstancia can now raise an EConstanciaNotFound exception

Author: ortuagustin

AFIP/Afip.PublicAPI.Types.pas

@@ -79,6 +79,16 @@   EPersonNotFound = class(EAfipException)
   public
     constructor Create(const ARawJson: string); override;
   end;
+
+  /// <summary>
+  ///   Esta excepcion se va a elevar cuando no se encuentra una constancia de
+  ///   CUIT. Desciende de Exception porque no hay informacion JSON para
+  ///   mostrar
+  /// </summary>
+  EConstanciaNotFound = class(Exception)
+  public
+    constructor Create; reintroduce;
+  end;
 {$ENDREGION}
 
 {$REGION 'TDomicilioFiscal'}
@@ -567,7 +577,13 @@ procedure TDomicilioFiscal.SetRawJson(const Value: string);
 
 function TDomicilioFiscal.ToString: string;
 begin
-  Result := Direccion + ', ' + Localidad + ', ' + CodPostal;
+  Result := Direccion;
+
+  if Localidad <> EmptyStr then
+    Result := Result + ', ' + Localidad;
+
+  if CodPostal <> EmptyStr then
+    Result := Result + ', ' + CodPostal;
 end;
 
 {$ENDREGION}
@@ -647,4 +663,11 @@ constructor EPersonNotFound.Create(const ARawJson: string);
 end;
 {$ENDREGION}
 
+{ EConstanciaNotFound }
+
+constructor EConstanciaNotFound.Create;
+begin
+  inherited Create('No se encontraron resultados');
+end;
+
 end.

AFIP/Afip.PublicAPI.pas

@@ -123,6 +123,8 @@ function TAfipQuery.ObtenerConstancia(const Cuit: string): TStream;
 begin
   Result := TMemoryStream.Create;
   AResponse := FHttpClient.Get(FServicesUrl[stConstancia] + Cuit, Result);
+  if Result.Size = 0 then
+    raise EConstanciaNotFound.Create;
 end;
 {$ENDREGION}