Jump to content

ALA

Membros
  • Content Count

    2,005
  • Joined

  • Last visited

Community Reputation

119 Excellent

5 Followers

About ALA

  • Rank
    Membro Avançado

Profile Information

  • Sexo
    Masculino
  • Localização
    Pedro Leopoldo/MG

Recent Profile Visitors

2,793 profile views
  1. Estou com um problema parecido. A contabilidade esta reclamando que os xmls cancelados não contem o evento de cancelamento. Dessa forma eles não conseguem saber se o xml foi cancelado ou não...
  2. Bom dia senhores, a propriedade ACBrNFeDANFCeFortesA4.ImprimeQRCodeLateral,não esta funcionando corretamente no componente ACBrNFeDANFCeFortesA
  3. Pessoal, bom tarde. Eu faço isso na NFc-e, mas um pouco diferente, se o produto for o mesmo eu somo as quantidades antes de gerar o xml. Ai quando mando gerar o xml a impressão fica igual. Exemplo: Produto 01 Quantidade: 01 Produto 01 Quantidade 10 Quando gero o xml, produto 01, quantidade 11 Quando imprimo a NFC-e baseado no xml autorizado pela SEFAZ Produto: 01 quantidade 11
  4. Senhores, bom dia. Estou enfrentando um problema na coleta dos doados direto no pinpad. Como já foi dito em outro tópico o TEF deve estar inicializado. Até ai tudo bem. Mas quando tento acionar a função g.ACBrTEFD.TEFCliSiTef.ObtemDadoPinPadDiretoEx(2, ' ', ' ' ) antes de realizar uma venda, ocorre erro -100 na função e não aciona o pinpad.. if Trim( dmst_TEF_DLL ) = dmco_Sim then begin g.ACBrTEFD.DesInicializar( TACBrTEFDTipo( gpCliSiTef ) ); // Configura TEF // g.ACBRTEFD.SuportaSaque := False; g.ACBRTEFD.SuportaDesconto := False; g.ACBRTEFD.SuportaReajusteValor := False; g.ACBRTefD.NumVias := dmin_NViasTef; g.ACBRTefD.EsperaSTS := dmin_ContadorTEF; g.ACBRTefD.TEFCliSiTef.EnderecoIP := dmst_TEF_Endereco_IP; g.ACBRTefD.TEFCliSiTef.CodigoLoja := dmst_TEF_IDLoja; g.ACBRTefD.TEFCliSiTef.NumeroTerminal := g.FormataIDTerminal( dmst_TEF_IdTerminal ); if dmst_TEF_MultiplosCartoes = dmco_Sim then begin g.ACBRTefD.MultiplosCartoes := True end else begin g.ACBRTefD.MultiplosCartoes := False; end; if dmst_TEF_AutoAtivarGP = dmco_Sim then begin g.ACBRTefD.AutoAtivarGP := True end else begin g.ACBRTefD.AutoAtivarGP := False; end; g.ACBRTefD.AutoEfetuarPagamento := False; // sempre falso // g.ACBRTefD.AutoFinalizarCupom := False; // sempre falso // // ** // lcst_estadoSimuladoEcf:= tpsVenda; // CANCELA PENDENTE // ala 21/08/2017 se ocorrer prolema retornar com essa linha lcst_estadoSimuladoEcf := tpsLivre; if not( g.ACBrTEFD.Inicializado(TACBrTEFDTipo( gpCliSiTef ))) then begin g.ACBrTEFD.Inicializar( TACBrTEFDTipo( gpCliSiTef ) ); end; // ** // // *** 1 CPF, 2 CNPJ *** // try if not(InputQuery( 'PDV NFC-e', 'Informe: 1-CPF, 2-CNPJ', lcst_Opcao )) then begin ShowMessage( 'Opção inválida.' ); Abort; end; if StrtoInt( lcst_Opcao ) = 1 then // CPF // begin lbl_Mensagem1.Caption := 'AGUARDANDO DIGITAÇÃO DO CPF NO PINPAD...'; lbl_Mensagem1.Refresh; lcst_Retorno := g.ACBrTEFD.TEFCliSiTef.ObtemDadoPinPadDiretoEx(1, ' ', ' ' ); end else if StrtoInt( lcst_Opcao ) = 2 then // CNPJ // begin lbl_Mensagem1.Caption := 'AGUARDANDO DIGITAÇÃO DO CNPJ NO PINPAD...'; lbl_Mensagem1.Refresh; lcst_Retorno := g.ACBrTEFD.TEFCliSiTef.ObtemDadoPinPadDiretoEx(2, ' ', ' ' ); end else begin Abort; end; except begin ShowMessage( 'Opção inválida.' ); Abort; end; end; if Trim( lcst_Retorno ) <> EmptyStr then begin if not UTIL.Validar_CNPJ_CPF( lcst_Retorno ) then begin lbl_Mensagem1.Caption := EmptyStr; ShowMessage( 'CPF/CNPJ inválido' ); end else begin lbl_Mensagem1.Caption := 'CPF/CNPJ: ' + lcst_Retorno; ShowMessage( 'CPF/CNPJ: ' + lcst_Retorno ); DMXML.DS_VENDA.DataSet.Edit; DMXML.DS_VENDA.DataSet.FieldByName( 'VEN_CNPJ_CIC' ).AsString := lcst_Retorno; DMXML.DS_VENDA.DataSet.Post; DMXML.DS_VENDA.DataSet.Edit; end; end else begin lbl_Mensagem1.Caption := EmptyStr; ShowMessage( 'CPF/CNPJ Não informado' ); end; lcst_estadoSimuladoEcf := tpsLivre; end else begin ShowMessage( 'Opção disponível apenas para SkyTef'); end;
  5. Boa tarde pessoal. Estou com o mesmo problema. Não existe inutilização de nfe para produtor rual ?
  6. Pessoal, boa tarde. Realizei alguns ajustes no relatorio. Se puderem analisar.. agradeço. Apenas removi os '......' Fortes.rar
  7. Obrigado pela resposta vou utilizar ACBrTEFD.Resp.TransacaoAprovada p ver se resolvo o meu problema .. Obrigado...
  8. EMBarbosa, obrigado pela resposta. O problema é, quando utilizou alguns cartões conforme mencionei o campo ACBrTEFD.Resp.CodigoAutorizacaoTransacao esta vazio, apos incluir o código que o OSMCVL postou, o campo passou a ser preenchido para todos os tipos de cartões.. Qual dos campos abaixo posso utilizar para verificar se a transação foi aprovada ou não ? Estava utilizando apenas a ACBrTEFD.Resp.CodigoAutorizacaoTransacao mas nesse caso especifico este campo esta vazio, dessa forma a transação era aprovada no TEF mas a minha aplicação não finalizava a venda. sTEFAutorizacao := ACBrTEFD.Resp.NFCeSAT.Autorizacao; sTEFCodAutorizacao := ACBrTEFD.Resp.CodigoAutorizacaoTransacao; Então realizei um ajuste nos fontes do ACBr e alterei a forma de tratar o retorno na minha aplicação, ficou assim.
  9. Pessoal, bom dia. A alteração postada aqui ainda não foi incorporada no ACBr. Gostaria de saber se a mesma será incorporada ? Estava com problema com cartão de debito do banco original e cartão alimentação de algumas prefeituras. Consegui resolver o problema utilizando o '.pas' postado aqui. Foi incluido apenas uma linha. No caso dos cartoes que mencionei o campo ACBrTEFD.Resp.CodigoAutorizacaoTransacao estava vindo vazio, dessa forma a transação estava aprovado mas a minha aplicação não consegui finalizar a venda...
  10. Pessoal, não sei se estou fazendo corretamente, mas o componente ACBrNFeDANFCeFortes não consegui imprimir em formato A4. Só consegui utilizando o componente ACBrNFeDANFCeFortesA4. Qual ".pas" tenho que alterar para ajusta o layout e remover os '.....' e ':' do Produto...... e Quantidade: Vlr. Unitário: Valor Total:
  11. Boa tarde. Obrigado pela resposta. Não consegui identificar o que esta fora do padrão....
  12. Pessoal, toquei o componente para ACBrNFeDANFCeFortes. Esta saindo conforme imagem abaixo. E obrigatório o formato A4 ser igual ao formato EscPos ?
×
×
  • Create New...