Pedro_Manoel

function TACBrCaixaEconomicaSICOB.GerarRegistroHeader240(NumeroRemessa : Integer): String; var ATipoInscricao : String; ACodCedenteDV, aCodCedente, ACodCedenteDVAg: String; begin with ACBrBanco.ACBrBoleto.Cedente do begin case TipoInscricao of pFisica : ATipoInscricao := '1'; pJuridica: ATipoInscricao := '2'; end; ACodCedenteDVAg := CalcularDVCedente(ACBrBanco.ACBrBoleto.ListadeBoletos[0],True); ACodCedenteDV := CalcularDVCedente(ACBrBanco.ACBrBoleto.ListadeBoletos[0]); //ACodConvenio := CodigoCedente + ACodCedenteDVAg; aCodCedente:= RightStr(CodigoCedente,8); { GERAR REGISTRO-HEADER DO ARQUIVO } Result:= IntToStrZero(ACBrBanco.Numero, 3) + // 1 a 3 - Código do banco '0000' + // 4 a 7 - Lote de serviço '0' + // 8 a 8 - Tipo de registro - Registro header de arquivo space(9) + // 9 a 17 - Uso exclusivo FEBRABAN/CNAB ATipoInscricao + // 18 a 18 - Tipo de inscrição do cedente PadRight(OnlyNumber(CNPJCPF), 14, '0') + // 19 a 32 - Número de inscrição do cedente PadLeft(OnlyNumber(RightStr(Agencia, 4)), 4 , '0') + // 33 a 48 - Código do convênio no banco - Cedente PadRight(CodigoCedente, 11, '0')+PadLeft(ACodCedenteDVAg,1,'0') + // 33 a 48 - Código do convênio no banco - Cedente Estas duas ultimas linhas q passa a agencia e cedente esta duplicando a agencia no arquivo de remessa pois no campo cedente já consta a informação da agencia+cedente com isso da erro na importação, deixar passando somente : PadLeft(CodigoCedente, 15, '0')+PadLeft(ACodCedenteDVAg,1,'0') + // 33 a 48 - Código do convênio no banco - Cedente

Bom dia! Tenho um cliente que compro um certificado digital do tipo Token da empresa Valid. Todas as notas que tentamos gerar da erro : "Não há suporte para o tipo de Provedor de Serviços de Criptografia 24" gostaria de saber se alguem já teve este problema, caso sim qual foi a solução ? Sem mais. Aguardo Retorno. Pedro

Boa tarde Regis Eu estou com o mesmo problema Segue anexo o XML para analise Pedro Manoel 35130603221326000137550010000086611000086917-nfe.xml

Bom dia! Eu estou tentando salvar um boleto e enviar ele por email usando o componente mas quando passo o comando de GerarPDF ele apresenta um erro . "O sistema não pode encontrar o caminho especificado" caso eu de o comando para trazer a tela de preview e salvo em pdf funciona certinho. este é o comando usado. Boleto.ACBrBoletoFC.NomeArquivo := GetCurrentDir+'\Boleto.pdf'; Boleto.GerarPDF; boleto.EnviarEmail(sHostSmtp,sPortaSMTP,sUser,sSenha,sEmailCli,sEmailEmite,sAssunto,sMsg,true,true,scc,nil,true,true,sEmpresa,true ); eu dei uma olhada neste tópico e no caso dele salva o boleto no diretório mas no meu não esta salvando Aguardo retorno;

Bom dia Pessoal !!! Consegui Resolver da seguinte forma: No evento "onComandaECFPagamento" do ACBRTEF, ele retorna o Valor Cheio do Cartão (isso só se vc não informar a forma de pagamento cartão antes de finalizar o cupom, só passa as demais formas e deixa o cartão). Criei uma variável onde acumulo o valor retornado por esse evento em todos os cartões, e antes de finalizar a venda, depois dos comprovantes impressos, verifico se a diferença entre o valor informado na AC e o valor retornado no evento, tendo a diferença faço um lançamento para o meu caixa como Saque cielo.

Olá, Bom dia... Pelo que eu percebi, o componente só retorna o valor de saque se eu não passar as formas de pagamento e chamar o acbrtefd.finalizarcupom, eu precisaria ter o valor do saque para que eu pudesse passar para a AC e gravar nas minhas formas de pagamento que o cartao foi de X reais, para poder ter um melhor controle do financeiro.

ok...

