Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Colaboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 29-05-2017
Avatar de keys
keys keys is offline
Miembro
 
Registrado: sep 2003
Ubicación: Bilbao
Posts: 1.229
Poder: 24
keys Va por buen camino
Cita:
Empezado por razorxxx Ver Mensaje
Lo que dije antes, me devuelve 0, que correspondería al país Afganistán. ¿Pero qué ocurriría en los casos en los que de verdad la factura sea para alguien de Afganistán?

Lo curioso es que aún devolviendo 0, no me genera la etiqueta CodigoPais en el XML de respuesta.

¿Alguna otra idea?
Si viene 0 en el pais y el idotro esta relleno, dependera del CID, ya que si es 02 tiene que ser o español o intracomunitario. Es decir con el CID <> 2 el pais es el que devuelve Afganistan, en caso de CID = 02 y PAis = 0 el pais esta en blanco.
Responder Con Cita
  #2  
Antiguo 29-05-2017
razorxxx razorxxx is offline
Miembro
 
Registrado: jul 2015
Posts: 198
Poder: 11
razorxxx Va por buen camino
Cita:
Empezado por keys Ver Mensaje
Si viene 0 en el pais y el idotro esta relleno, dependera del CID, ya que si es 02 tiene que ser o español o intracomunitario. Es decir con el CID <> 2 el pais es el que devuelve Afganistan, en caso de CID = 02 y PAis = 0 el pais esta en blanco.
Entendido y funcionando.

Gracias!

No obstante, veo en la unit generada por el WSDL Importer que existe el valor booleano "CodigoPais_Specified". ¿No debería ser ésta la variable a chequear en caso de que el CodigoPais esté vacío?
Responder Con Cita
  #3  
Antiguo 29-05-2017
Avatar de seccion_31
seccion_31 seccion_31 is offline
Miembro
 
Registrado: ene 2017
Posts: 472
Poder: 10
seccion_31 Va por buen camino
tranquilos que no hay que esperar al dia 8 o al 12, ahora mismo falla:

"Error en el soporte del canal seguro"

Intentas acceder via web y tampoco.

Saludos !
Responder Con Cita
  #4  
Antiguo 29-05-2017
Avatar de seccion_31
seccion_31 seccion_31 is offline
Miembro
 
Registrado: ene 2017
Posts: 472
Poder: 10
seccion_31 Va por buen camino
ahora ya va de nuevo. (la web)

desde aplicación sigue fallando.

edito:

en web error 403 (antes 999)
y en aplicación falla igual.

Última edición por seccion_31 fecha: 29-05-2017 a las 15:29:45.
Responder Con Cita
  #5  
Antiguo 29-05-2017
afxe afxe is offline
Miembro
 
Registrado: jul 2004
Ubicación: Malaga-España
Posts: 295
Poder: 22
afxe Va por buen camino
Sobre error de las 13 facturas

Saludos a todos.
Como otros, he tenido el problema del fallo de falta de certificado cuando se envía más de 12 facturas... he releído varias veces este hilo (uffff) y la verdad es que está empezando a ser poco aclaratorio remitirse aquí para encontrar soluciones... Pero he encontrado algo que os puede ser de ayuda. El método que se posteó al principio, y del cual casi todos hemos empezado a tirar, proponía:
Código Delphi [-]
procedure TFrmMain.HTTPRIO_EMIHTTPWebNode1BeforePost(
  const HTTPReqResp: THTTPReqResp; Data: Pointer);
var
  Store : IStore;
  Certs : ICertificates;
  Cert : ICertificate2;
  CertContext : ICertContext;
  PCertContext : PCCERT_CONTEXT;
  V : OleVariant;
  Certificado : String;
const
  INTERNET_OPTION_CLIENT_CERT_CONTEXT = 84;
begin
  V := BUSCAR_CERTIFICADO(cbCertificados.text); // subject del certificado instalado: Nombre de la empresa, no el HASH
  Store := CoStore.Create;
  Store.Open(CAPICOM_CURRENT_USER_STORE, 'MY', CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED );
  Certs := Store.Certificates.Find(CAPICOM_CERTIFICATE_FIND_SUBJECT_NAME, V, False ); // Buscar certificado por nombre
  if Certs.Count > 0 then begin
    Cert := IInterface(Certs.Item[1]) as ICertificate2;
    CertContext := Cert as ICertContext;
    CertContext.Get_CertContext(Integer(PCertContext));
    if InternetSetOption(Data, INTERNET_OPTION_CLIENT_CERT_CONTEXT, PCertContext, Sizeof(CERT_CONTEXT)) = False then
    begin
      ShowMessage( 'Certificado SSL. Algo ha fallado.' );
    end;
  end;
