Luis Ricardo

Resolvido, o componente ACBr das balança da toledo RODOVIÁRIA em empresa que esta usando a porta seria está funcionando até que bem, mas por IP não deu não, em contato com a toledo do brasil, eles enviaram um soft deles como utilizar a PCLink6.dll, ai eu mudei meu sistema para usar tanto o ACBr qto a PCLink6.dll direto está funcionando blz, caso o pessoal do desenvolvimento queira este modelo da toledo posse enviar, e código aberto.

Boa Noite, não vou abrir outro tópico, creio eu que se encaixa neste. estou com erro no XML do MDF 3.00 segue em anexo

boa tarde! em relação do RBuilder Resolvi, desinstalei tudo apaguei tudo do delphi XE 10 e D7 e RB e instalei D7 e XE7 e RB das Versões pronto deu certo. não sei o que era. mas agora ja da para migrar como estou testando em uma outra maquina o sistema feito em D7 + Firebird 2.0 migrei para Delphi XE7 + Firebird 2.0 e instalei em outra maquina para simular em um cliente na maquina de desenvolvimento funciona normal. mas na outra maquina aparece um erro conforme a imagem, provavelmente refere-se ao DBExpress, quando algumas DLL ref. ao DBExpress mandava para o cliente agora as mesma não da certo.

Daniel Simoes, a versão esta correta, o mais curioso e que alguns relatórios estão saindo mais que 5 paginas grato

Boa Noite, Talvez não seja aqui neste forum, mas ja tetei em outro e nada. Estou fazendo uma migração de Sistema de Deplhi 7 para XE 10 Seattle. Até ai tudo bem, uso com FireBird 2.0, está funcionando legal. Os problemas começou qdo entrei na parte de relatório, no delphi 7 uso Rrport Builder Aparentemente a migração ocorreu blz, mas tem alguns RELATÓRIO NÃO IMPRIMI MAIS QUE 5 PAGINAS e OUTRO IMPRIMI. Já removi tudo ate o delphi e nada. Bom não sei se é relevante esta na mesma maquina o delphi 7 com Report Bulber e Seattle com Report Builder

Juliomar, deu certo ainda bem que é sexta-feira ... obrigado.

Sim, ja faz mais de um ano. segue anexo, a imagem do erro, como pode ver esta exatamente igual a library do delphi 7

Bom dia! Estou tentando instalar os componentes do ACBr no delphi 7 com win10, o delphi 7 antes de instalar está funcionando corretamente, a instalação ocorre normalmente sem problema, mas quando vou iniciar o delphi7 aparece vario erros que não encontra ex: ACBr_NFe.bpl, não são todos creio que a metade instala. O caminho da library aparentemente está correto conforme abaixo C:\ComponentesD7\ACBR\Lib\Delphi\LibD7 este caminho e o que está no delphi justamente o mesmo erro que aparece o que fazer, ja desinstale o delphi removi tudo ate novo dawnload mas acontece a mesma coisa. desde ja fico grato.

Boa Tarde! A Emissão deu certo, está dando certo, esta faltando alguns ajustes de checagem para o usuario mas deu certo, na configuração do componente estava LibCapicomSoap mudei para Capicom foi normal. grato.

Sim, foi só desativar o antivírus que deu certo, mas os erros ref. as imagens anda acontece! usando o Exemplo do ACBrMDF aparece erro de duplicidade.

boa noite! uso o delphi 7, o exemplo ele compila e ja fecha automaticamente, mas antes de baixar a ultima versao tinha dado certo o erro que apareceu foi rejeição em duplicidade

Boa Tarde! Estou tentando sem sucesso enviar MDF-e em teste Homologaçäo ocorre o seguinte erro conforme imagens arq. anexo do xml, a tela3 depois a tela3 grato 35160608006379000230580010000000041607248736-mdfe.xml

Bom dia, fui até o cliente para fazer teste. A comunicação é através da IP. a toledo mando um sistema para localizar a o IP e Porta do equipamento. foi configurado a Porta: TCP:192.168.0.199:8081 mas aparece um erro : Communication error 6: identificador Inválido ele não esta encontrado a comunicação com o equipamento, será que tem algo a mais para ser configurado neste caso ? grato;

Boa Tarde! erick, deu certo a compilação mas não estou conseguindo capturar o peso da balança. o que será que pode ser.

