Alterações Diversas Nos Fontes

[Italo Giurizzato Junior]

Bom dia a todos,

 

Estou provendo diversas alterações nos fontes do componente ACBrNFSe, em uma delas consegui reduzir o numero de linhas pela metade.

 

Vou disponibilizar essas alterações somente segunda-feira, 14/10/2013.

 

Peço a todos que façam uma cópia de segurança dos fontes do respectivo componente antes de atualizar os fontes na segunda-feira.

 

Pois posso ter cometido algum erro nessas alterações e o provedor que antes estava funcionando passa a parar de funcionar.

[Marcio Lopes ACBr]

Parabéns Ítalo pela preocupação em melhorar ainda mais esse projeto fantástico.

[Italo Giurizzato Junior]

Boa tarde a todos,

 

Fiz uma alteração no DANFSE versão Quick Report, inclui uma nova propriedade chamada ImprimeCanhoto cujo valor padrão é False.

 

Aqueles que desejarem a impressão do canhoto no rodapé do DANFSE deve alterar esse valor para True.

 

O quadro destinado a Discriminação dos Serviços passa a ter o seu tamanho variável, ou seja quando a propriedade ImprimeCanhoto for False o quadro é maior, reduzindo de tamanho quando ImprimeCanhoto for True.

 

Para que essa nova propriedade apareça no Object Inspector do componente ACBrNFSeDANFSeQR devemos abrir o pacote de instalação do mesmo e clicar no compilar.

 

Essa alteração vai ser liberada juntamente com as demais na segunda-feira dia 14.

 

Antes que eu esqueça, obrigado Márcio Lopes.

 

Mas primeiro vamos comemorar o dia das crianças com os nossos filhos, sem esquecer que dia 12 é dia de Nossa Senhora Aparecida.

[Italo Giurizzato Junior]

Bom dia a todos,

 

Já encontra-se disponivel no SVN as alterações promovidas por mim nos fontes do componente ACBrNFSe.

 

Como dito anteriormente posso ter alterado algo que não deveria, ou na tentativa de padronizar algo, o que funcionava, passou a não funcionar mais.

 

Favor realizar uma cópia dos fontes e depois atualizar.

 

Fico no aguro dos retornos, tanto para informar de problemas, quanto para dizer que com o provedor XYZ esta funcionando 100%.

[Michel Ouriques]

Bom dia Italo,

Fiz a atualização e testei o Provedor Betha (ambiente de testes) e as funcionalidades que eu utilizo (Enviar, ConsultarNFSeporRps, ConsultarLoteRps, CancelaNFSe) estão funcionando perfeitamente.

 

Parabéns pela refatoração de código.

 

Até mais.

[lazarinr]

Boa noite Italo,

 

Após a atualização começou a dar a mensagem em anexo no provedor ISSNet.

 

 

Achei que fosse os Schemas, atualizei mais o problema continuou.

 

Saudações!

 

[Italo Giurizzato Junior]

Boa noite Ronaldo,

 

Favor atualizar os fontes e testar novamente.

[lazarinr]

Bom dia Italo

 

Fiz a atualização e compilei com Build Project e o problema continuou.

[Italo Giurizzato Junior]

Boa tarde Ronaldo,

 

Você esta utilizando os schemas corretos?

[Jair Viana]

Ítalo.

Atualizei o fontes ontem e passou a acusar o erro  Stack Overflow quando mando imprimir o DANFSe logo após enviar o Lote.

O erro ocorre aqui: fqrDANFSeQRRetrato := TfqrDANFSeQRRetrato.Create(Self); na unit ACBrNFSeDANFSeQRClass.

Estou usando o QR 5.

 

Minha Rotina é a seguinte:

ACBrNFSe1.Enviar(nLote, False);

ACBrNFSe1.ConsultarLoteRps(IntToStr(nLote), nProtocolo);

ACBrNFSe1.NotasFiscais.Items[0].Imprimir;

 

Desde já obrigado.

[Italo Giurizzato Junior]

Boa tarde Jair,

 

Usando o comando:

 

   ACBrNFSe1.NotasFiscais.Imprimir;
 

em vez de:

 

   ACBrNFSe1.NotasFiscais.Items[0].Imprimir;
 

Ocorre o mesmo problema?

[Jair Viana]

Ítalo.

 

Sim, acontece o mesmo erro, inclusive no imprimir PDF.

 

Não sei se ajuda... Quando depois de finalizado o processo de envio de vários lotes,  eu carrego uma das XML enviadas e mando imprimir não acontece o erro.