Daniel, verifiquei o log e o saque não veio na resposta do gp, a unica hora que aparece é quando abre o vinculado e ele passa o total do cartão. Tentei ler a propriedade logo apos dar o crt, e tentei colocar no evento que vc sugeriu, e não retornou nada. Uma coisa que percebi, quando o acbrtefd le o arquivo de resposta, ele passa o valor para a propriedade resp.saque, mas logo depois ele da um clear; percebi isso debugando o componente. se eu verificar no arquivo de resposta, o valor de saque esta la, entre os comprovantes (708-000 = 000000005000).

Pessoal.. Estou Utilizando o ACBRTEFD e não estou conseguindo pegar o valor de saque que é retornado pelo gp do Pay-Go, ja verifiquei as propriedades acbrtefd.resp.saque, e elas estão zeradas logo apos o crt.... a propriedade auto finalizapagamento esta como false. como fazer para pegar o valor do saque, para poder repassar para minha AC e com isso fechar o cupom e alimentar o financeiro.

boa tarde ! deu carto a geração do arquivo e o erro que estava dando do primeiro post tb foi resolvido. Mto Obrigado .....

boa noite ! estou postando o modo que eu carrego os registros , pois estou com o seguinte problema... o componente aceita passar todos dos dados mas quando vai gerar o arquivo ele sempre passa as informações do primeiro registro repetindo ate o fim do FOR . a quantidade de informação é a mesma que o select retorna. mas dos dados são do 1º registro esta em anexo um pedaço do registro 50 isso acontece com todos os registros. sqlaux.First; wregistro50:=TRegistro50.Create; while not sqlaux.Eof do begin with ACBrSintegra do begin wregistro50.CPFCNPJ := TiraMascara(sqlaux.FieldByName('CPFCNPJ').asstring); wregistro50.Inscricao := TiraMascara(sqlaux.FieldByName('RGIE').asstring); wregistro50.DataDocumento := Registro10.DataFinal; wregistro50.UF := sqlaux.FieldByName('UF').asstring; if sqlaux.FieldByName('CODCHACESSO').AsString = '' then wregistro50.Modelo := '01' else wregistro50.Modelo := '55'; wregistro50.Serie := sqlaux.FieldByName('SERIE').asstring; wregistro50.Numero := sqlaux.FieldByName('DOCUMENTO').asstring; wregistro50.Cfop := TiraMascara(sqlaux.FieldByName('NATUREZAOP').asstring); wregistro50.EmissorDocumento:= sqlaux.FieldByName('EMITENTE').asstring; wregistro50.ValorContabil := sqlaux.FieldByName('VLNOTA').AsCurrency; wregistro50.Icms := sqlaux.FieldByName('ICMS').AsCurrency; wregistro50.BasedeCalculo := sqlaux.FieldByName('BCICMS').AsCurrency; wregistro50.Situacao := 'N'; wregistro50.Isentas := 0; wregistro50.Outras := 0; ACBrSintegra.Registros50.Add(wregistro50); end; sqlaux.Next; end; 5007788510000114582888887110 20130219SP01 0PVM43 T000000047490000000001740000000000000000000000000000000000000000000000N 5007788510000114582888887110 20130219SP01 0PVM43 T000000047490000000001740000000000000000000000000000000000000000000000N 5007788510000114582888887110 20130219SP01 0PVM43 T000000047490000000001740000000000000000000000000000000000000000000000N 5007788510000114582888887110 20130219SP01 0PVM43 T000000047490000000001740000000000000000000000000000000000000000000000N 5007788510000114582888887110 20130219SP01 0PVM43 T000000047490000000001740000000000000000000000000000000000000000000000N 5007788510000114582888887110 20130219SP01 0PVM43 T000000047490000000001740000000000000000000000000000000000000000000000N 5007788510000114582888887110 20130219SP01 0PVM43 T000000047490000000001740000000000000000000000000000000000000000000000N 5007788510000114582888887110 20130219SP01 0PVM43 T000000047490000000001740000000000000000000000000000000000000000000000N 5007788510000114582888887110 20130219SP01 0PVM43 T000000047490000000001740000000000000000000000000000000000000000000000N 5007788510000114582888887110 20130219SP01 0PVM43 T000000047490000000001740000000000000000000000000000000000000000000000N 5007788510000114582888887110 20130219SP01 0PVM43 T000000047490000000001740000000000000000000000000000000000000000000000N 5007788510000114582888887110 20130219SP01 0PVM43 T000000047490000000001740000000000000000000000000000000000000000000000N 5007788510000114582888887110 20130219SP01 0PVM43 T000000047490000000001740000000000000000000000000000000000000000000000N 5007788510000114582888887110 20130219SP01 0PVM43 T000000047490000000001740000000000000000000000000000000000000000000000N 5007788510000114582888887110 20130219SP01 0PVM43 T000000047490000000001740000000000000000000000000000000000000000000000N 5007788510000114582888887110 20130219SP01 0PVM43 T000000047490000000001740000000000000000000000000000000000000000000000N 5007788510000114582888887110 20130219SP01 0PVM43 T000000047490000000001740000000000000000000000000000000000000000000000N 5007788510000114582888887110 20130219SP01 0PVM43 T000000047490000000001740000000000000000000000000000000000000000000000N 5007788510000114582888887110 20130219SP01 0PVM43 T000000047490000000001740000000000000000000000000000000000000000000000N 5007788510000114582888887110 20130219SP01 0PVM43 T000000047490000000001740000000000000000000000000000000000000000000000N 5007788510000114582888887110 20130219SP01 0PVM43 T000000047490000000001740000000000000000000000000000000000000000000000N 5007788510000114582888887110 20130219SP01 0PVM43 T000000047490000000001740000000000000000000000000000000000000000000000N 5007788510000114582888887110 20130219SP01 0PVM43 T000000047490000000001740000000000000000000000000000000000000000000000N 5007788510000114582888887110 20130219SP01 0PVM43 T000000047490000000001740000000000000000000000000000000000000000000000N 5007788510000114582888887110 20130219SP01 0PVM43 T000000047490000000001740000000000000000000000000000000000000000000000N 5007788510000114582888887110 20130219SP01 0PVM43 T000000047490000000001740000000000000000000000000000000000000000000000N 5007788510000114582888887110 20130219SP01 0PVM43 T000000047490000000001740000000000000000000000000000000000000000000000N 5007788510000114582888887110 20130219SP01 0PVM43 T000000047490000000001740000000000000000000000000000000000000000000000N 5007788510000114582888887110 20130219SP01 0PVM43 T000000047490000000001740000000000000000000000000000000000000000000000N 5007788510000114582888887110 20130219SP01 0PVM43 T000000047490000000001740000000000000000000000000000000000000000000000N 5007788510000114582888887110 20130219SP01 0PVM43 T000000047490000000001740000000000000000000000000000000000000000000000N 5007788510000114582888887110 20130219SP01 0PVM43 T000000047490000000001740000000000000000000000000000000000000000000000N 5007788510000114582888887110 20130219SP01 0PVM43 T000000047490000000001740000000000000000000000000000000000000000000000N 5007788510000114582888887110 20130219SP01 0PVM43 T000000047490000000001740000000000000000000000000000000000000000000000N 5007788510000114582888887110 20130219SP01 0PVM43 T000000047490000000001740000000000000000000000000000000000000000000000N

