Edevair Viesa Junior

Boa tarde. Segue : Result := true try with l_acbr_boleto do begin with Cedente do begin Nome := g_desc_empresa; CNPJCPF := OnlyNumber(g_cnpj_empresa); Logradouro := g_endereco_nf_empresa; CEP := OnlyNumber(g_cep_empresa); NumeroRes := g_numero_empresa; Complemento := g_complemento_empresa; Conta := l_client_CO0200.FieldByName('C_CONTA_BANCO').AsString; ContaDigito := l_client_CO0200.FieldByName('C_DIGITO_CONTA_BANCO').AsString; Agencia := l_client_CO0200.FieldByName('C_AGENCIA_BANCO').AsString; AgenciaDigito := l_client_CO0200.FieldByName('C_DIGITO_AGENCIA_BANCO').AsString; Modalidade := l_client_CO0200.FieldByName('C_VARIACAO').AsString; Convenio := l_client_CO0200.FieldByName('C_NUM_CONVENIO').AsString; CodigoCedente := l_client_CO0200.FieldByName('C_NUM_CONVENIO').AsString; end; with Banco do begin Numero := l_client_CO0200.FieldByName('C_NUM_BANCO').AsInteger; Nome := l_client_CO0200.FieldByName('C_NOME_BANCO').AsString; LayoutRemessa := c240; if l_client_CO0200.FieldByName('C_LAYOUT_CNAB').AsString = 'c400' then begin LayoutRemessa := c400; end; if l_tipo_cobranca = 'Banco do Brasil' then begin TipoCobranca := cobBancoDoBrasil; end else if l_tipo_cobranca = 'Bradesco' then begin TipoCobranca := cobBradesco; end else if l_tipo_cobranca = 'Itaú' then begin TipoCobranca := cobItau; end else if l_tipo_cobranca = 'Santander' then begin TipoCobranca := cobSantander; end else if l_tipo_cobranca = 'CEF' then begin TipoCobranca := cobCaixaEconomica; end else if l_tipo_cobranca = 'HSBC' then begin TipoCobranca := cobHSBC; end else if l_tipo_cobranca = 'Safra' then begin TipoCobranca := cobSafraBradesco; end else if l_tipo_cobranca = 'Sicred' then begin TipoCobranca := cobSicred; end else begin Result := False; end; end; end; except on E:Exception do begin MessageDlg('Erro Ao carregar as Configurações do Boleto nesta CONTA. '+#13#10+#13#10+ 'Erro: '+E.Message, mterror, [mbOk], 0); Result := False; end; end; os dados do banco de dados estão sendo informados corretamente, verifiquei debugando em run time ...

Boa noite, pessoal estou com problemas ao gerar remessa de boleto do banco itau. O número da conta está saindo zero, tanto no Header quanto nas linhas dos títulos, porém o dígito da conta estão saindo, e informo no mesmo momento tanto a conta quanto o seu respectivo dígito e também a agencia que também sai. Dados de agência : 0562 e Conta Corrente 40177-8 O que estou fazendo errado ?? Segue ilustração :

Juliomar, novamente muito obrigado pela resposta. Fiz exatamente como me falou e mesmo assim não rodou. Inclusive neste mesmo micro já tinha instalado, só atualizei. Aí mãos à obra, e compilei os pacotes separados, como era no início do projeto ACBr e eis que achei o problema. Na unit ACBrNFe, no método NotasFiscais.Items[0].Imprimir; falta o parâmetro (l_impresso : boolean). Inclui True como parâmetro e aí compilou, o mesmo aconteceu em ACBrECFVirtualNFCe (linhas 707, 710 e 730) no mesmo método, também corrigi e funcionou. Será que meus arquivos estão errados ???? Sabe dizer o que é este parâmetro ??? Junior

Atualizei sim, até exclui a instalação inteira e refiz tudo. Permanece o erro. Será que é por quê estou instalando no delphi 7 ?? Muito Obrigado !

Juliomar, muito obrigado por responder. Amigo tentei exatamente como você disse e deu o mesmo erro. Segue em anexo o arquivo log completo. Será que se eu excluir a instalação com o apagar_acbr e depois tentar novamente o svn resolve ??? log_Delphi_7.txt

Boa tarde. Atualizei o svn e tentei fazer a instalação dos pacotes ACBR porém esta dando erro conforme log abaixo orland Delphi Version 15.0 Copyright (c) 1983,2002 Borland Software Corporation C:\Program Files (x86)\Borland\Delphi7\Projects\ACBr\Fontes\ACBrDFe\ACBrNFe\ACBrNFe.pas(667) Error: Not enough actual parameters C:\Program Files (x86)\Borland\Delphi7\Projects\ACBr\Fontes\ACBrDFe\ACBrNFe\DANFE\ACBrNFeDANFEClass.pas(214) Fatal: Could not compile used unit 'ACBrNFe' Compilation failure Erro ao compilar o pacote "ACBr_NFe.dpk". Abortando... Ocorreram erros na compilação dos pacotes. O que fiz de errado ? Junior

Pessoal, estou tentando substituir uma UDF que usava com o firebird 2.1, pois estou migrando para o firebird 2.5. No firebird 2.5 não conseguí de forma alguma fazer esta UDF funcionar, então estou tentando outras formas mas está difícil e nem sei se o que estou tentando fazer existe. O problema é o seguinte: Eu criei a seguinte stored procedure no firebird: SET TERM ^ ; CREATE OR ALTER PROCEDURE F_CODIFONPT_BR ( i_string varchar(500)) returns ( c_string varchar(500) collate pxw_intl850) as begin C_STRING = :I_STRING; suspend; end^ SET TERM ; ^ Pois bem, estou tentando usar da seguinte forma : select PR0100.C_COD_PRODUTO, PR0100.C_DESC_PRODUTO, PR0100.C_MODELO_PRODUTO, PR0100.C_TIPO_CODIGO_PRODUTO, PR0100.C_VALOR_UNITARIO_PRODUTO, PR0100.C_QTD_ESTOQUE, PR0100.C_VALOR_CUSTO_PRODUTO, (PR0100.C_VALOR_UNITARIO_PRODUTO - (PR0100.C_VALOR_UNITARIO_PRODUTO * C_PERC_DESCONTO_A_PRODUTO) / 100) as C_VALOR_UNITARIO_PRODUTO_A, (PR0100.C_VALOR_UNITARIO_PRODUTO - (PR0100.C_VALOR_UNITARIO_PRODUTO * C_PERC_DESCONTO_B_PRODUTO) / 100) as C_VALOR_UNITARIO_PRODUTO_B, (PR0100.C_VALOR_UNITARIO_PRODUTO - (PR0100.C_VALOR_UNITARIO_PRODUTO * C_PERC_DESCONTO_C_PRODUTO) / 100) as C_VALOR_UNITARIO_PRODUTO_C, PR0100.C_USA_ESTOQUE_PRODUTO, PR0100.C_PERC_LUCRO_PRODUTO, PR0100.C_ATIVO_PRODUTO from PR0100 where F_CODIFONPT_BR(C_DESC_PRODUTO) LIKE F_CODIFONPT_BR('%' || 'teste' || '%') and (PR0100.C_USA_ESTOQUE_PRODUTO = 'N' or (PR0100.C_QTD_ESTOQUE > 0)) and C_COD_PRODUTO <> '000000000000000' order by C_DESC_PRODUTO Porém preciso usar assim, pois irei implementar na procedure F_CODIFONPT_BR as trocas de acentos, porém ao executar o sql dá o seguinte erro : An error was found in the application program input parameters for the SQL statement. Dynamic SQL Error. SQL error code = -804. Function unknown. F_CODIFONPT_BR. Como consigo resolver ???

Bom dia Pessoal Estou com um problema parecido e gostaria de ver se alguém consegue me ajudar: O arquivo .XML da NFe é do meu fornecedor. Quando tento validar dá o seguinte erro : "Número de Série do Certificado Digital não especificado !" Porém como informei o .XML é do meu fornecedor e não do cliente, aí especifico o número de série com o certificado local (meu cliente) e passa a dar o seguinte erro : "O conjunto de chaves não está definido" Porém é um arquivo válido pois consigo imprimir a danfe e está assinado e consultando no sefaz consta a entrega. Como faço para validar um arquivo de um fornecedor ???

Desencavando o assunto. Estava tudo funcionando com a Elgin Vox até hoje. Começou a dar um erro de "File Acces Denied" para a abertura da Gaveta. Alguém sabe me dizer como resolver ?? Outra coisa, na I9 conforme o colega Jano passou não funcionou, até agora não consigo abrir a gaveta com a I9 por comando, somente o comando automático após a impressão (isso configurado pelo spooler). Muito Obrigado !

As tags de endereço de entrega estão preenchidas no xml porém a danfe do Fast report não possui campo próprio. Na versão do trunk eu usava com o Rave e funcionava, pq na versão do trunk2 não tem ?? Alguma sugestão de como implementar ??

Agora tenho um novo problema, mas bem parecido. Meus clientes mudaram a impressora para I9 e o sistema não funciona com o que colocamos acima com a Vox. Vocês sabem qual a diferença para a I9 ?? Muito Obrigado !

Muito obrigado ! Deu certinho aqui, era mesmo a questão da porta. Abs

Amigo tentei exatamente conforme o exemplo acima sem sucesso. Poderia me auxiliar ?? Segue Linha de código: ACBrECF1.Ativar; ACBrECF1.EnviaComando(#27 + 'v' + #100); Sleep(500); Pergunta, qual a porta que devo usar, sendo que está conectada numa USB e não sei qual é a porta exata. Não abre a gaveta e nem dá erro algum. Muito Obrigado !

Procurei bastante e não encontrei uma solução. Tenho um sistema compilado em delphi 7 .CLX, uso o ACBrNfe para tudo menos para o boleto pois ainda não conseguí fazer funcionar. Tenho o fortes report instalado para versão .CLX porém neste mesmo sistema eu o uso para gerar meus relatórios. Na versão do boleto o fortes não compila com a versão .CLX Gostaria de saber como faço pra usar o boleto em .clx ?? Se alguém puder me ajudar eu agradeço muito. Muito Obrigado !