luciano_f

Pessoal estou com uma dificuldade em fazer o seguinte codigo. Begin ACBrTEFD.ConfirmarTransacoesPendentes; if Then Begin Executo Alguns blocos de Codigos...... End; ACBrTEFD.ImprimirTransacoesPendentes; porém não imprimi nada como deve configurar o componente para imprimir depois de confirmar transações pendentes ??? pelo que percebi só consigo imprimir se executar o codigo assim Begin ACBrTEFD.ImprimirTransacoesPendentes; ACBrTEFD.ConfirmarTransacoesPendentes; End; Porém não posso dessa forma eu preciso confirmar as transações pendentes e depois de alguns outro codigos ai sim imprimir os comprovantes. Grato a todos.

Revivendo esse tópico achei muito interessante a ideia do Roberto.Godinho será que ele ou outro usuário poderia postar algum demo de como efetuar essa tradução ? Grato.

So revivendo o tópico a ultima questão que postei desse tópico algum colega experiente pode me dar uma posição Muito grato a todos.

Sim entendo que existe estados com ECF e não tenho intenção de colocar meu sistema nesses estados. Porém meu receio é de no futuro o ACBrECF sofrer uma evolução para atender alguma norma nova e estados com uso do NFC-e trocar para uma nova tecnologia. Eu não sei o grau de satisfação com essa tecnologia NFC-e por parte dos UFs. Sei que é difícil prever algo (Futuro) por isso disse que é uma "Duvida Cruel"

Pessoal estou com uma duvida, pois sou paraná e aqui em meu estado usamos NFC-e meu sistema tem o ECF eu nunca criei o PAF-ECF apenas ECF simples, porém estava pensando em retirar todo o código referente a ECF, só que ai paira a duvida será que no futuro essa danadinha da ECF pode voltar como uma nova impressora algo como em São Paulo, assim acabo ficando com medo de retirar o codigo da ECF e no futuro ter que programar tudo novamente. Para mim seria muito bom dar uma limpeza e otimizar o meu código fonte. Eu não tenho intensão e colocar meu Software fora do Paraná em estado que usem a ECF até porque não tenho o PAF-ECF. Assim faz alguns dias que estou pensando e com um pouco de receio em remover todo o código da ECF que atualmente e baseado no ACBrECF. Eu não sei quais o planos futuros do ACBr para com esse componente, pois derrepente vocês incorporem o SAT junto ao Componente ECF.

Eu acho que não colega pois essa informação corresponde ao SAT de São Paulo e Eu não vou usar o SAT sou do Paraná. Eu acredito que tenha resolvido porém gostaria que o colegas me dissessem se está correto, se tem algum problema que eu não tenha percebido na captura dos retornos. DepoisConfirmarTransacoes(RespostasPendentes: TACBrTEFDRespostasPendentes); Begin For I := 0 to RespostasPendentes.Count - 1 do begin with RespostasPendentes[I] do begin M_consultas2.MemCondPagto.Edit; if Credito Then M_consultas2.MemCondPagto.FieldByName('DEBITOCREDITO_TEF').Asstring := 'C' Else M_consultas2.MemCondPagto.FieldByName('DEBITOCREDITO_TEF').Asstring := 'D'; M_consultas2.MemCondPagto.FieldByName('COD_AUTORIZACAO_TEF').Asstring := NSU; M_consultas2.MemCondPagto.FieldByName('BANDEIRA_TEF').Asstring := Trim(Copy(LeInformacao(132, 0).AsString, 4, 255)); if M_consultas.Qy_OperaCartao.Locate('ID_OPERADORA', Instituicao, []) Then M_consultas2.MemCondPagto.FieldByName('CNPJ_TEF').Asstring := M_consultas.Qy_OperaCartao.FieldByName('CNPJ').Asstring; M_consultas2.MemCondPagto.Post; End; End; Observação a bandeira achei melhor buscar pelo codigo e percebi que a variavel "CodigoRedeAutorizada" sempre retorna vazio então preferi usar o comando Trim(Copy(LeInformacao(132, 0).AsString, 4, 255)); Gostaria apenas de uma avaliação dos Colegas.

