Valmir Gomes Ribeiro

Fiz a atualização do componente, (obrigado), porem a minha etiqueta a margem dela continua saindo errado mandando a foto em anexo para voce olhar, obrigado antecipadamente, sim a margem esquerda esta 0.

bom dia, eu vi, so uma coisa, o acbr ainda compila para o delphi 7, pois na versao que tenho não tem a propriedade margem esquerda, se ele ainda compila resolvido o problema, caso ele não compile mais tem o acbretq separado ?

tem como mexer na margem esqueda da etiqueta ?

// acertar quebras de linhas e abertura e fechamento da lista de parametros ParamAdic := StringReplace(Trim(ParametrosAdicionais.Text), sLineBreak, ';', [rfReplaceAll]); ParamAdic := '['+ ParamAdic + ']'; if NaoEstaVazio(CNPJEstabelecimento) and NaoEstaVazio(CNPJSoftwareHouse) then ParamAdic := ParamAdic + '[ParmsClient=1='+CNPJEstabelecimento+';2='+CNPJSoftwareHouse+']'; debuguei e vi esta linha acho que é neste ParamAdic := '['+ ParamAdic + ']'; que ta gerando seria isto ?

daniel segue o log, obrigado antecipadamente. log.txt

boa tarde, estou usando o acbrtef clisitef dll, e esta dando este erro, segundo eles é que esta indo colchetes demais CliSiTef DoExibeMsg: Oper: opmOK Mensagem: Terminal inoperante, CNPJ/CPF divergente ParametrosAdicionais: [][ParmsClient=1=10758937000184;2=01965166000105] disse que nao tinha essas [] iniciais e não to sabendo como tirar

acabei de tentar no demo e deu tambem minha configuração esta assim e o status esta normal resollvido era a configuracao, obrigado.

Bom dia não fiz nenhuma mudança no meu codigo e agora esta dando Falha no reconhecimento da autoria ou da integridade do arquivo digital ja atualizei o acbr e os schemas, e não mudei nada no codigo.

o texto nao esta Alterar na 1ª linha do campo Instruções a expressão para “Texto de Responsabilidade do Beneficiário ou Cedente”

baixei aqui e queria saber quando desses .fr3 tem esta informação correta

qual o modelo amigo que posso usar ? que tem essa informação ?

Fast report Quanto a homologação dos boletos, precisaremos ajustar os pontos abaixo: RECIBO DO PAGADOR Informar o endereço do cedente. FICHA DE COMPENSAÇÃO Local de Pagamento – alterar para a expressão “PREFERENCIALMENTE NAS CASAS LOTÉRICAS ATÉ O VALOR LIMITE”. Informar o endereço do cedente. Alterar na 1ª linha do campo Instruções a expressão para “Texto de Responsabilidade do Beneficiário ou Cedente”. Alterar a expressão “Pagador/Avalista” para “Sacador/Avalista”. Alterar o Campo ”(+)Mora/Multa” para “(+)Mora/Multa/Juros” este do texto de responsabilidade do beneficiário ou cedente não consegui nenhum que tenha isso

existe algum boleto ja com todas estas caracteristicas no acbrboleto, sacador/avalista, endereco do cedente, mora/multa/juros e texto de responsabilidade do beneficiario ou cedente. por encontrei um mas esta ultima opção de texto de responsabilidade do benefciario ou cedente não esta assim e a caixa ela implica com isso.

Daniel amigo, me diz o nome da unit, pois to vendo de varios tipo autar, cappta, banese mas não vi nada da scope ou getcard, me auxilia se puder por favor, obrigado.

Oi daniel tudo bem, mas esta dentro do trunk do acbr, onde posso encontrar, gostaria de ver a questão do cancelamento, pois a getcard trabalha com o Controle e não com o nSU como as outras.

No acbrtef já tem esta classe, o tef da getcard scope ?

eu vou re-instalar o acbr do zero novamente, mas realmente nao sei o que é, so fiz atualizar o acbr e agora tudo que tava funcionando normalmente dar este erro com todos os certificados, e aquele trecho era para mostrar que do nada ele limpava a variavel e nao gravava o arquivo assinado ocasionando aquele erro.

