André Melim

Resumindo... ao emitir a nfs-e, caso a nota ja exista la no provedor (ja tenha sido transmitida anteriormente) o componente AcbrNFSEX teria que retornar alguma informação (Numero de Protocolo, Numero da Nota, etc) através da qual eu possa utiliza-la para consultar essa nota de forma a preencher o componente com as informações dessa nota para que eu possa salvar ela no meu banco de dados.

No arquivo txt em anexo tem o trecho de código onde quando da erro na transmissão da nfs-e o sistema verifica no trecho da mensagem de erro e se for ref. a 'nota ja consta no provedor' então o sistema usa o comando 'ConsultarLoteRps' para consultar a nota la no provedor pelo 'NumeroLote' e 'Protocolo' que retornou no componente para que os dados da nota sejam carregados para o componente e com isso se consiga gravar os dados da nota na base de dados do sistema, foi o que pude entender desse código fonte. Basicamente seria essa a ideia, ou seja, se a nota de serviço que estou tentando enviar ja existe la no provedor eu preciso trazer as informações dessa nota de serviço pra gravar na base de dados para contornar a situação onde por exemplo caiu a energia entre o tempo de enviar a nota e gravar nas tabelas do sistema (coisa que o sistema ja faz normalmente). Note que como houve a queda de energia apos o envio eu nao tenho nenhuma informação pra enviar para o comando de consulta, teria que ser algo que o componente devolve no resultado da tentativa de transmissao. DocumentoFiscalServicosENVIAR.txt

Sim, mas no método 'AcbrNFSEX.ConsultarLoteRps' é exigido passar por parametro o 'Protocolo' e o 'Lote' e ai de onde eu vou pegar essa informação? Lembra que se trata de um caso onde não deu tempo de gravar a informação na base de dados pois caiu a energia do computador ou ocorreu um travamento do computador, por exemplo.

Olá pessoal, Temos no nosso sistema a emissão de notas fiscais de serviços NFS-e para alguns provedores e esta funcionando normalmente. O problema é que quando usávamos o componente antigo 'TACBrNFSe' a gente tinha um tratamento la na emissão da NFS-e que fazia com que caso a nota fiscal já estivesse constando no provedor, o sistema já puxasse os dados da nota automaticamente sem dar aqueles tipos de mensagens de erro dizendo que a nota ja foi transmitida (explicando... logicamente ao emitir a nota fiscal, o próximo passo é gravar a informação na base de dados do nosso sistema de forma que o sistema não tente transmitir 2 ou mais vezes a mesma nota, mas imagina que por algum motivo como uma queda de energia faça com que a nota seja emitida/transmitida porém antes de gravar as informações na base de dados tenha ocorrido a queda de energia). Aí vai gerar essa situação onde a nota consta no provedor mas não consta na nossa base de dados por isso existe esse tratamento para quando dá esse tipo de erro o sistema, após carregar os dados da nota fiscal no componente vá para uma procedure que com base nesses dados, grave a nota na nossa base de dados. No arquivo em anexo tem o exemplo. Porém agora que estamos utilizando o componente 'TACBrNFSeX' não estou conseguindo utilizar o mesmo raciocínio para implementar isso pois no componente novo não me retorna o 'NumeroLote' e nem o 'Protocolo'. Alguma idéia de como implementar isso no componente 'TACBrNFSeX'? No exemplo do arquivo em anexo (rotina antiga) estamos implementando isso para o provedor 'proAssessorPublico' porém no caso aqui o cliente pediu para fazer no provedor 'proRLZ' mas creio que a lógica deve ser a mesma. DocumentoFiscalServicosENVIAR.txt

Só te pedir um favor, @Juliomar Marchetti pra voce me avisar ai se a minha alteração foi aprovada a fim de que a gente possa ficar na expectativa de quando atualizar da proxima vez os componentes do ACBr aqui na empresa para que a alteração já possa vir no download dessa atualização, blz? Grato pela atenção.

Segue em anexo os fontes atualizados do ACBr onde após contato com o suporte da Elgin eu consegui implementar a questão do cancelamento do Pix. - ACBrTEFAPI.pas: Acrescentada a propriedade 'bCancelarColeta'. - ACBrTEFAPIElgin.pas: Alterado o procedimento 'TACBrTEFAPIClassElgin.Coletar' para verificar se a propriedade 'bCancelarColeta' estiver 'True' entao executar os comandos para cancelar a coleta. Fontes Atualizados.rar