vc deve criar uma tela e buscar estas duas informações no seu BD Estranho pois já fiz compras em mercados onde o caixa não faz essa escolha já parte direto para o tipo se Credito ou Debito. Será que não estão fazendo o mencionei acima ??? Pelo que estou testando queria uma confirmação dos colegas porém percebo que como já aludi acima a variável Rede = Retorna a bandeira Instituicao = Me Retorna a Administradora Dessa forma acredito que com essas duas variáveis eu consigo resolver efetuando um busca em minha tabela de Administradoras pelo ID que seria o código da "Instituicao" que o AcbrTef está retornando para pegar o CNPJ está correto essa ideia minha ? Se essa ideia minha estiver certo para o SoftExpress não precisaria dessas duas telas

Pessoal será que eu não estou sabendo explicar direito minha dificuldade. Fico muito grato a atenção dos colegas porém ainda estou apanhando feio. O Colega "carlosinfoteen" explicou tabela para armazenar as parcelas, aqui na tela onde o usuario seleciona a operadora e em seguida a bandeira, vai salvar junto as parcelas o id de cada uma para futura consulta no banco de dados Porém a tela onde o usuario seleciona a Operadora em seguida a bandeira eu não achei essa tela aqui. pelos testes que fiz com o Demo do ACBRTef não existe essas duas telas Vejas em anexo todas as telas que são me apresentadas. Pelo que estou testando queria uma confirmação dos colegas porém percebo que como já aludi acima a variável Rede = Retorna a bandeira Instituicao = Me Retorna a Administradora Dessa forma acredito que com essas duas variáveis eu consigo resolver efetuando um busca em minha tabela de Administradoras pelo ID que seria o código da "Instituicao" que o AcbrTef está retornando para pegar o CNPJ está correto essa ideia minha ?

Percebi que pelo evento :: DepoisConfirmarTransacoes(RespostasPendentes: TACBrTEFDRespostasPendentes); a bandeira eu consigo com a variável "Rede" que em alguns teste meu retornou "Visa Credito" está correto isso ? o pessoal tem usado a "Rede" para identificar a bandeira ? Agora o CNPJ eu acredito que seja a variavel "Instituicao" que aqui tem retornado "00125" ou está errado isso ? a Lista dos CNPJ eu tenho aqui http://www.newssystems.eti.br/blog/2014/12/como-informar-o-cnpj-da-credenciadora-de-cartao-de-credito-na-nfc-e/ Agora não consegui achar uma tabela que me referencia o "00125" a um CNPJ dessa listagem acima.

Essas informações não vem do Gerenciador TEF, você precisaria ter uma tabela no seu sistema, e fazer uma referência cruzada Sim entendo porém deve ter algum meio de eu localizar que aquele recebimento via cartão corresponde a tal CNPJ e com determinada bandeira eu não estou sabendo como fazer essa referencia cruzada com parametro localizar dentro do evento DepoisConfirmarTransacoes(RespostasPendentes: TACBrTEFDRespostasPendentes); Eu já criei um tabela porém como localizar ? Grato.

Pessoal estou imprementando o "TEFCliSiTef" para NFC-e e estou vendo as regras para emissão de TEF com NFC-e Minha duvida é a seguinte na NFC-e terei que informar as Tags abaixo :: With FNFe.Pag.Add do Begin tPag := fpCartaoCredito; cAut := NSU; tBand := ?? CNPJ := ?? tpIntegra := tiPagIntegrado; End; Eu não achei a bandeira e o CNPJ como retorno nesse evento do Tef abaixo. DepoisConfirmarTransacoes(RespostasPendentes: TACBrTEFDRespostasPendentes); Minhas duvidas são ::: 1º o "cAut" é o "NSU" que me retorna do Evento acima ? 2º - Como o pessoal que já fez a homologação para o "TEFCliSiTef" resolveu essa questão como capturar a Bandeira ? 3º Como saber o CNPJ eu até poderia criar um cadastro de Administradoras de Cartão de Credito mais como eu saberia qual Administradora do Cartão que está efetuando a transação e associar com o CNPJ ? Grato a todos.

TEF com ECF eu usava assim CartaoTEF.CRT(vValor, IndiceCartao, CupomECF.NumCOO); Ou seja usava o NumCOO como Documento Vinculado Agora com NFCe eu pensei no numero da NFCe porém isso dá muito trabalho então pensei em colocar "0" Grato.

