paulorsa

Testado e funcionando.

Fiz a inclusão dos seguintes registros. Bloco 0 - Registro 0002 Bloco C - Registro C101 Fiz uma alteração na ordem dos registro gerados no bloco E310 pois estava gerando de forma errada. A sequencia correta peguei da nota técnica. Nota Técnica 2023.001 v 1.2 (leiaute versão 018) Segue arquivos alterados. ACBrEFDBloco_0_Importar.pas ACBrEFDBloco_C_Importar.pas ACBrEFDBloco_E_Importar.pas

Sim, a não ser que desse para passar um valor padrão.

Neste tópico... Fiz uma solução alterando o evento QuandoPerguntarCampo, colocando um booleano para informar que deve voltar.

Para homologar o CliTef com a Qualità precisei fazer uma alteração nas seguintes units ACBrTEFAPI, ACBrTEFAPICliSiTef, ACBrTEFPayGoWebComum, ACBrTEFAPIPayGoWeb. Fiz uma alteração no Evento QuandoPerguntarCampo incluí um campo booleano para indicar que o fluxo pode voltar ao anterior. Seria a mesma funcionalidade que o QuandoPerguntarMenu pode ter de voltar ao menu anterior. Caso seja interessante deixo aqui minha alteração. ACBrTEFAPI.pas ACBrTEFAPICliSiTef.pas ACBrTEFAPIPayGoWeb.pas ACBrTEFPayGoWebComum.pas

Boa tarde. Consegui resolver usando o seguinte código.. if ACBrTEFAPI1.Modelo = tefApiCliSiTEF then begin ACBrTEFAPI1.EfetuarAdministrativa('131', IntToStr(Venda.NumOperacao)); ACBrTEFAPI1.FinalizarTransacao(tefstsErroEnergia); end;

@DaniPro Vi em outro tópico ( uma res) uma resposta sua. Usei a função ACBrTEFAPI1.EfetuarAdministrativa('130','') e me retorna os seguintes dados 000-000 = 18221 1319-000 = 1900 160-000 = 1 161-000 = 1 163-000 = 20240208 164-000 = 113419 210-000 = 2 211-000 = 3 899-103 = 0 Achei o que cada código quer dizer: 210 Quantidade total de pendências, listadas nos blocos de dados abaixo 160 Cupom Fiscal 161 Número Identificador do Cupom do Pagamento 163 Data Fiscal 164 Hora Fiscal 211 Código da “Funcao” original 1319 Valor da transação original Só não sei qual a função chamar para fazer o estorno.

Esse é o procedimento que ocorre, tem que tirar o cartão para finalizar. Mais é um teste de queda de energia, então se derruba a aplicação antes da retirada do cartão. O que ocorre é que não é gravado os arquivos ACBr*.tef, então o componente não faz o estorno da transação pendente na inicialização. Precisaria de uma forma de ler o que ainda esta pendente no relatório Sitef e também qual a função que faria para estornar automaticamente sem precisar passar o cartão, pois a transação não foi efetuada.

Estou parado em uma situação que ainda não sei como resolver. Preciso cancelar/estornar uma venda que ainda se encontra pendente no relatório Sitef. O passo a passo... Faz a venda, escolhe cartão crédito com o valor total da venda, insere o cartão no Pinpad, digita a senha, a transação é aprovada... E quando aparece a mensagem para retirar o cartão do Pinpad NÃO retira, Derruba o TEFAPIDemo. Executa o TEFAPIDemo novamente. O que deveria acontecer segundo o pessoal que faz a homologação é que a venda deveria ser cancelada ou confirmada, pois ainda se encontra pendente no relatório. O que acontece é que enquanto eu não retiro o cartão não é retornado nada fica apenas no TACBrTEFAPIClassCliSiTef.ContinuarRequisicaoSiTef Então o sistema não pode salvar nenhuma informação Vou postar o log para verificarem. Porem no relatório Sitef já consta como PENDENTE. Não achei uma maneira de ler/verificar essa PENDENCIA. Gostaria de saber com vocês que já tem TEF da Sitef API, como resolveram essa questão. Vocês podem ver na imagem do Demo como não é incluído nos pagamentos enquanto o cartão não for retirado. arqlog.txt

Dois cliente aqui do RS estão com o mesmo problema. Aparentemente somente em vendas para clientes sem inscrição estadual.

Este erro acontece no Delphi XE também, mas não acontece no Delphi DX 10.2, mas a alteração indicada pelo próprio erro funciona também no XE e no DX 10.2

É só alterar a unit ACBrDFeHttpIndy.pas trocar os $ENDIF para $IFEND, salvar e instalar.