Novidades com relacao ao cancelamento do PIx da Elgin (componente TACBrTEFAPI).... Entrei em contato com o suporte da Elgin e eles me informaram que eu necessariamente tenho que colocar um comando la dentro do evento 'Coletar' (no caso da Elgin, mais especificamente dentro do evento 'TACBrTEFAPIClassElgin.Coletar') do componente do ACBr. Eu testei aqui e aparentemente funcionou para cancelar a tela do Pix aberta esperando pagamento. O problema é que eu testei isso utilizando uma tecnica que eu nao acho que seja a mais adequada para resolver esse tipo de situacao. No botao 'Cancelar' por exemplo eu crio um arquivo txt no hd e la dentro do evento 'Coletar' eu testo se existe esse arquivo para eventualmente executar os comandos de cancelamento que vai fazer cancelar o pix atual. Eu gostaria de saber se voces conseguem me ajudar no sentido de que la dentro da nossa automacao comercial eu consiga colocar alguma propriedade por exemplo que eu seto ela e que isso seja visivel la dentro do componente para ele entender que o usuario clicou no botao de cancelar, para ficar mais correto, mais profissional. A logica da coisa é que toda as transacoes TEF e PIX sao gerenciadas a partir de uma variavel que eu crio do tipo 'TACBrTEFAPI'. Essa variavel se chama 'API' e dentro dela é que eu teria que setar alguma propriedade por exemplo pra quando passar la no 'Coletar', uma vez que eu seto essa variavel o procedimento consiga 'enxergar' que eu quero tomar uma acao de cancelamento. Alguma ideia?

Será que ninguém mais ta usando esse TEF Elgin pelo componente do ACBr, não esta passando pelos mesmos problemas que eu to passando e pode ajudar?

Onde la no componente 'TACBrTEFAPI' que eu posso mexer para alterar o timeout da operacao do Pix? Ja que eu nao consigo resolver esse problema do componente usando o TEF da Elgin onde pelo que percebi a nova versao de software do TEF da Elgin muda algumas coisas (gera umas tags diferentes) o que faz com que o componente do ACBr por exemplo nao funcione na reimpressao. A minha ideia é baixar la de 3 minutos de timeout para uns 30 segundos para o cliente nao ter que ficar esperando um tempao para conseguir mudar a forma de pagamento quando ta o QRCode do Pix na tela. Alguem pode me ajudar?

Olá. Realmente a função do componente é devolver o espelho para que a aplicação imprima. Mas o que esta acontecendo é que no evento 'QuandoFinalizarOperacao' logo no inicio a propriedade 'RespostaTEF.TextoEspecialOperador' já esta vindo como False o que faz com que o processamento nao entre no 'Else' onde esta o comando para impressão do comprovante TEF. E o que é curioso mesmo se eu desviar o processamento para entrar no 'Else' quando entra na impressão do comprovante 'TclasseTEF.ImprimirTodosComprovantes' la não imprime nada (nao encontra informação para se imprimir, a propriedade 'FTEFAPI.RespostasTEF.Count' esta zerada ). Ver imagens em anexo.

Ta, vamos la... Questão da reimpressão eu estava debugando la onde ta passando e ta disparando o evento 'QuandoFinalizarOperacao', como tem que ser. O problema que eu percebi a principio é que logo ao entrar no evento, a propriedade 'RespostaTEF.Sucesso' ja vem 'False', ou seja, nao passa no 'Else' onde vai imprimir o comprovante (parece que o componente devolveu algo como se não tivesse tido sucesso em encontrar o espelho do comprovante). Ai, na sequencia, para forçar o sistema executar os comandos que estão no 'Else' (para imprimir o comprovante) eu substitui a linha de teste 'if not RespostaTEF.Sucesso then' por 'if 1=0 then'. Então quando executou o 'FTEF.ImprimirTodosComprovantes' eu vi que la dentro do procedimento a propriedade 'FTEFAPI.RespostasTEF.Count' está 'Zero' (dessa forma não imprime nada). Ou seja, tem no sistema a parte da reimpressão implementada porém pelo que entendi o componente não devolve a imagem a ser impressa. OBS: No que se refere a propriedade 'RespostaTEF.TextoEspecialOperador' ela ta vindo como 'REIMPRESSAO'.

Sobre a reimpressão, é simples, não reimprime, não funciona. É isso.

Olá amigos, tudo bom? @Juliomar Marchetti, @Italo Giurizzato Junior alguma novidade sobre a correção desses bugs do TEF Elgin, no que se refere ao cancelamento (este pos) e no que se refere a reimpressão (outro post) ?

@Italo Giurizzato Junior, creio que mediante ao seu relato e ao relato da @rizzotec, acho que podemos encerrar esse tópico por aqui blz? Agradecido pela atenção de todos!

Boa tarde, no que se refere ao material para testes eu acabei de confirmar com o suporte da Elgin e eles me informaram que não ha problema algum em repassar o link do material de apoio ai pra voces testarem os componentes para correção de bugs. Vou anexar o print da conversa. Obrigado.