Leao

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...

Ninguém se habilita....

Ao entrar o arquivo remessa bco.do nordeste, mensagem de erro:(00002) Tamanho do registro inválido Comparei o arquivo enviado pelo próprio sistema instalado localmente do banco, e a diferença estar na posição 121 vencimento. no arquivo gerado pelo componente acbr, começa na posição 122. Como corrigir? Em anexo, no arquivo o primeiro é gerado pelo banco, o de baixo pelo componente acbr. versão svn baixado 6360, estar atualizado. Obrigado, Leãobco_nordeste.txt

Para instalar ACBrGNREGuiaFRpkg.dpk, precisa do FastReport não tenho-o, como faço? por não ter o FastReport o seguinte erro: [Fatal Error] ACBr_BoletoFC_FR.dpk(38): Required package 'fs7' not found [Fatal Error] Required package 'frxDB19' not found Obrigado, Leão

Ok, funciono

Olá, Italo, conforme sua resposta: Isso é muito simples de ser resolvido. Abra o pacote de instalação do componente que questão, remova o QR5RunD7 da lista de requeridos, compila o pacote, vai ser solicitado a você que seja Adicionado uma outra unit, você confirma a adição e por fim manda instalar. quando remove o QR5RunD7, ao compilar ocorre outro erro nesta linha: QR5RunD2005, vcljpg; {$ENDIF} // D2005 ABCr_BoletoFC_Quinck Uso delphi7, quickreport 3.0.9 existe algum lugar que disponibilize a versão 5 ? Obrigado, Leão

Olá Rafael, entendido seu parecer, mas ao abrir a tela não chega em criar a imagem, ocorre o erro, as vezes normaliza e faz a consulta normalmente, mas existe computador na mesma empresa que não faz o processo. Obrigado, Leão

Olá Regis, Estão marcados todos verdes, não mostra nenhum erro, no meu computador, somente em alguns clientes. as vezes mostra esse: List index out of bounds(121) ou JPEG error #53 Já desabilitei farewall, anti-virus, o windows em teste é set. Resposta ao Barbosa: Não é memória, imagem corropida, se fosse ira ocorrer em todos computadores. Agradeço Leão

Olá, foi desabilitado firewal, anti-virus, agora a mensagem é: JPEG error #53 Atualizei os fontes dia 06/10/2013. Estranho que isso acontece somente em uma empresa, no meu computador funciona normalmente. Obrigado... Leão

vou solicitar um teste, o anti-virus, o Avast, depois comunico aqui... Obrigado, Leão

Olá, testei opção ConsultaCNPJ, e funciona legal, aqui em casa, levei para o cliente e mostra o seguinte: List index out of bounds(121) Índice de lista fora de saltos tem que levar algum arquivo junto com aplicação? Obrigado, Leão

Olá Ilotris, pronto a mensagem estar explicitamente clara, no seu fonte informe o número da carteira antes do nosso número... Obrigado, Leão