Pessoal para eu passar a informação de DocumentoVinculado na minha aplicação não será fácil pois estou pensando no numero da NFCe porém para capturar esse numero vai dar um baita trabalho se Eu colocar "0" terei problema com o "TEFCliSiTef" Ficaria algo assim : StatusTransacao := ACBrTEFD1.CRT( StringToFloatDef(edValorPagamento.Text, 0) , '02', '0'); Terei problema com a homologação ? Grato a todos.

Não estou conseguindo capturar o nosso numero sempre me retorna 0 já tentei varias configurações e até agora nada o sistema é boleto sem Registro Da Caixa layout 240 Em anexo postei o arquivo de retorno. o problema está nessas linhas de codigo :: ACBrBanco.TamanhoMaximoNossoNum := CalcularTamMaximoNossoNumero(Carteira, '', ACBrBanco.ACBrBoleto.Cedente.Convenio); // Aqui sempre retorna zerado o correto dessa linha deveria ser assim CalcularTamMaximoNossoNumero(Carteira, Copy(Linha,47,10), ACBrBanco.ACBrBoleto.Cedente.Convenio); // ai retorna certo pois eu troquei vazio por Copy(Linha,47,10) // Essa Linha abaixo não entendi NossoNumero := Copy(Copy(Linha,47,10), // Length(Copy(Linha,47,10))-TamanhoMaximoNossoNum , TamanhoMaximoNossoNum); Se resumisse ela para apenas :: NossoNumero := Copy(Linha,47,10); ficaria muito melhor.. RETORNOCEF051116.ret

Sidnei Sobre a balança Ramuza alguma novidade ?

Obs : Além das duvidas acima mencionadas e para me complicar ainda mais, parece que alguns bancos tem o mesmo nome para algumas Instrução e Ocorrência, e cada banco tem Nomes e Códigos para Instruções diferente de outros Bancos ? se isso for verdade eu terei que criar um cadastro especifico para Instruções Bancarias onde cada banco tem sua instrução especifica ou posso colocar o mesmo código e nome de instrução genérico para todos os bancos ?

Pessoal estou na duvida entre essas duas propriedades TACBrTitulo.Instrucao1 E TACBrTitulo.OcorrenciaOriginal.Tipo Para mim está meio que redundante a Instrucao1 com o Tipo da Ocorrência que tem uma classe com varias Ocorrências no ACBR como por exemplo toRemessaRegistrar, toRemessaAlterarVencimento, toRemessaAlterarValorTitulo Etc... Exemplo se eu quiser alterar a Data de Vencimento de um Boleto eu terei que usar as duas combinações é isso ? Ou seja tenho que colocar o Código da Instrucao1 que está no manual do banco que corresponde a Alteração da "Data de Vencimento" e ao mesmo tempo colocar a OcorrenciaOriginal.Tipo := toRemessaAlterarVencimento ? Se eu deixar sempre Vazio a Propriedade "TACBrTitulo.Instrucao1" e usar apenas OcorrenciaOriginal.Tipo alterando conforme a necessidade terei resultado ? Assim se eu quiser alterar a Data de Vencimento configuro o componente assim : Titulo.Instrucao1 := ''; Titulo.Instrucao2 := ''; Titulo.Instrucao3 := ''; OcorrenciaOriginal.Tipo := toRemessaAlterarVencimento; Se quiser Alterar o Valor do Titulo faço assim : Titulo.Instrucao1 := ''; Titulo.Instrucao2 := ''; Titulo.Instrucao3 := ''; OcorrenciaOriginal.Tipo := toRemessaAlterarValorTitulo; Outra coisa que percebi que existe 3 propriedade de instrução sendo Instrucao1, Instrucao2, Instrucao3 tem situações onde são usadas as 3 instruções ? Me desculpe a ignorância pois usava o ACBR apenas para boletos sem registros e agora estou tendo que alterar para "Com Registro" e fiquei perdido mesmo depois de ler um pouco o manual do Banco. Grato a todos.

