Gr@c@

Isso é para evitar o transtorno de ter que emitir uma 2a via do boleto quando ele estiver vencido. Assim o cliente pode pagar em qualquer agencia mesmo vencido. Qualquer banco terá acesso aos dados do boleto online, cobrará os juros e multas. Mas essa alteração será por etapas. Primeiro os boletos de maior valor. Parece que até final de 2017 tambem os boletos de pequeno valor. Acho que pra nós do ACBr não alterará nada.

Mas o que está sendo discutido é o "sistema não salvar os dados no BD". Se não salva dados no BD não tem backup. Culpa do cliente? Não. Culpa do sistema que não salva dados no BD. Agora, uma vez que o sistema salva os dados no BD e disponibiliza recurso para o usuário realizar o backup, aí sim, é culpa do cliente não realizar o backup. Mas minha filosofia como programadora é: "faciliar a vida do meu cliente, disponibilizando recursos através do aplicativo ou do proprio gerenciador de BD. Isso porque, se o meu aplicativo não fizer, o aplicativo do meu concorrente com certeza, fará."

Você disse: " Mas se nem backup os usuários fazem, de que adianta manter em banco se o mesmo não tiver backup também. " Adianta que o seu cliente não terá motivos para processar judicialmente você desenvolvedor ou a sua empresa, sob alegação de que o seu sistema não salva dados em BD. Além de dar mais credibilidade ao seu sistema. Isso sem falar que o próprio backup pode ser automatizado no gerenciador de BD sem depender da intervenção do usuário.

Talvez seja pela data de emissão tão antiga, afinal estão tentando encerrar um MDF-e emitido em Março. Acho que somente a contabilidade e o plantão fiscal poderão solucionar isso. O cliente consegue fazer um novo MDF-e para mesmo percurso e placa?

Para gerar os documentos fiscais eu já tenho tudo salvo em banco de dados, depois salvo apenas os dados de envio do documento(chave de acesso,protocolo,data de envio ao SEFAZ). E também salvo o xml em uma tabela fiscal que fica em um BD a parte. Salvo tudo para que depois seja possível gerar os arquivos digitais do fisco:sped/sintegra e alguns relatorios gerenciais e contábeis. E também para que a empresa tenha um historico fiscal.

Em SP o desenvolvedor não pode se credenciar apenas no ambiente de homologação como aqui em MG? Absurdo isso. Aqui em MG, desde que a empresa possua o CNAE de desenvolvedor, Inscrição Estadual e Certificado Digital pode se credenciar no ambiente de homologação através do SIARE.

Nesse caso André, existe um meio de controlar as tentativas de uso de senha incorreta do certificado através do aplicativo via ACBr? Tentou usar o certificado 2 vezes consecutivas com senha errada, dá um alerta e fecha o aplicativo?

Se você digitar muitas vezes a senha errada o certificado ficará bloqueado sim (não me lembro qual o numero de tentativas). Isso ocorre com todos os certificados por questões óbvias de segurança. Nesse caso, você tem a senha reserva que é cadastrada no mesmo dia da senha oficial. Certificados da OAB são da Valid e isso é alertado quando a pessoa vai fazer o certificado. quanto ao que postei acima, no ACBr, existe a possibilidade de saber se a senha foi digitada incorretamente e finalizar o aplicativo após um determinado numero de tentativas consecutivas e mal sucedidas a fim de evitar o bloqueio do certificado? Talvez essa possa ser uma forma a mais de se proteger o certificado.

Esse tema tem que ser levado ao SEFAZ. Realmente está incorreto. O que o Jõao Henrique explicou está correto, mas gera dupla interpretação. Deveria haver uma opção para Remetente e outra para Destinatário. É uma falha e infelizmente, temos que replicar a falha, já que o nosso dever é seguir o que manda os manuais e as NT. Porém,como outros desenvolvedores resolvem corrigir isso por conta própria, acabam atrapalhando aqueles que seguem as regras. Um tema a ser discutido diretamente com o SEFAZ ou através do plantão fiscal.

Obrigada pela resposta detalhada. Funcionou abrindo o ACBrNFeDANFeRL.pas. Verificou que a propriedade AlignWithMargins não existia e se desejava ignorar. Aparentemente não fez diferença na impressão do Danfe. No Delphi XE3 está compilando normalmente.

Essa seria uma propriedade não suportada pelo Delphi 7 ? Porque não pergunta se deseja ignorar.

Desculpem o tópico repetido (sei que vou levar um rala dos moderadores), mas o tópico que encontrei a respeito dessa dúvida foi travado sem apontarem a solução, porque o arquivo log não detalha a alteração. Já atualizei os meus componentes ACBr via SVN e também o Fortes Reports CE via SVN. Deu build em tudo. Substitui o componente no form. Recompilei o projeto. Mas o erro continua. O que precisa ser feito? (ao dar o erro não me pede para ignorar a propriedade)

