Troca De Provedor No Componente - Cidade Tatui - De Ginfes Pra 4R

[osmarbentojr]

Boa noite Adilson, então...cara, pensa numa dor de cabeça com isso...

To o dia todo tentando mostrar isso, e eles insistem que eu tenho que gerar o XML pra eles, é mole....

Gerei 3 notas, mandei os XMLs para eles, mandei os XMLs gerados de erros, e agora eles querem os XMLs completos....tem que rir para não chorar...

 

Você acha que seria possível tentar contato com o pessoal da ABRASF mesmo, o que acha ? 

 

Abraço...

[adilsonpazzini]

Pra mim eles pediram tambem , so enviar o rps pra eles . Seguinte . se vc entrar no site deles . vc tambem tem uma forma de enviar o rps la e inclusive ja ve o retorno por la mesmo . Aqui pra mim . ja ta tudo certo , vc conseguiu enviar pelo demo mesmo ou pela sua aplicação ? ...Ele ja te liberaram tambem no homologacao ?

[osmarbentojr]

Boa noite adilson...fiquei meio  "fora" porque em Adamantina, a partir de hoje, apenas nota eletrônica, e tinha um cliente que tinha 106 notas para enviar...

Depois de fica o dia todo, consegui fazer...seguinte...tenho uma questão...o método sincrono, em suma, ele espera que o webservice devolva o XML, correto...eu coloquei o envio dentro de um try except, mas depois de 13 notas enviadas (sequencialmente uma após a outra), o delphi gera uma exceção dizendo que tem muitos try except...minha dúvida é, esse processo sincrono, ele é feito como, utilizando try except no webservice ???

 

Se sim, como posso verifica "mais simples' se deu certo o envio ??

Abraço, e me coloco a disposição com quem estiver "apanhando" no preenchimento do mesmo...

[adilsonpazzini]

Eu na verdade , faço o envio uma por vez . tipo na hoa que meu cliente gera a fatura do serviço . ele ja faz o envio na mesma hora , fazendo o envio um a um , nao faço por lote , ref a try except , nunca tive um problema assim. , o que da pra fazer se vc quizer postar como vc ta fazendo . pra v se da pra te ajudar ...

 

E ref a modo sincrono , entendo que se vc envia , ele tem que te responder ...

 

Adilson Pazzini

Editado 2 Julho, 2013 por adilsonpazzini

[osmarbentojr]

Minha rotina é simples...

Faço toda a montagem, passando os dados pro componente.

Dai faço assim:

while not notas.Eof do

begin

try

   nfe.EnviarAssicono(lote);

except

   begin

     //mensagem de erro 

   end;

end;

//daqui pra baixo gerencio os dados da nota que eu gravo no banco de dados..

notas.next;

end;

 

Desse modo funciona normal, eu mando nota a nota, mas rodo um while com todas as notas que eu preciso enviar..

Quando to lá pela nota 13,  dia que da excesso de excessões...por isso to achando que tem algum try except na rotina de envio sincrono...

[adilsonpazzini]

Velho  , tenta fazer o seguinte , tenta criar o ACBRNFse dinamicamente , na hora de enviar e carregar o xml , ai apos o envio da um free nele ...

testa assim so pra ver ... pois qndo utilizava GINFES , tinha muito problema de envio em sequencia , da impressao que tem algum memoryleak , de

algum processo que nao é derrubado ai da o erro acess memory . tenta assim pra ver se da... hj utilizo assim. tanto pra nfse como pra nfe ..

funciona lega l.

 

 compNFSe  :TACBrNFSe;
begin

 

while notas.eof do

 begin
 compNFSe    := TACBrNFSe.Create(nil);
 try

 // faz a transmissao por RPS no .um a um

 

 finally
  FreeAndNil(compNFSe);
 end;

notas.next;

end;

[osmarbentojr]

Blz...vou alterar meu código para isso...obrigado...

[adilsonpazzini]

Esqueci de te pergunta , qndo vc ta enviando vc ta anexando varios RPS e enviando uma unica vez . no caso um unico lote , ou ta fazendo um loop pra enviar um a um

[osmarbentojr]

Estou fazendo um loop para enviar um a um...dai coloco o envio num try...se deu certo eu gravo os dados da nota no meu banco de dados e gero o pdf da danfe (fiz uma rotina próprio com o quick) e dai avanço para a próxima nota...mas dai vou fazer a criação do componente dinamicamente como você falou....qualquer coisa posta ai...