end;

la función BUSCA_CERTIFICADO pasando como parámetro el nombre del certificado te devolvía el GetCertSerialNumber de dicho certificado, el cual hay que usar en otro sitio, pero no aquí, ya que hay que hacer el Store.Certificates.Find pasando el "nombre del certificado" no su SerialNumber, por lo cual debería ser
Código Delphi [-]
V := cbCertificados.Text;
Así se traga todas las facturas que le eches. Esto lo he sacado también de algún ejemplo que han posteado en este hilo, por lo cual quien haya tirado de ese ejemplo estaría trabajando sin problemas, y los estamos tirando desde el inicio, y no habíamos vuelto a repasar esa parte, a la de 13 facturas.... Curiosamente, si enviabas las facturas en bloques de 10, o una a una, todo funcionaba sin problemas, a pesar de que realmente, no estábamos cargando en la Api el certificado. ¿?¿?¿?

No sé si cuando dejemos de estar en pruebas cascará el programa si no cargamos el certificado correctamente.
__________________
Amar al mundo apasionadamente.
Responder Con Cita
  #6  
Antiguo 29-05-2017
Galahad Galahad is offline
Miembro
 
Registrado: abr 2007
Posts: 266
Poder: 20
Galahad Va por buen camino
cuotadeducible

una pregunta rápida.

Me acabo de dar cuenta que en el campo 'cuotadeducible' de facturas recibidas, hasta ahora siempre estaba poniendo la base imponible (aquí en este hilo hay varios ejemplos en los que se hace así también). ¿ Es esto correcto ?, Creo que no , entiendo que el campo cuotadeducible deberia de tener el importe de los impuestos (ivas) que el cliente se puede deducir de la factura del proveedor.

Lo que no entiendo es como he mandado más de 5000 facturas de prueba con eso y no me ha dado ningún error. ¿ o es que estoy equivocado y realmente se manda la base impoinible ? .

En caso de que se mande el importe de iva, supongo que si tiene recargo tambien.

Saludos...
Responder Con Cita
  #7  
Antiguo 29-05-2017
CMB CMB is offline
Miembro
 
Registrado: ene 2017
Posts: 349
Poder: 10
CMB Va por buen camino
Cita:
Empezado por Galahad Ver Mensaje
una pregunta rápida.
Me acabo de dar cuenta que en el campo 'cuotadeducible' de facturas recibidas, hasta ahora siempre estaba poniendo la base imponible (aquí en este hilo hay varios ejemplos en los que se hace así también). ¿ Es esto correcto ?, Creo que no , entiendo que el campo cuotadeducible deberia de tener el importe de los impuestos (ivas) que el cliente se puede deducir de la factura del proveedor.
Lo que no entiendo es como he mandado más de 5000 facturas de prueba con eso y no me ha dado ningún error. ¿ o es que estoy equivocado y realmente se manda la base impoinible ? .
En caso de que se mande el importe de iva, supongo que si tiene recargo tambien.
Saludos...
No tiene por qué dar error. En la gran mayoría de los casos, la cuota deducible es igual que la base imponible. Pero puede haber casos en que no. Si en una gran superficie te hacen una factura que incluye un pen drive y 1 kg de manzanas, por ejemplo, te podrás deducir el pen drive pero no la fruta.

Esta innovación supongo que será para el contraste, pues el total factura tiene que coincidir con lo que declare tu proveedor, independientemente de que te lo puedas deducir todo o sólo una parte.
Responder Con Cita
  #8  
Antiguo 29-05-2017
Galahad Galahad is offline
Miembro
 
Registrado: abr 2007
Posts: 266
Poder: 20
Galahad Va por buen camino
Cita:
Empezado por CMB Ver Mensaje
No tiene por qué dar error. En la gran mayoría de los casos, la cuota deducible es igual que la base imponible. Pero puede haber casos en que no. Si en una gran superficie te hacen una factura que incluye un pen drive y 1 kg de manzanas, por ejemplo, te podrás deducir el pen drive pero no la fruta.

Esta innovación supongo que será para el contraste, pues el total factura tiene que coincidir con lo que declare tu proveedor, independientemente de que te lo puedas deducir todo o sólo una parte.
Entiendo entonces que el concepto de 'cuota deducible' esta asociado entonces a la base imponible, no a las cuotas de iva. La confusión ha venido por esta 'excepción' para el tema de las facturas de 'Régimen Agrícola':