Bom dia . Obrigado pela Ajuda Esta dando o erro no Limparegistro

Boa tarde ! Gostaria de saber se alguem ja teve este erro em anexo . o Comando que eu passo para a geração do arquivo é with ACBrSintegra do begin wregistro50.CPFCNPJ := TiraMascara(sqlaux.FieldByName('CPFCNPJ').asstring); wregistro50.Inscricao := TiraMascara(sqlaux.FieldByName('RGIE').asstring); wregistro50.DataDocumento := Registro10.DataFinal; wregistro50.UF := sqlaux.FieldByName('UF').asstring; if Trim(sNFEAMBDEST) = '' then wregistro50.Modelo := '01' else wregistro50.Modelo := '55'; wregistro50.Serie := sqlaux.FieldByName('SERIE').asstring; wregistro50.Numero := sqlaux.FieldByName('DOCUMENTO').asstring; wregistro50.Cfop := TiraMascara(sqlaux.FieldByName('NATUREZAOP').asstring); wregistro50.EmissorDocumento:= sqlaux.FieldByName('EMITENTE').asstring; wregistro50.ValorContabil := sqlaux.FieldByName('VLNOTA').AsCurrency; wregistro50.Icms := sqlaux.FieldByName('ICMS').AsCurrency; wregistro50.BasedeCalculo := sqlaux.FieldByName('BCICMS').AsCurrency; wregistro50.Isentas := sqlaux.FieldByName('VLNOTA').AsCurrency; wregistro50.Outras := 0; ACBrSintegra.Registros50.Add(wregistro50); end;

boa tarde jeter.rabelo ! Obrigado pela ajuda , eu vi no tópico e ficou facil fazer a correção. T+