Segue a solução (fornecida pelo suporte da bematech): 1) caso tenha algo instalado (bematool, conversor usb serial bematech ou outro aplicativo) desinstalar e reiniciar o micro 2) Site do desenvolvedor Bematech = bematechpartners.com.br -> sessão downloads -> windows -> fazer o download do aplicativo para instalar a usb -> Bematech User Software v.2.8.3 for 64 bits.exe (desativar firewall do windows e executar com permissão de administrador) -> reiniciar o micro apos instalação 3)Painel de controle -> gerenciador de dispositivos -> acha o dispositivo USB bematech device (se estiver com icone amarelo ou não reconhecido, desligar a impressora, aguardar 10 segundos e religar) 4) usar a bemafi32.dll mais recente (no meu caso usei a 7.0.4.74) porque dlls antigas não reconhecem a usb no windows 64bits

não criou a porta COM. Instalei uma com virtual (COM3) pelo conversor da bematech e também não funcionou.

Um aplicativo compilado no Delphi 7 não funciona em máquinas com windows 7 64 bits ao executar a função Bematech_FI_AbrePortaSerial dá Falha ao abrir porta serial de comunicação. Já instalei o driver da impressora (é uma impressora USB).O Bematool reconhece a impressora na usb e até consigo emitir leitura X (porém somente executando como administrador. Se não for como administrador dá erro que não há nenhuma porta de comunicação) Executo meu aplicativo também como administrador, coloquei o bemafi32.ini junto com o aplicativo, já tentei no SYSWOW64 e no windows\system32(sempre deixo em apenas um desses lugares) e nada funciona. Pergunta: terei que desenvolver meu aplicativo para um delphi 64bits para usar a bemafi64.dll? Ou uso mesmo o aplicativo em delphi 32 com a bemafi32.dll? Por que não reconhece a porta serial?

O que causa esse tipo de erro ao gerar TEF? - a transação ocorre com sucesso até a mensagem "TRANSACAO OK" no display - Exception List index of bound ( o comprovante não imprime ) após comando ImprimirTransaçõesPendentes ----> já debuguei até esse ponto mas não consigo chegar ao erro ao fechar o aplicativo e abrir novamente vem a mensagem na tela: Transação TEF efetuada Favor reimprimir ultimo cupom NSU: 00000000013013 (Para Cielo utilizar os 6 ultimos digitos) O fato é que às vezes dá certo, consigo finalizar a transação. Mas outras vezes não.

Estou tendo problemas com o CliSiTEF neste ponto. Valor da NFCe = 40,00 Valor pago em cartão de crédito = 10,00 Valor pago em dinheiro = 30,00 Valor Saldo Restante = 10,00 (porque aqui considero que ainda não emiti o comprovante de TEF) procedure TACBrTEFDClass.VerificarTransacaoPagamento(Valor: Double); var SaldoAPagar : Double ; begin Valor := RoundTo( Valor, -2); if (Valor <= 0) then raise EACBrTEFDErro.Create( ACBrStr( 'Valor inválido' ) ); { Lendo o SubTotal do ECF } with TACBrTEFD(Owner) do begin if not (EstadoECF in ['V','P','N']) then raise EACBrTEFDErro.Create( ACBrStr('ECF deve estar em Estado de "Venda", "Pagamento" ou "Não Fiscal"') ); SaldoAPagar := InfoECFAsDouble(ineSubTotal) ; SaldoAPagar := SaldoAPagar - InfoECFAsDouble(ineTotalAPagar,0); RespostasPendentes.SaldoAPagar := SaldoAPagar ; if TrocoMaximo <= 0 then begin if (Valor > RespostasPendentes.SaldoRestante ) then raise EACBrTEFDErro.Create( ACBrStr( 'Operação TEF deve ser limitada ao '+ 'Saldo restante a Pagar' ) ); end else begin if CompareValue(Valor, RespostasPendentes.SaldoRestante + TrocoMaximo, 0.01) = GreaterThanValue then raise EACBrTEFDErro.Create( ACBrStr( 'Operação TEF permite '+ 'Troco Máximo de R$ '+FormatCurr('0.00',TrocoMaximo) ) ); end ; if MultiplosCartoes and (NumeroMaximoCartoes > 0) and // Tem multiplos Cartoes ? (RespostasPendentes.Count >= NumeroMaximoCartoes) then // Já informou todos cartões ? raise EACBrTEFDErro.Create( ACBrStr( 'Multiplos Cartões Limitado a '+ IntToStr(NumeroMaximoCartoes)+' operações.' ) ); if Self is TACBrTEFDClassTXT then // Limita Saldo Restante se for derivado de TEF discado begin if MultiplosCartoes and (NumeroMaximoCartoes > 0) and // Tem multiplos Cartoes ? (Valor <> RespostasPendentes.SaldoRestante) and // Valor é diferente do Saldo Restante a Pagar ? ((NumeroMaximoCartoes - RespostasPendentes.Count) <= 1) then // Está no último cartão ? raise EACBrTEFDErro.Create( ACBrStr( 'Multiplos Cartões Limitado a '+ IntToStr(NumeroMaximoCartoes)+' operações.'+sLineBreak+ 'Esta Operação TEF deve ser igual ao Saldo a Pagar' ) ); end ; end; end; SaldoAPagar := InfoECFAsDouble(ineSubTotal) ; ---> quando chega aqui está 10.00 SaldoAPagar := SaldoAPagar - InfoECFAsDouble(ineTotalAPagar,0); ---> quando chega aqui já está -20.00 RespostasPendentes.SaldoAPagar := SaldoAPagar ; Então obtenho a resposta operação TEF deve ser limitada ao saldo restante a pagar Meu evento InfoECF está assim begin case Operacao of ineSubTotal : begin ASubTotal := Total_VlrVenda - Total_VlrPago; (40.00-30.00) = 10.00 RetornoECF := FloatToStr(ASubTotal); if estadoSimuladoEcf = tpsPagamento then RetornoECF := FloatToStr(0); end; ineTotalAPagar : RetornoECF := FloatToStr(Total_VlrPago); -----> 30.00 ineEstadoECF : begin Case estadoSimuladoEcf of tpsLivre : RetornoECF := 'L' ; tpsVenda : RetornoECF := 'V' ; tpsPagamento : RetornoECF := 'P' ; tpsRelatorio : RetornoECF := 'R' ; else RetornoECF := 'O' ; end; end; end; end;