Bom dia, Dipold, como faço para editar o ACBrBal.pas, esta dando erro, entrei e acrescentei o medelo, apos alterar vou ter que instalar o componente novamente ?

Bom dia! Juliana sim foi informado a data do protesto, fiz um teste não informando da data do protesto, no arquivo de remessa não aparece nada dizendo que vai protestar, fica sem informação. grato.

Juliana Boa tarde! A Empresa pediu para o suporte anteder nossa solicitação, já fiz a mudança, mas no arquivo de remessa em anexo enviando no post esta aparecendo ref. ao protesto sempre 26 dias, o que pode ser ? grato

Nenhuma, mandou verificar.

Boa tarde! Estou com um problema e näo sei como resolver, o sistema esta gerando boleto, imprimindo, gerando o arquivo para remessa ate ai parece estar blz, ocorre que o arquivo enviado para o banco Bradesco esta sendo aceito sem rejeição, mas quando o cliente entra no site para verificar a lista dos boleto em banco eles näo aparece. segue abaixo um arquivo de remessa e a estrutura do sistema (fonte) espero que alguém indique a besteira que estou fazendo desde já fico agradecido. procedure TF_GerarRemessaBoletos.lb_gerarClick(Sender: TObject); var TD: TTransactionDesc; MyString:TstringList; ic:Cardinal; vrche:TListItem; Titulo : TACBrTitulo; I : Integer; NrTitulos,Seq,mxseq : Integer; NrTitulosStr :String; Convertido: Boolean; dia,mes:String; begin lb_gerar.Enabled := False; dia:=FormatDateTime('DD',Date); mes:=FormatDateTime('MM',Date); for ic := 0 to lv_boletos.items.count-1 do if lv_boletos.items.item[ic].checked then begin vrche:=lv_boletos.Items.Item[ic]; //obtém o item da linha X MyString := TstringList.Create; MyString.Clear; MyString.Add('select a.bol_codigo, a.bol_codcc, a.bol_nossonumero, a.bol_numtitulo, a.bol_vrtitulo, a.bol_dataemissao,'); MyString.Add('a.bol_datavenc, a.bol_codparceiro, a.bol_nome, a.bol_ntitulo, a.bol_inscricao, a.bol_endereco,'); MyString.Add('a.bol_numero, a.bol_complemento, a.bol_bairro, a.bol_cidade, a.bol_cep, a.bol_uf, a.bol_vrjrsdia,'); MyString.Add('a.bol_vrdescdia, a.bol_abat, a.bol_datajrs, a.bol_datadesc, a.bol_dataabat, a.bol_dataprotesto,'); MyString.Add('a.bol_inst_1, a.bol_inst_2, a.bol_mensagens, a.bol_especie,'); MyString.Add('b.cof_codigo, b.cof_codcc, b.cof_localpgto, b.cof_diasprotesto, b.cof_instrucao_1, b.cof_instrucao_2, b.cof_carteira '); MyString.Add('from st_boleto a '); MyString.Add('inner join st_configboleto b '); MyString.Add('on a.bol_codcc = b.cof_codcc '); MyString.Add('where a.bol_codigo = :a.bol_codigo'); F_GerarRemessaBoletos.cds_bol.Close; F_GerarRemessaBoletos.cds_bol.CommandText:=MyString.Text; F_GerarRemessaBoletos.cds_bol.Params[0].AsInteger := StrToInt(vrche.Caption); F_GerarRemessaBoletos.cds_bol.Open; MyString.Free; while not F_GerarRemessaBoletos.cds_bol.Eof do begin Titulo:= ACBrBoleto1.CriarTituloNaLista; F_DMdados.cdsCCbancos.Close; F_DMdados.cdsCCbancos.CommandText := 'SELECT * FROM STCOTCORRENTE WHERE CC_CODIGO = :CC_CODIGO'; F_DMdados.cdsCCbancos.Params[0].AsInteger := F_GerarRemessaBoletos.cds_bolCOF_CODCC.AsInteger; F_DMdados.cdsCCbancos.Open; if (F_DMdados.cdsCCbancos.RecordCount <> 0) then begin F_DMdados2.cdsParBolBco.Close; F_DMdados2.cdsParBolBco.CommandText := 'SELECT * FROM ST_PARAMBOLETOBCO WHERE COB_CODCC = :COB_CODCC'; F_DMdados2.cdsParBolBco.Params[0].AsInteger := F_GerarRemessaBoletos.cds_bolCOF_CODCC.AsInteger; F_DMdados2.cdsParBolBco.Open; ACBrBoleto1.Cedente.Nome := F_DMdados.cdsCCbancosCC_TITULAR.AsString; if Length(Trim(F_DMdados2.cdsParBolBcoCOB_CNPJ_CPF.AsString)) = 11 then begin ACBrBoleto1.Cedente.TipoInscricao := pFisica; end else begin ACBrBoleto1.Cedente.TipoInscricao := pJuridica; end; ACBrBoleto1.Cedente.CNPJCPF := F_DMdados2.cdsParBolBcoCOB_CNPJ_CPF.AsString; ACBrBoleto1.Cedente.Logradouro := F_DMdados2.cdsParBolBcoCOB_END.AsString+' '+F_DMdados.cdsCCbancosCC_CIDADE.AsString+' '+F_DMdados.cdsCCbancosCC_ESTADO.AsString; ACBrBoleto1.Cedente.Agencia := F_DMdados.cdsCCbancosCC_AGENCIA.AsString; ACBrBoleto1.Cedente.AgenciaDigito := IntToStr(F_DMdados.cdsCCbancosCC_DIGITOAG.AsInteger); ACBrBoleto1.Cedente.Conta := F_DMdados.cdsCCbancosCC_CONTCOR.AsString; ACBrBoleto1.Cedente.ContaDigito := IntToStr(F_DMdados.cdsCCbancosCC_DIGITOCC.AsInteger); ACBrBoleto1.Cedente.CodigoCedente := IntToStr(F_DMdados2.cdsParBolBcoCOB_CODCOBRANCA.AsInteger); ACBrBoleto1.Cedente.TipoCarteira := tctRegistrada; ACBrBoleto1.Cedente.CaracTitulo := tcSimples; end; with Titulo do begin Vencimento := IncMonth(F_GerarRemessaBoletos.cds_bolBOL_DATAVENC.AsDateTime); DataDocumento := F_GerarRemessaBoletos.cds_bolBOL_DATAEMISSAO.AsDateTime; NumeroDocumento := F_GerarRemessaBoletos.cds_bolBOL_NTITULO.AsString; EspecieDoc := F_GerarRemessaBoletos.cds_bolBOL_ESPECIE.AsString; Aceite := atSim; EspecieMod := 'R$'; DataProcessamento := Now; // Parcela := F_GerarRemessaBoletos.cds // TotalParcelas NossoNumero := IntToStr(F_GerarRemessaBoletos.cds_bolBOL_NOSSONUMERO.AsInteger); Carteira := '01'; ValorDocumento := F_GerarRemessaBoletos.cds_bolBOL_VRTITULO.AsCurrency; Sacado.NomeSacado := F_GerarRemessaBoletos.cds_bolBOL_NOME.AsString; Sacado.CNPJCPF := F_GerarRemessaBoletos.cds_bolBOL_INSCRICAO.AsString; Sacado.Logradouro := F_GerarRemessaBoletos.cds_bolBOL_ENDERECO.AsString; Sacado.Numero := F_GerarRemessaBoletos.cds_bolBOL_NUMERO.AsString; Sacado.Bairro := F_GerarRemessaBoletos.cds_bolBOL_BAIRRO.AsString; Sacado.Cidade := F_GerarRemessaBoletos.cds_bolBOL_CIDADE.AsString; Sacado.UF := F_GerarRemessaBoletos.cds_bolBOL_UF.AsString; Sacado.CEP := F_GerarRemessaBoletos.cds_bolBOL_CEP.AsString; ValorAbatimento := F_GerarRemessaBoletos.cds_bolBOL_ABAT.AsCurrency; LocalPagamento := F_GerarRemessaBoletos.cds_bolCOF_LOCALPGTO.AsString; //MEnsagem exigida pelo bradesco ValorMoraJuros := F_GerarRemessaBoletos.cds_bolBOL_VRJRSDIA.AsCurrency; ValorDesconto := F_GerarRemessaBoletos.cds_bolBOL_VRDESCDIA.AsCurrency; DataMoraJuros := F_GerarRemessaBoletos.cds_bolBOL_DATAJRS.AsDateTime; DataDesconto := F_GerarRemessaBoletos.cds_bolBOL_DATADESC.AsCurrency; DataAbatimento := F_GerarRemessaBoletos.cds_bolBOL_DATAABAT.AsDateTime; DataProtesto := F_GerarRemessaBoletos.cds_bolBOL_DATAPROTESTO.AsDateTime; PercentualMulta := 0; Mensagem.Text := F_GerarRemessaBoletos.cds_bolBOL_MENSAGENS.AsString; OcorrenciaOriginal.Tipo := toRemessaRegistrar; CarteiraEnvio := tceCedente; Instrucao1 := F_GerarRemessaBoletos.cds_bolBOL_INST_1.AsString; Instrucao2 := F_GerarRemessaBoletos.cds_bolBOL_INST_2.AsString; ACBrBoleto1.AdicionarMensagensPadroes(Titulo,Mensagem); end; try TD.TransactionID:=1; TD.IsolationLevel:= xilREADCOMMITTED; F_DMdados.SQLConn.StartTransaction(TD); F_DMdados2.cdsBoleto.Close; F_DMdados2.cdsBoleto.CommandText := 'SELECT * FROM ST_BOLETO WHERE BOL_CODIGO = :BOL_CODIGO'; F_DMdados2.cdsBoleto.Params[0].AsInteger := F_GerarRemessaBoletos.cds_bolBOL_CODIGO.AsInteger; F_DMdados2.cdsBoleto.Open; if (F_DMdados2.cdsBoleto.RecordCount <> 0) then begin MyString := TstringList.Create; MyString.Clear; MyString.Add('UPDATE ST_BOLETO SET BOL_REMESSA=:BOL_REMESSA WHERE BOL_CODIGO = :BOL_CODIGO'); F_DMdados2.sdsBoleto.CommandText := MyString.Text; MyString.Free; F_DMdados2.sdsBoleto.ParamByName('BOL_CODIGO').AsInteger := F_GerarRemessaBoletos.cds_bolBOL_CODIGO.AsInteger; F_DMdados2.sdsBoleto.ParamByName('BOL_REMESSA').AsString := 'S'; F_DMdados2.sdsBoleto.ExecSQL; end; F_DMdados.SQLConn.Commit(TD); except on E:Exception do begin F_DMdados.SQLConn.Rollback(TD); ShowMessage('Erro ao tentar INCLUIR o registro: ' + E.Message); Abort; end; end; F_GerarRemessaBoletos.cds_bol.Next; end; F_GerarRemessaBoletos.cds_bol.Close; end; F_DMdados2.cdsSegBol.Close; F_DMdados2.cdsSegBol.CommandText := 'SELECT * FROM ST_BOLNUMEROREMESSA WHERE NRE_CODIGO = :NRE_CODIGO'; F_DMdados2.cdsSegBol.Params[0].AsInteger := 1; F_DMdados2.cdsSegBol.Open; if (F_DMdados2.cdsSegBol.RecordCount <> 0) then begin seq := F_DMdados2.cdsSegBolNRE_NUMERO.AsInteger+1; mxseq := F_DMdados2.cdsSegBolNRE_MXNUMERO.AsInteger+1; end; ACBrBoleto1.NomeArqRemessa := 'CB'+dia+mes+IntToStr(seq)+'.REM'; ACBrBoleto1.GerarRemessa(mxseq); //criar uma seencia em uma base de dados CB070382.REM

Bom dia! Daniel, desculpe a minha pressa, mas vc tem uma previsão para implementação do modelo das balança já enviado, o que mais estou com problema e o modelo Toleto 8580 por IP o cliente que uma resposta, e näo tenho mais argumentos. só essa já resolvia um bocado de problema. fico grato,

No meu caso, o sistema tem um função para capturar o protocolo da nf-e, no exemplo do ACBRNFE tem uma parte sobre isso. está funcionando em todos os clientes.

BoA tarde, resolvi o problema da seguinte forma, apos o erro de rejeição, vou em CAPTURAR PROTOCOLO e pronto é só imprimir.

lucas não é problema de dois certificados instalado na, pq ja fiz isso em um cliente removi e deixei só um certificado, o erro continua.

Feliz Ano Novo!!!! estou com o mesmo problema Rejeição: CNPJ do Transmissor do lote diferente do CNPJ do transmissor da consulta. o que podemos fazer

boa noite, hoje testei na balança por IR , ela parece que esta encontrando porque traz o peso zerado. segue o arquivo de log balLog