Bom dia !! ontem eu atualizei o ACBR e meu sistema começou a dar erro na carta de correção o código anterior era : dm2.NFE.EnvEvento.EnvEventoNFe.Evento.Clear; dm2.NFE.EnvEvento.EnvEventoNFe.idLote := idLote; try with dm2.NFE.EnvEvento.EnvEventoNFe.Evento.Add do begin InfEvento.id := '1'; infEvento.versaoEvento := '1.00'; infEvento.cOrgao := codUf; infEvento.chNFe := Chave; infEvento.CNPJ := CNPJ; infEvento.dhEvento := now; infEvento.tpEvento := teCCe; infEvento.nSeqEvento := StrToInt(nSeqEvento); infEvento.detEvento.xCorrecao:= Correcao; case dm1.tbTemp.fieldbyname('NFEAMBDEST').asinteger of 0: InfEvento.tpAmb := taProducao; 1: InfEvento.tpAmb := taHomologacao; end; end; dm2.NFE.EnvEvento.EnvEventoNFe.GerarXML; dm2.NFE.EnviarEventoNFe(idLote); MemoResp.Lines.Text := UTF8Encode(dm2.NFE.WebServices.EnvEvento.RetWS); memoRespWS.Lines.Text := UTF8Encode(dm2.NFE.WebServices.EnvEvento.RetornoWS); LoadXML(MemoResp, WBResposta); qual a correção que tem que ser feita.

Romulo!! mto obrigado pela ajuda deu certo ontem mesmo, só não consegui agradecer, carreguei o xml da nf no componente e mandei tudo junto.. att.

Rômulo Mayworm ! eu estou com uma duvida ..para transmitir uma carta de correção tem que gerar xml ou só passar as configurações e transmitir..

bom dia Romulo! mto obrigado por responder eu coloquei a msg ele esta retornando vazio sem nada na msg !!! mas eu tenho a pasta schemas na pasta do sistema. Teria que apontar o path então para ela tb

Boa tarde Ricardo . o schemas e os fontes estão atualizados sim eu atualizei ontem.... obrigado pela ajuda

boa tarde a todos eu estou com um problema na carta de correção eletrônica !! eu procurei uma ajuda nos post mas não consegui resolver o meu problema... esta dando o seguinte erro : envCCe_v1.xds#/shemas/element[1][@name = 'envEvento'] unideclared XSD type :'{http://www.portalfiscal.inf.br/nfe}TEnvEvento' a minha pasta schemas esta atualizada... e as propriedades que eu estou passando sao as seguintes.. with dm2.NFE.EnvEvento.EnvEventoNFe.Evento.Add do begin if dm1.tbTemp.fieldbyname('NFEAMBDEST').asinteger = 0 then InfEvento.tpAmb := taProducao else if dm1.tbTemp.fieldbyname('NFEAMBDEST').asinteger = 1 then InfEvento.tpAmb := taHomologacao; infEvento.versaoEvento := '1.00'; infEvento.cOrgao := codUf; infEvento.chNFe := Chave; infEvento.CNPJ := CNPJ; infEvento.dhEvento := now; infEvento.tpEvento := teCCe; infEvento.nSeqEvento := StrToInt(nSeqEvento); infEvento.detEvento.xCorrecao := Correcao; end; dm2.NFE.EnviarEventoNFe(StrToInt(idLote)); MemoResp.Lines.Text := UTF8Encode(dm2.NFE.WebServices.EnvEvento.RetWS); memoRespWS.Lines.Text := UTF8Encode(dm2.NFE.WebServices.EnvEvento.RetornoWS); LoadXML(MemoResp, WBResposta); Caso alguem souber como resolver estarei no aguardo sem mais

Eu achei em um post aqui mesmo no forum que manda add units RlConsts; e initialization RLConsts.SetVersion(3,71,'B'); end. no fim da tela do menu do sistema obrigado.

boa tarde! Estou passando a impressao do boleto para o fortsreport, sempre que eu vou imprimir ou visualizar um boleto ele da a seguinte menssagem : Sistema não esta de acordo com a versão do FortesReport. Versão atual 3.71B qual seria a versão correta do forts para usar com o acbr ou se tem que fazer alguma coisa a + sem mais. desde ja Agradeço.

Bom dia! Estou com um problema em alguns clientes onde algumas maquinas não imprime o cod de barras.... nos usamos o QuickReport para a impressao dos boletos dei uma olhada em alguns foruns e dizia que isso era pau do Quick tenho minhas duvidas..... Pois caso fosse pau no Quick daria este problema em todos os clientes..... sem mais. Desde ja Agradeço.

Boa Tarde Juliana segue anexo os arquivos para analise Sem mais ACBrBoletoFCQuickFr.zip

boa tarde eu estou usando o quick report. Att