Leao

Valeu Juliomar.

Olá Rafael Dias, cara você tem tal classe messionada. Daniel Simoes, tem algum exemplo? Pessoal que conseguio resolver o problema, por favor detalhe estou nessa pendência ainda... Obrigado, Leão

Olá Juliana Tamizou, atualizar SVN banco do nordeste, em anexo acima... Obrigado, Leão

Olá EMBarbosa desculpe minha ignorância, atualizei pelo SVN, revision 8266 (em 02/02/2015) e compilei, uso delphi7, e continua informando file not found: 'PNGImage.dcu' linha 6 estou testando exemplo da pasta D:\Acbr\Exemplos\ACBrConsultaCPF\Delphi Obrigado... Leão

Olá EMBarbosa, que dizer procedure TACBrConsultaCPF.Captcha(Stream: TStream); begin try HTTPGet('http://www.receita.f...rCaptcha.asp'); if HttpSend.ResultCode = 200 then begin HTTPSend.Document.Position := 0; Stream.CopyFrom(HttpSend.Document, HttpSend.Document.Size); Stream.Position := 0; end; Except on E: Exception do begin raise EACBrConsultaCPFException.Create('Erro na hora de fazer o download da imagem do captcha.'+#13#10+E.Message); end; end; end; sobre o erro não encontra PNGImage.dcu inclusive baixe ACBrConsultaCPF.rar continua o mesmo erro. uso delphi7 Obrigado, se alguém conseguio por favor...

Olá pessoal fiz uma pequena correção no numerodocumento que estar com tamanho 10, mas o correto é 9. Na linha 247 padL( NumeroDocumento, 9) + //o correto é 10, mas para corrigir inf.9 Conforme manual página 6, informa 7 mas com 9 passou na homologação. uso delphi7 Em anexo, por favor moderadores testar e subir... ACBrBancoNordeste.rar Obrigado, Leão

Olá pessoal, apliquei a rotina acima, e continua dando erro PNGImage.dcu Atualizei re-compilei o ACBrTCP.dpk e contiua o erro acima informado Uso delphi7. estou usando o exemplo atualizado revision 8255 Obrigado e aguardo... Leão

Olá, uso remessa bradesco a vários anos, já ocorreu recentemente essa mensagem, na verdade era o tamanho do arquivo, tenta renomear para um nome menor, outro detalhe o nome da cidade BRAGANÇA, tenta tirar o Ç. Obrigado, Leão

Geralmente o banco cobra uma taxa, mas o usuário faz isso no próprio site do banco. Leão

Olá, cara com certeza tem que fala com o gerente e fazer a homologação, a questão com ou sem registro o componente tem esse recurso... Obrigado, Leão

Falta detalhes do que realmente estar acontecendo, o valor de juros dia, você faz o calculo apenas informa o valor....

Olá pessoal, foi resolvido obtendo suporte do fabricante gertec, melhor ler do próprio banco de dados. Obrigado, Leão

Olá Daniel, preciso instalar terminal da Gertec, busca preço, e pretendo usar o ACBrMonitor, não encontrei essa opção, conforme sua informação, e a imagem em anexo não visualiza. Trabalho com delphi7, se possível detalhe um pouco sobre esse serviço. outro detalhe você estar referindo ACBrMonitor da pasta D:\Acbr\Projetos\ACBrNFeMonitor2 Obrigado, Leão

Olá Daniel, preciso instalar terminal da Gertec, busca preço, e pretendo usar o ACBrMonitor, não encontrei essa opção, conforme sua informação, e a imagem em anexo não visualiza. Trabalho com delphi7, se possível detalhe um pouco sobre esse serviço. outro detalhe você estar referindo ACBrMonitor da pasta D:\Acbr\Projetos\ACBrNFeMonitor2 Obrigado, Leão

Olá, a maneira que encontrei crie dois edit1, apenas e troquei o ponto por virgula, deu certo, veja fonte: Edit1.Text:=Node.ChildNodes['aliqNac'].Text; Edit1.Text:=StringReplace(Edit1.Text,'.',',',[rfReplaceAll,rfIgnoreCase]); Edit2.Text:=Node.ChildNodes['aliqImp'].Text; Edit2.Text:=StringReplace(Edit2.Text,'.',',',[rfReplaceAll,rfIgnoreCase]); TabGlobal.DIbpt.Inclui(Nil); TabGlobal.DIbpt.NCM.Conteudo := Node.ChildNodes['ncm'].Text; if Node.ChildNodes['ex'].Text<>'' then TabGlobal.DIbpt.EX.Conteudo := Node.ChildNodes['ex'].NodeValue; TabGlobal.DIbpt.TABELA_NR.Conteudo := Node.ChildNodes['tabela'].NodeValue; if Node.ChildNodes['aliqNac'].NodeValue>0 then TabGlobal.DIbpt.fieldByName('ALIQ_NACIONAL').Value :=StrToFloat(Edit1.Text) else TabGlobal.DIbpt.ALIQ_NACIONAL.Conteudo := 0.00; if Node.ChildNodes['aliqImp'].NodeValue>0 then TabGlobal.DIbpt.ALIQ_INTERNACIONAL.Conteudo := StrToFloat(Edit2.Text) else TabGlobal.DIbpt.ALIQ_INTERNACIONAL.Conteudo := 0.00; if Node.ChildNodes['descricao'].Text<>'' then TabGlobal.DIbpt.DESCRICAO.Conteudo :=copy(UpperCase(RemoveAcentos(Node.ChildNodes['descricao'].Text)),1,254); TabGlobal.DIbpt.Post; Application.ProcessMessages; end; //se not Obrigado, Leão

Olá, fiz o download da tabela IBPTax.xml,através de (svn://svn.code.sf.net/p/acbr/code/trunk/Exemplos/ACBrIBPTax/tabela/AcspDeOlhoNoImpostoIbptV.0.0.2.csv) criado pelo Régys Silveira Delphi 7, componentet XMLDocument1, firebird 2.1xx, windows xp, mas não é configuração regionais, já pesquisei a dois dias e anda... estou importando mas os campos porém os númericos aliqNac e aliqImp, estão salvando errado parece que multiplica por 100, exemplo: <?xml version="1.0" encoding="ISO-8859-1" ?> - <IBPTax> - <imposto> <ncm>01012100</ncm> <ex /> <tabela>0</tabela> <aliqNac>26.75</aliqNac> <aliqImp>27.35</aliqImp> <descricao>--Reprodutores de raça pura</descricao> </imposto> - <imposto> <ncm>01013000</ncm> <ex /> <tabela>0</tabela> <aliqNac>26.75</aliqNac> <aliqImp>29.5</aliqImp> <descricao>-Asininos</descricao> </imposto> - <imposto> Observe que aliqNac 26.75 ao salvar para o banco de dados ficar 2675,00 aliqImp 27.35 2735,00 29.5 295,00 assim por diante, já usei várias maneiras formatavalor(aliqNac,2), ao visualizar em showmessage() mostra inteiro 26.75 fica 2675. No fonte: TabGlobal.DIbpt.Inclui(Nil); TabGlobal.DIbpt.NCM.Conteudo := Node.ChildNodes['ncm'].Text; // if Node.ChildNodes['ex'].NodeValue<>0 then // TabGlobal.DIbpt.EX.Conteudo := Node.ChildNodes['ex'].NodeValue; TabGlobal.DIbpt.TABELA_NR.Conteudo := Node.ChildNodes['tabela'].NodeValue; if Node.ChildNodes['aliqNac'].NodeValue>0 then TabGlobal.DIbpt.fieldByName('ALIQ_NACIONAL').Value :=Node.ChildNodes['aliqNac'].NodeValue else TabGlobal.DIbpt.ALIQ_NACIONAL.Conteudo := 0.00; if Node.ChildNodes['aliqImp'].NodeValue>0 then TabGlobal.DIbpt.ALIQ_INTERNACIONAL.Conteudo := Node.ChildNodes['aliqImp'].NodeValue else TabGlobal.DIbpt.ALIQ_INTERNACIONAL.Conteudo := 0.00; if Node.ChildNodes['descricao'].Text<>'' then TabGlobal.DIbpt.DESCRICAO.Conteudo :=copy(UpperCase(Node.ChildNodes['descricao'].Text),1,254); TabGlobal.DIbpt.Post; Alguém já passou por isso? Obrigado, Leão IBPTax.rar

Olá João Lenosi, como consegui homologar o banco do nordeste se na posição inicial do vencimento é 121 e o fonte gera na 122. postei logo abaixo, para solucionar diminuir o tamanho do docto de 10 para 9, justamente para o vencimento ficar na posição 121 Por favor, detalhes... Obrigado, Leão

obrigado,

Realmente isso mesmo, no dia seguinte ficou normalizada..., bonito que eles não comunica nada... Obrigado, Leão

Olá pessoal, pela manhã estava emitindo nf-e normalmente a tarde estar ocorrendo a seguinte mensagem Falha ao Enviar: Nota(s) não confirmadas 19974 - 2999 - Falha não tratada. =======detalhes============= o número 19974 é o numero da nf-e, já foi testado várias notas alguém estar passando por isso, Maranhão veja o retorno <retConsReciNFe xmlns="http://www.portalfiscal.inf.br/nfe" versao="2.00"><tpAmb>1</tpAmb><verAplic>SVAN_3.1.0</verAplic><nRec>214000151005435</nRec><cStat>104</cStat><xMotivo>Lote processado</xMotivo><cUF>21</cUF><protNFe xmlns="http://www.portalfiscal.inf.br/nfe" versao="2.00"><infProt Id="ID421140004610634"><tpAmb>1</tpAmb><verAplic>SVAN_3.1.0</verAplic><chNFe>21140305517740000113550010000199731000199738</chNFe><dhRecbto>2014-03-10T17:55:23</dhRecbto><nProt>421140004610634</nProt><digVal>WW0RVSSE4C5VVACrln1XZhQSkm8=</digVal><cStat>999</cStat><xMotivo>2999 - Falha nao tratada</xMotivo></infProt></protNFe></retConsReciNFe> Obrigado e aguardo Leão 21140305517740000113550010000199731000199738-nfe.xml

Olá Romuloads, sobre sua 3º e 4º pergunta, veja: 3º - O componente gera o arquivo remessa conforme bco.bradesco, já estar em uso, no net empresa você pode escolher a opção Teste ou enviou normal; 4º - Na verdade talvez não precise ligar, se ocorrrer algum erro no seu arquivo remessa a ele informa a posição e linha, muito simples, mas existe um telefone netempresa 3003-1000 Arquivo retorno também funciona normalmente, para você dar baixa no contas a receber... Obrigado, Leão

Olá Joaolenosi, para solucionar o problema provisoriamente apenas modifiquei o tamanho do NumeroDocumento para 9, justamente para subtrair um space(1), o arquivo foi importado pelo site do banco do nordeste. procedure TACBrBancoNordeste.GerarRegistroTransacao400(ACBrTitulo :TACBrTitulo; aRemessa: TStringList); var DigitoNossoNumero, Ocorrencia, aEspecie, aAgencia :String; Protesto, TipoSacado, MensagemCedente, aConta :String; wLinha: String; begin with ACBrTitulo do begin DigitoNossoNumero := CalcularDigitoVerificador(ACBrTitulo); aAgencia := IntToStrZero(StrToIntDef(OnlyNumber(ACBrBoleto.Cedente.Agencia),0),4); aConta := IntToStrZero(StrToIntDef(OnlyNumber(ACBrBoleto.Cedente.Conta),0),7) + IntToStrZero(StrToIntDef(trim(ACBrBoleto.Cedente.ContaDigito),0),1); {Pegando Código da Ocorrencia} case OcorrenciaOriginal.Tipo of toRemessaBaixar : Ocorrencia := '02'; {Pedido de Baixa} toRemessaConcederAbatimento : Ocorrencia := '04'; {Concessão de Abatimento} toRemessaCancelarAbatimento : Ocorrencia := '05'; {Cancelamento de Abatimento concedido} toRemessaAlterarVencimento : Ocorrencia := '06'; {Alteração de vencimento} toRemessaAlterarNumeroControle : Ocorrencia := '08'; {Alteração de seu número} toRemessaProtestar : Ocorrencia := '09'; {Pedido de protesto} toRemessaCancelarInstrucaoProtestoBaixa : Ocorrencia := '18'; {Sustar protesto e baixar} toRemessaCancelarInstrucaoProtesto : Ocorrencia := '19'; {Sustar protesto e manter na carteira} toRemessaOutrasOcorrencias : Ocorrencia := '31'; {Alteração de Outros Dados} else Ocorrencia := '01'; {Remessa} end; {Pegando Especie} if trim(EspecieDoc) = 'DM' then aEspecie:= '01' else if trim(EspecieDoc) = 'NP' then aEspecie:= '02' else if trim(EspecieDoc) = 'NS' then aEspecie:= '03' else if trim(EspecieDoc) = 'CS' then aEspecie:= '04' else if trim(EspecieDoc) = 'ND' then aEspecie:= '11' else if trim(EspecieDoc) = 'DS' then aEspecie:= '12' else aEspecie := EspecieDoc; {Pegando campo Intruções} if (DataProtesto > 0) and (DataProtesto > Vencimento) then Protesto := '06' + IntToStrZero(DaysBetween(DataProtesto,Vencimento),2) else if Ocorrencia = '31' then Protesto := '9999' else Protesto := padR(trim(Instrucao1),2,'0') + padR(trim(Instrucao2),2,'0'); {Pegando Tipo de Sacado} case Sacado.Pessoa of pFisica : TipoSacado := '01'; pJuridica : TipoSacado := '02'; else TipoSacado := '99'; end; with ACBrBoleto do begin if Mensagem.Text<>'' then MensagemCedente:= Mensagem[0]; wLinha:= '1' + // ID Registro Space(16) + // Filler - Brancos padR( aAgencia, 4, '0') + // Cód. da Agência do cliente IntToStrZero(0, 2) + // Filler - Zeros padR( aConta, 7, '0') + // Conta Corrente de Cobrança + Dígito da Conta Corrente padR( Cedente.ContaDigito, 1, '0') + // Dígito da conta corrente IntToStrZero( round( PercentualMulta), 2) + // Percentual de Multa por atraso Space(4) + // Filler - Brancos padL( SeuNumero,25,' ') + // Numero de Controle do Participante NossoNumero + DigitoNossoNumero + padR( '0', 10, '0') + //Número do Contrato para cobrança caucionada/vinculada. Preencher com zeros para cobrança simples padR( '0', 6, '0') + //Número do Contrato para cobrança caucionada/vinculada. Preencher com zeros para cobrança simples IntToStrZero(round( ValorDesconto * 100), 13) + Space(8) + // Filler - Brancos IntToStr(StrToInt(Carteira)) + // Carteira a ser utilizada Ocorrencia + // Ocorrência padL( NumeroDocumento, 9) + //o padrão é 10 modifiquei para 9 para o campo vencimento ficar na posição 121. FormatDateTime( 'ddmmyy', Vencimento) + IntToStrZero( Round( ValorDocumento * 100 ), 13) + StringOfChar('0',7) + Space(1) + padl(aEspecie,2) + 'N' + // Zeros + Filler + Especie do documento + Idntificação(valor fixo N) FormatDateTime( 'ddmmyy', DataDocumento ) + // Data de Emissão Protesto + IntToStrZero( round(ValorMoraJuros * 100 ), 13) + IfThen(DataDesconto < EncodeDate(2000,01,01),'000000', FormatDateTime( 'ddmmyy', DataDesconto)) + IntToStrZero( round( ValorDesconto * 100 ), 13) + IntToStrZero( round( ValorIOF * 100 ), 13) + IntToStrZero( round( ValorAbatimento * 100 ), 13) + TipoSacado + padR(OnlyNumber(Sacado.CNPJCPF),14,'0') + padL( Sacado.NomeSacado, 40, ' ') + padL( Sacado.Logradouro + ' ' + Sacado.Numero, 40, ' ') + padL( Sacado.Complemento, 12, ' ') + padL( Sacado.CEP, 8 ) + padL( Sacado.Cidade, 15 ) + padL( Sacado.UF, 2 ) + padl( MensagemCedente, 40 ) + '991' + IntToStrZero(aRemessa.Count + 1, 6); // Nº SEQÜENCIAL DO REGISTRO NO ARQUIVO aRemessa.Text:= aRemessa.Text + UpperCase(wLinha); end; end; end; ACBrBancoNordeste.pas

Olá Juliomar, segundo João, fez correções inclusive em outros bancos, veja link: Obrigado, Leão

Olá João, o boleto ACBrBancoNordeste, estar gerando o arquivo remessa na possição122, referente ao vencimento, conforme manual do banco e inclusive modifiquei o arquivo gerado e passou, tem que ser na possição 121. O componente atual estar gerando na possição 1 a mais. Postei o erro no endereço Obrigado aguardo, Leão

alguém usa banco do Nordeste...