nao entendi juliomar.

nesta rotina abaixo // XML já deve estar em UTF8, para poder ser assinado // XMLUTF8 := ConverteXMLtoUTF8(XMLStr); with TACBrNFe(TNotasFiscais(Collection).ACBrNFe) do begin FXMLAssinado := SSL.Assinar(String(XMLUTF8), 'NFe', 'infNFe'); // SSL.Assinar() sempre responde em UTF8... FXMLOriginal := FXMLAssinado; Leitor := TLeitor.Create; try leitor.Grupo := FXMLAssinado; NFe.signature.URI := Leitor.rAtributo('Reference URI='); NFe.signature.DigestValue := Leitor.rCampo(tcStr, 'DigestValue'); NFe.signature.SignatureValue := Leitor.rCampo(tcStr, 'SignatureValue'); NFe.signature.X509Certificate := Leitor.rCampo(tcStr, 'X509Certificate'); finally Leitor.Free; end; // Se for NFCe, deve gera o QR-Code para adicionar no XML após ter a // assinatura, e antes de ser salvo. // Homologação: 01/10/2015 // Produção: 03/11/2015 if (NFe.Ide.modelo = 65) then begin with TACBrNFe(TNotasFiscais(Collection).ACBrNFe) do begin NFe.infNFeSupl.qrCode := GetURLQRCode(NFe.Ide.cUF, NFe.Ide.tpAmb, onlyNumber(NFe.infNFe.ID), trim(IfThen(NFe.Dest.idEstrangeiro <> '', NFe.Dest.idEstrangeiro, NFe.Dest.CNPJCPF)), NFe.Ide.dEmi, NFe.Total.ICMSTot.vNF, NFe.Total.ICMSTot.vICMS, NFe.signature.DigestValue, NFe.infNFe.Versao); if NFe.infNFe.Versao >= 4 then NFe.infNFeSupl.urlChave := GetURLConsultaNFCe(NFe.Ide.cUF, NFe.Ide.tpAmb, NFe.infNFe.Versao); GerarXML; end; end; if Configuracoes.Arquivos.Salvar and (not Configuracoes.Arquivos.SalvarApenasNFeProcessadas) then begin if NaoEstaVazio(NomeArq) then Gravar(NomeArq, FXMLAssinado) else Gravar(CalcularNomeArquivoCompleto(), FXMLAssinado); end; end; eu debuguei e vi que ate onde ta em negrito esta variavel FXMLAssinado esta com o xml la, depois que chega no FXMLAssinado ta em branco ai so grava no arquivo <?xml version="1.0" encoding="UTF-8"?>

Grande Juliomar, agora de cabelo curto, irmão ver bem, não mudei nada o meu programa só fiz atualizar o acbr, a rotina que tenho é bem simples, tipo try FDataModule.ACBrNFe.NotasFiscais[0].NFe.Ide.dSaiEnt := Now; FDataModule.ACBrNFe.NotasFiscais[0].NFe.Ide.hSaiEnt := Now; FDataModule.ACBrNFe.NotasFiscais[0].NFe.Ide.dEmi := Now; fCaixa.labelMensagens.Caption := 'Gerando Nfc-e...'; Application.ProcessMessages; FDataModule.ACBrNFe.NotasFiscais.GerarNFe; fCaixa.labelMensagens.Caption := 'Assinando Nfc-e...'; Application.ProcessMessages; FDataModule.ACBrNFe.NotasFiscais.Assinar; fCaixa.labelMensagens.Caption := 'Validando Nfc-e...'; Application.ProcessMessages; FDataModule.ACBrNFe.NotasFiscais.Validar; fCaixa.labelMensagens.Caption := 'Enviando Nfc-e...'; Application.ProcessMessages; if FDataModule.ACBrNFe.Enviar(1,true,true) then ja debuguei e no gerarnfe, ta tudo na memoria, quando ele assina que volta para o xmlassinado fica somente esta duas tags outra amigo, eu pego agora o mesmo programa que tava funcioando, so faco recompilar e dar este erro.

