Ir para conteúdo
  • Cadastre-se

paulorsa

Membros
  • Total de ítens

    95
  • Registro em

  • Última visita

  • Days Won

    1

paulorsa last won the day on 22 Janeiro 2022

paulorsa had the most liked content!

1 Seguidor

Últimos Visitantes

1.491 visualizações

paulorsa's Achievements

  1. Sim, a não ser que desse para passar um valor padrão.
  2. Neste tópico... Fiz uma solução alterando o evento QuandoPerguntarCampo, colocando um booleano para informar que deve voltar.
  3. 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
  4. 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;
  5. @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.
  6. 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.
  7. 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
  8. Dois cliente aqui do RS estão com o mesmo problema. Aparentemente somente em vendas para clientes sem inscrição estadual.
  9. 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
  10. É só alterar a unit ACBrDFeHttpIndy.pas trocar os $ENDIF para $IFEND, salvar e instalar.
  11. 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
  12. Valeu pelas dicas, já tenho informação suficiente se quiser pode fechar o tópico.
  13. 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.
  14. 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.
  15. 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.
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.