tpEmis = 6 significa que a nota foi emitida em contingência a tag xJust é a mensagem que o emitente quer (caso tenha essa opção para editar) ou que o desenvolvedor do aplicativo emissor colocou na tag. Trata-se do motivo da contingência. Não é uma mensagem fixada pelo SEFAZ nem pelo ACBr.

Alguém conseguiu realizar as transações com o ACBrTEFD sem ECF como no exemplo? No meu está funcionando se tudo for 100% finalizado. Mas se houver um erro durante a emissão, ocorrem erros muito estranhos, por exemplo, faz a transação até "Transação OK. " mas em seguida dá erro de Transação não efetuada Favor reter cupom.

O que está ocorrendo é que consigo chegar a TRANSAÇÃO OK, mas logo em seguida tenho um List Index of Bounds(1) que me impede de finalizar a operação. Ao que parece, não me retorna a imagem do comprovante. CliSiTef.log ACBr_CliSiTef_001.tef

não consigo debugar até o método. Retirei alguns eventos do componente (deixando somente os que estavam no demo, acrescentando apenas o OnAguardaResp (exigida pelo CliSiTef) e está funcionando até a mensagem Transação OK. Surgiu outra dúvida: ao tentar realizar uma venda com cartão vencido, ocorre o erro, dá a mensagem Transação Negada. Porém no display, permanece a mensagem "Aguarde, em processamento...35". O aplicativo já está liberado para realizar envio de outra forma de pagamento e não há mais nada em processamento. Qual o comando devo realizar logo em seguida a uma Transação Negada para liberar a mensagem do display e realizar novo pagamento (com ou sem TEF) ? Se TRANSAÇÃO OK ----> Destravo componentes, Envio NFCe, Imprimo Transações Pendentes/Comprovante TEF, EstadoSimuladoECF = tpsLivre Se TRANSAÇÃO NEGADA ----> como tratar aqui corretamento o ACBrTEFD?

Estou tentando enviar um pagamento via cartão, mas ocorre o erro "Operação TEF deve ser limitada ao saldo restante a pagar" Estou enviando o valor de 60,00 que é o que corresponde ao valor da NFC-e no Debugando, verifiquei que o erro ocorre If (Valor > RespostasPendentes.SaldoRestante) then ---> aqui o valor está vindo zerado, quando deveria ser 60,00 porque ainda não foi efetuado nenhum pagamento. Alguma sugestão? SaldoAPagar := InfoECFAsDouble(ineSubTotal) ; SaldoAPagar := SaldoAPagar - InfoECFAsDouble(ineTotalAPagar,0); RespostasPendentes.SaldoAPagar := SaldoAPagar ; if TrocoMaximo <= 0 then begin if (Valor > RespostasPendentes.SaldoRestante ) then raise EACBrTEFDErro.Create( ACBrStr( 'Operação TEF deve ser limitada ao '+ 'Saldo restante a Pagar' ) ); end else begin if CompareValue(Valor, RespostasPendentes.SaldoRestante + TrocoMaximo, 0.01) = GreaterThanValue then raise EACBrTEFDErro.Create( ACBrStr( 'Operação TEF permite '+ 'Troco Máximo de R$ '+FormatCurr('0.00',TrocoMaximo) ) ); end ;

A impressora é usb. Instalei o conversor da bematech, mas acho que ele não está funcionando corretamente para a MP 3000 no windows 7 32 bits.

No Delphi 7 compilou. Simulei uma venda com cartão, outra com cartão e dinheiro e outra com multiplos cartões e a principio parece que tá ok. Fiz os testes com cartão de credito número digitado. Estou sem pinpad e sem impressora não fiscal, então não foi possivel testar tudo. Terei que aguardar os equipamentos para testar tudo. Mas esse demo será muito útil.

Ao compilar o projeto em Delphi 7 está dando erro. E a Unit5 contém lixo no início do nome e mesmo retirando, não compila.