Ele só acontece quando mando imprimir ou imprimir PDF logo após o envio.

[Italo Giurizzato Junior]

Boa tarde Jair,

 

E desta forma:

 

ACBrNFSe1.Enviar(nLote,True);

[lazarinr]

Boa tarde Italo

 

Testei com os dois Schemas, o do ACBrNFSe da pasta exemplo e outro que baixei do site ISSNet. Em ambos deu o mesmo problema.

[Jair Viana]

Ítalo. Boa noite.

 

ACBrNFSe1.Enviar(nLote,True);  Não está imprimindo.

[Italo Giurizzato Junior]

Bom dia Jair,

 

Tente desta forma:

 

ACBrNFSe1.Enviar(nLote, False);

ACBrNFSe1.NotasFiscais.Imprimir;

[Italo Giurizzato Junior]

Bom dia Ronaldo,

 

Favor atualizar os fontes e testar novamente.

[Jair Viana]

Boa tarde Ítalo.

 

É exatamente desta forma que utilizo.

Primeiro envio o Lote sem imprimir, depois mando imprimir.

 

Vou fazer uns testes substituindo arquivo por arquivo pela versão anterior, ai poderei te informar em qual unit esta o problema. 

[Italo Giurizzato Junior]

Boa tarde Jair,

 

Eu não tenho nenhuma aplicação utilizando o componente ACBrNFSe, apenas ajudo no desenvolvimento do mesmo.

 

Portanto fico dependendo dos demais colegas apontarem os eventuais erros.

 

Sendo assim, fico no aguardo do seu retorno.

[lazarinr]

Boa noite Italo

 

Atualizei os fontes e recompilei o sistema, parou de dar aquele erro, Agora deu outro erro "Arquivo enviado fora da estrutura do arquivo XML de entrada." mais como eu também fiz algumas mudanças no programa que gera a NFS-e no meu sistema, vou verificar melhor se o problema não está no meu sistema.

 

Obrigado pela ajuda.

[Massao Aihara]

Boa tarde Italo,

 

testei uma consulta de NFS-e por RPS, esta dando "invalid pointer operation" na hora de destruir o componente,

testei pelo exemplo do acbr, e deu o mesmo erro, na hora de fechar o programa.

 

Provedor ISSCuritiba.

 

 

Att.

[Italo Giurizzato Junior]

Boa tarde Akai,

 

Como não tenho certificado válido para realizar esses tipos de testes, por favor, tente identificar onde ocorre o problema, pois na rotina que realiza a consulta não encontrei nada de anormal.

[Massao Aihara]

Italo,

 

tive que alterar duas rotinas para o ISSCuritiba,

 

pq na hora de ler o xml do ConsultarNfsePorRps, ele não trazia nada.

por que as tag de curitiba tem partes em inglês.

 

Fonte: pnfsConsNfseporRpsResposta.pas

na função LerXML

   if (leitor.rExtrai(1, 'ConsultarNfseRpsResposta') <> '') or
       (leitor.rExtrai(1, 'Consultarnfserpsresposta') <> '') then

alterei para:

    if (leitor.rExtrai(1, 'ConsultarNfseRpsResposta') <> '') or
       (leitor.rExtrai(1, 'Consultarnfserpsresposta') <> '') or
       (leitor.rExtrai(1, 'ConsultarNfsePorRpsResult') <> '') then

e no fonte do provedor: ACBrProvedorISSCuritiba.pas

na função GetRetornoWS

alterei para manter as chaves.

 

segue em anexo.

ISSCuritiba.rar

 

 

 

[Massao Aihara]

Mas quando fecho a janela ou tento limpar as notas do componente, depois de ConsultarNfsePorRps

ocorre o Invalid Pointer Value,

 

pelo exemplo da nfs-e ocorre o mesmo erro se eu consultar nfs-e por rps.

 

Att.

[Massao Aihara]

Italo,

 

comecei no o debug no Destroy do ACBrNFSe

destructor TACBrNFSe.Destroy;
begin
 FConfiguracoes.Free;
 FNotasFiscais.Free;
 FWebServices.Free; <- da erro

 {$IFDEF ACBrNFSeOpenSSL}
   NotaUtil.ShutDownXmlSec;
 {$ENDIF}

 inherited destroy;
end;

debugando até a onde deu,

ele da pau na hora que tenta matar a classe TIdentificacaoRps do fonte pnfsNFSe,

no TNFSe.Destroy; .

 

 

 

 

 

Editado 24 Outubro, 2013 por Akai