Cita:
.8. ¿Cómo se registran los recibos de las compensaciones agrícolas, forestales o pesqueras a que se refiere el art 16.1 del Reglamento de facturación?
El expedidor del recibo lo registrará en el Libro registro de Facturas Recibidas con tipo de factura "F6" y la clave de régimen especial o trascendencia “02”. Consignará como base imponible la base sobre la que se calcula la compensación y como Importe total de la factura el total de la contraprestación. Los campos “tipo impositivo” y “cuota soportada” se dejarán en blanco y se completarán los campos “porcentaje de compensación” e “importe compensación”; como cuota deducible se consignará el importe de la compensación.
Como podeis ver, aqui como cuota deduble se indica el importe de la compensación (que es el importe de iva que se autocalcula)
Responder Con Cita
  #9  
Antiguo 30-05-2017
Avatar de keys
keys keys is offline
Miembro
 
Registrado: sep 2003
Ubicación: Bilbao
Posts: 1.229
Poder: 24
keys Va por buen camino
Cita:
Empezado por CMB Ver Mensaje
No tiene por qué dar error. En la gran mayoría de los casos, la cuota deducible es igual que la base imponible. Pero puede haber casos en que no. Si en una gran superficie te hacen una factura que incluye un pen drive y 1 kg de manzanas, por ejemplo, te podrás deducir el pen drive pero no la fruta.

Esta innovación supongo que será para el contraste, pues el total factura tiene que coincidir con lo que declare tu proveedor, independientemente de que te lo puedas deducir todo o sólo una parte.
Hola a todos, en mi modesta opinión creo que estáis equivocados, la cuota deducible NO ES LA BASE IMPONIBLE. Sino la cuota de IVA de la factura en caso de que sea deducible. Por ejemplo en una factura de 121 euros con un 21% de IVA será

Base := 100;
Cuota := 25;
Total Factura := 125.

El importe de la cuota deducible dependerá de muchas cosas, como la naturaleza de la operación o el tipo de empresa. Por ejemplo hay tipos de empresas que están exentas de IVA y la cuota deducible es siempre 0. Las bases imponibles ya están en el detalle de las facturas y las cuotas también pero no la parte deducible o no de la factura.

La cuota deducible es la cantidad que luego te vas a dedudicir en hacienda en el 303 y es creo el dato que más le puede importar a hacienda, ya que es función de ella y de la soportada te van a calcular el dinero que tienes que pagar o te tienen que devolver.

Un Saludo.
Responder Con Cita
  #10  
Antiguo 29-05-2017
Avatar de seccion_31
seccion_31 seccion_31 is offline
Miembro
 
Registrado: ene 2017
Posts: 472
Poder: 10
seccion_31 Va por buen camino
al final lo de enviar mas de 12 facturas se soluciono:

Código:
procedure TfEmitidas.emitidasHTTPWebNode1BeforePost(
  const HTTPReqResp: THTTPReqResp; Data: Pointer);
var
     Store : IStore;
     Certs : ICertificates;
     Cert : ICertificate2;
     CertContext : ICertContext;
     PCertContext : PCCERT_CONTEXT;
     V : OleVariant;
 const
     INTERNET_OPTION_CLIENT_CERT_CONTEXT = 84;
 begin

     V:=comboBox1.Text;

     Store := CoStore.Create;
     Store.Open(CAPICOM_CURRENT_USER_STORE, 'MY',CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED );
     Certs:=Store.Certificates.Find(CAPICOM_CERTIFICATE_FIND_SUBJECT_NAME,V,False ); { Buscar certificado por nombre }
     if Certs.Count > 0 then
     begin
         Cert:=IInterface(Certs.Item[1]) as ICertificate2;
         CertContext:=Cert as ICertContext;
         CertContext.Get_CertContext(Integer(PCertContext));
         if InternetSetOption(Data,INTERNET_OPTION_CLIENT_CERT_CONTEXT,PCertContext,Sizeof(CERT_CONTEXT)) = False then
         begin
             ShowMessage( 'Internet SSL certificate. Something went wrong' );
         end;
     end;
 end;
(en comboBox1 tengo el nombre del certificado)
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
TICKET BAI (TicketBAI); Nuevo sistema de la Agencia Tributaria del Pais Vasco keys Internet 4524 Hace 1 Día 16:17:40
AEAT envio de datos vía Webservice problemas con WSDL CelsoO Internet 11 09-10-2019 20:03:41
webService Soap de la Administración Digital Española notific@ apicito Internet 3 31-01-2017 11:25:28
Error en Webservice funcion envio de sms webmasterplc Delphi para la web 5 25-07-2013 20:10:29
Problemas con envío de XML a un WebService davidvamo Internet 1 13-02-2007 15:49:20


La franja horaria es GMT +2. Ahora son las 08:41:58.


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