Boa tarde, apos eu fazer uma assinatura no xml, ele gera um arquivo somente com as <?xml version="1.0" encoding="UTF-8"?> e com 1k de tamanho e dar o erro 187 missing child element(s) - expected is conforme figura em anexo, alguem poderia me ajudar por favor.

Bom Dia, sobre o cancelamento descobri junto com o pessoal do desenvolvimento da getcard, existe uma opção no gerenciador padrão deles que faz com que a confirmação seja confirmada ou fique pendente, to mandando a foto anexo, com ela desmarcada o acbr consegue fazer o NCN normalmente, agradecer a atenção a todos e deixar aqui por que acredito que outros sistemas também tenham este problema e desenvolveram alguma rotina.

quando fiz estes testes ja estava marcado conforme figura. minha duvida é a seguinte, quando eu faco uma venda cartão no usando vamos paygo, darumatef, etc... qualquer um que trafegue por gerenciador padrão, e eu quero cancelar a venda que ainda esta em curso, o mesmo com o comando NCN vai fazer, ou no caso do tef discado vai chamar o gerenciador para fazer o cancelamento, pois se ele chamasse o gerenciador o cancelamento estaria ok, teve um amigo Aurino que me disse algumas coisas que ele fazia pois não usava a função cancelar pendentes e sim uma dele que seria algo assim. se for dedicado basta chamar o cancelartransacoespendentes, senao no meu caso eu criei um vetor e depois pecorro chamando o cnc, porem neste caso não consigo passar o controle para o comando, ele disse que fazia mas tambem não consegui mais contato para ele tentar me ensinar, assim ate funciona na venda porem se o sistema cai e entrar ele não entra nesta rotina, mas acho que não seria isso, acredito que o proprio comando cancelartransacoespendentes deve resolver. if Configuracao.TipoTEF = 'DE' then FEfetuaPagamento.ACBrTEFD.CancelarTransacoesPendentes else begin // Zerar Variaveis for I := 0 to 10 do begin _Nsu := ''; _Rede := ''; _Contrl := ''; _Valor := 0; end; _TransacoesPendentes := FEfetuaPagamento.ACBrTEFD.RespostasPendentes.Count-1; for I := 0 to _TransacoesPendentes do begin with FEfetuaPagamento.ACBrTEFD.RespostasPendentes do begin _Nsu := FEfetuaPagamento.ACBrTEFD.RespostasPendentes.NSU; _Rede := FEfetuaPagamento.ACBrTEFD.RespostasPendentes.Rede; _Contrl := Copy(FEfetuaPagamento.ACBrTEFD.RespostasPendentes.Finalizacao,13,11); _Valor := FEfetuaPagamento.ACBrTEFD.RespostasPendentes.ValorTotal; end; end; // Cancelar todas as transaes for I := 0 to _TransacoesPendentes do begin _Cancelado := False; while not _cancelado do begin Clipboard.asText := _Contrl; Application.MessageBox(Pchar('Utilize Ctrl+V para colar o controle na tela CANCELAMENTO TEF' +#13+#10+ 'ou anote o numero ' + _Contrl + ' e digite se solicitado.'), 'Informao do Sistema', MB_OK + MB_ICONINFORMATION); if FEfetuaPagamento.ACBrTEFD.CNC(_Rede, _Nsu, Now, _Valor) then _Cancelado := True; end; end; FEfetuaPagamento.ACBrTEFD.RespostasPendentes.Clear; ZapFiles(FEfetuaPagamento.ACBrTEFD.PathBackup + '\*.*'); end;

GetCard que trafega o GETNET

Bom Dia, Seguindo os mesmos passos anteriores, fiz uma venda, paguei 3,00 no cartão e depois coloquei cancelar cupom, ele mostrou que tinha cancelado e não cancelou conforme a tela, outra coisa se eu fizer uma venda e sair do sistema bruscamente ctrl+alt+del tambem volta e mostra a mesma tela e não cancela, ou seja em nenhum dos casos ele entra na tela do gerenciador padrão ja que as vendas não estão pendentes e sim confirmadas. muito obrigado antecipadamente. ecf.log TEF_DIAL.log