Você não está totalizando a base do ICMS. no item na tag imposto você tem vBC = 1000.00 e na tag ICMSTot você tem vBC = 0.00

Valeu pelas dicas, já tenho informação suficiente se quiser pode fechar o tópico.

Obrigado pelas dicas Robert, quanto ao valor vou ponderar mais tarde o custo beneficio, só gostaria mesmo de saber a configuração que o pessoal mais usa, quanto a placa só acrescentei pois pretendo trabalhar com dois monitores. Mais uma vez obrigado pelas dicas serão de grande ajuda.

Preciso trocar minha maquina e antes de comprar gostaria da opinião do pessoal que é desenvolvedor, sobre alguns componentes do micro. - Quantidade de memória 8, 16 ou mais? - Armazenamento SSD ou HD ou os dois? - Processador? - Placa de Video? Lembrando que é uma maquina para desenvolvimento de sistemas, que tera instalada Delphi, Lazarus, Visual Studio, SQL Server, Firebird, Oracle, VM's de outros sistemas operacionais, etc. Agradeço desde já a opinião de todos.

Não funcionou pelo seguinte motivo. Na linha 303 do ACBrCTeConhecimentos.pas foi alterada AXMLModal := StringReplace(AXMLModal, ' xmlns="' + ACBRCTE_NAMESPACE + '"', '', [rfReplaceAll, rfIgnoreCase]); corretamente, mas na linha de baixo na 306 onde tem um case. case TACBrCTe(TConhecimentos(Collection).ACBrCTe).IdentificaSchemaModal(AXML) of é passado como parâmetro AXML nesse caso teria que fazer o StringReplace no AXML ou modificar também a ACBrCTe.pas na function TACBrCTe.IdentificaSchemaModal(const AXML: String): TSchemaCTe; fazendo o mesmo StringReplace, se quiser posso fazer só não sei qual seria a melhor opção.

ok, obrigado pela atenção.

Concordo que o XML não esta correto, mas como o sistema é feito para empresas de contabilidade ele apenas verifica se o XML está validado no SEFAZ, este foi apenas um caso de um xml que eu não consegui validar, mas que o SEFAZ aceito e consta na base deles exatamente como esta ai. É meu cliente que usa a transportadora e não adianta pedir para consertarem o sistema deles pois alegam que se fosse errado o SEFAZ não aceitaria. Fiz a alteração pois meu sistema valida e carrega a base de dados em cima dos XML's de CTe's. Quanto aos outros modais, não tive nenhum com esse problema, acredito (espero) que não tenha mais nenhum, pois isso só ocorre com transportadoras do tipo Rodoviário. (talvez todas usem o mesmo sistema). Tenho outros XML's com a mesma situação, se desejar posso anexar.

Recebi um xml de uma transportadora e para poder validá-lo tive que fazer uma alteração, o xml esta validado no SEFAZ. ACBrCTeConhecimentos.pas _CTe_004_017_836_0057_17_187853.XML

Segue alteração feita na unit ACBrEFDBloco_D_Importar.pas, para importar o registro D190 que estava faltando. ACBrEFDBloco_D_Importar.pas

Eu fiz uma conversão a uma semana atrás de um banco MySQL, apesar de o cliente ter a senha do banco eu não precisei, o que fiz foi, baixar o MySQL do site da MySQL e instalar o servidor na minha máquina, depois via acesso remoto copiei esses arquivos (todos os arquivos), para a pasta do repositório do banco MySQL no meu micro e acessei os dados com Workbench e a senha de instalação do MySQL.

Eu faço assim. Primeiro chamo NFe.NotasFiscais.Items[IndNfe].Validar; e verifico NFe.NotasFiscais.Items[IndNfe].Confirmada e NFe.NotasFiscais.Items[IndNfe].Cancelada vejo se tem alguma coisa em NFe.NotasFiscais.Items[IndNfe].Alertas e NFe.NotasFiscais.Items[IndNfe].ErroValidacaoCompleto Após eu executo o NFe.WebServices.Consulta.NFeChave := NFe.NotasFiscais.Items[IndNfe].NumID; NFe.WebServices.Consulta.Executar; Para verificar se o XML foi cancelado se teve carta de correção ou outro evento gerado. Pois muitos clientes mandam somente o XML da NFe e não mandam os XML's dos eventos.

Gero o arquivo de remessa em uma pasta o usuário entra no site do banco e importa o arquivo.

O usuário faz a nota e salva, salvo a nota toda incluindo o numero dela, só após ele conseguir salvar a nota ou seja, passou por todos os testes de inconsistência necessários, e salvou com sucesso no banco de dados. Ai eu envio o XML.