"Juliana Tamizou" desconsidere esse meu topico não precisa alterar o Trunk do ACBR Pois vai gerar quebra de compatibilidade com os usuarios que já homologaram seus Sistemas Outra coisa é o Digito com "-" do Codigo do Cedente que não aceita no Codigo de Barras dá erro na geração pois o codigo do Cedente não tem o Digito assim fiz o seguinte :: if (Remessa <> 'S') And (AcbrBoleto.Banco.TipoCobranca = cobBradescoSICOOB) Then Begin AcbrBoleto.Cedente.Conta := Func_NumeroContaAgencia(vCodCedente); AcbrBoleto.Cedente.ContaDigito := Func_DigitoContaAgencia(vCodCedente); End; Com disso não precisa alterar o ACBR e Muito grato pela atenção.

"Juliana Tamizou" você curtiu então devo acredito que está correta minha alteração ? Você vai subir a unit que postei a alteração para o Trunk ? Grato.

Sim porém essa seria a conta corrente do Siccob dentro do Bradesco o que na verdade está incorreto usar a propriedade conta corrente do componente na formação do codigo de barras. No caso o meu cliente tem um numero de conta corrente que se Eu informar ela no componente a homologação dá rejeição, assim liguei para o suporte do Siccob ele me disse que esse trecho é muito vezes mal interpretado pois se trata da conta corrento dentro do bradesco porém que o certo é Codigo do Cedente. Exemplo : o numero da Conta corrente que meu cliente vai usar que está no Cartão de Debito e no Cheque é 18532-X porém se colocar esse numero no componente na propriedade "Conta" ao gerar o Boleto fica invalido pois tem que ser o codigo do Cedente que não tem nada a ver com essa conta ele é 1665352 Grato.

Manual em anexo está na Pagina 16 Campo Livre O Campo Livre é um conjunto de dados que será retornado da compensação para identificar o título. O campo livre do Bradesco é definido da seguinte forma: Posição Tamanho Descrição 1 a 4 4 Agência Correspondente - 3509 5 a 6 2 Carteira (Fixo 09 ) 7 a 17 11 Nosso Número Bradesco do título (sem o dígito verificador) 18 a 24 7 Código do Cedente (Conta Corrente da Cooperativa no Bradesco) 25 a 25 1 Zero Manual+Layout+Sicoob+Correspondente+BRADESCO+Impressão+Local.pdf

Ao Administrador do Boleto existe um erro na montagem do Código de barras do BradescoSiccob. function TACBrBancoBradescoSICOOB.MontarCodigoBarras ( const ACBrTitulo: TACBrTitulo) : String; var NossoNumero, CodigoBarras, FatorVencimento, DigitoCodBarras:String; begin with ACBrTitulo.ACBrBoleto do begin FatorVencimento := CalcularFatorVencimento(ACBrTitulo.Vencimento); NossoNumero := MontarCampoNossoNumero(ACBrTitulo); CodigoBarras := IntToStr( Numero )+'9'+ PadLeft(OnlyNumber(FatorVencimento),4,'0') + IntToStrZero(Round(ACBrTitulo.ValorDocumento*100),10) + PadLeft(OnlyNumber(Cedente.Agencia),4,'0') + PadLeft(OnlyNumber(ACBrTitulo.Carteira),2,'0') + PadLeft(NossoNumero,11,'0') + // PadLeft(RightStr(Cedente.Conta,7),7,'0') + Essa linha eu tive que alterar pois de acordo com o manual tem que ser // 18 a 24 7 Posições que são o "Código do Cedente" e não a Conta. Linha Alterada para -> PadLeft(RightStr(Cedente.CodigoCedente,7),7,'0') + '0'; DigitoCodBarras := CalcularDigitoCodigoBarras(CodigoBarras); end; Result:= IntToStr(Numero) + '9'+ DigitoCodBarras + Copy(CodigoBarras,5,Length(CodigoBarras)); end; Em anexo a unit para os Administradores alterar o componente. ACBrBancoBradescoSICOOB.pas

Grato

Pessoal estou tentando a homologação para o Siccob porém me deparei com 2 problemas 1º o NossoNumero tem que ter o prefixo fornecido pelo banco que no meu caso é 635 e pelo que estou vendo no ACBR ele usa o código do Convenio porém o convenio é no meu caso é 16 Erro retornado pelo banco foi : o Outro Problema é o "Código da Cobrança" no Arquivo remessa que é um numero próprio diferente do Código do Cedente. Grato a Todos.

Italo fico muito grato pela explicação detalhada.