Luis Ricardo

Daniel, só para informar estou possando a configuração direto, esta capturando o peso só tem um problema, no display da balanca o peso esta 20900 no sistema quanto captura ele traz 2090 um zero a menos. nao e um peso ou outro é todos faz este corte. este teste é com serial, amanha vou fazer teste com IP posto o resultado. grato.

Bom dia! o arquivo enviado esta correto ?

bom dia! voltando ao trabalho da balança, a toledo mando o protocolo segue em anexo. Protocolos de balanças industriais.pdf

Daniel, bom o sistema em questão é para duas balança distintas, a primeira é para Toledo 9091 rodoviária conexão serial COM1 e a outra é Todelo 8580 rodoviária está por IP MU9091Rodoviario3474053Rev160907.pdf MU_8540_NUMERICO_ANALOGICO_3474192_03-06-07.pdf

acabei de fazer um teste, tirei configuração do componente via codigo, configurei direto no componente, qto aos parametros da balança o tecnico da toledo esteve aqui de deixou configura a serial, neste teste näo foi com IP, no Hiperterminal esta ok, feito isso no arquivo de log aparece tipo de balança, parida, e outras configuraçöes diferente aquelas que coloquei no componente, lembrando que foi direto no componente.

Bom dia! hoje é um novo dia, problema de ontem soluções para hoje. Daniel, desculpa esta insistindo, ontem estava revisando o sistema e apareceu algumas duvidas no ACBrBal para escolher o modelo da balança eu estou fazendo assim (código abaixo) mas na hora que passo os paramentros no log aparece outro tipo de equipamento. bom resolvi omitir e coloque direto no componente o tipo de balança para ver no dava. ficou rápido para capturar o peso no log aparece o tipo de equipamento correto que selecionei, mas ai tem um problema, peso que era para ser 62800 aparece como 6280 o que sera que esta errado. código if acb_Balanca.Ativo then acb_Balanca.Desativar; if (F_DMdados.cdsConfBalCFG_MODELO.AsString = 'balDigitron') then acb_balanca.Modelo := TACBrBALModelo(0); if (F_DMdados.cdsConfBalCFG_MODELO.AsString = 'balFilizona') then acb_balanca.Modelo := TACBrBALModelo(1); if (F_DMdados.cdsConfBalCFG_MODELO.AsString = 'balLider') then acb_balanca.Modelo := TACBrBALModelo(2); if (F_DMdados.cdsConfBalCFG_MODELO.AsString = 'balLucasTec') then acb_balanca.Modelo := TACBrBALModelo(3); if (F_DMdados.cdsConfBalCFG_MODELO.AsString = 'balMagellan') then acb_balanca.Modelo := TACBrBALModelo(4); if (F_DMdados.cdsConfBalCFG_MODELO.AsString = 'balMagna') then acb_balanca.Modelo := TACBrBALModelo(5); if (F_DMdados.cdsConfBalCFG_MODELO.AsString = 'balNenhum') then acb_balanca.Modelo := TACBrBALModelo(6); if (F_DMdados.cdsConfBalCFG_MODELO.AsString = 'balToledo') then acb_balanca.Modelo := TACBrBALModelo(7); if (F_DMdados.cdsConfBalCFG_MODELO.AsString = 'balToledo2180') then acb_balanca.Modelo := TACBrBALModelo(8); if (F_DMdados.cdsConfBalCFG_MODELO.AsString = 'balUrano') then acb_balanca.Modelo := TACBrBALModelo(9); if (F_DMdados.cdsConfBalCFG_MODELO.AsString = 'balUranoPOP') then acb_balanca.Modelo := TACBrBALModelo(10); // --------------------------------------------------------------------------------- if (F_DMdados.cdsConfBalCFG_FLUXO.AsString = 'hsDTR_DSR') then acb_balanca.Device.HandShake := TACBrHandShake(0); if (F_DMdados.cdsConfBalCFG_FLUXO.AsString = 'hsNenhum') then acb_balanca.Device.HandShake := TACBrHandShake(1); if (F_DMdados.cdsConfBalCFG_FLUXO.AsString = 'hsRTS_CTS') then acb_balanca.Device.HandShake := TACBrHandShake(2); if (F_DMdados.cdsConfBalCFG_FLUXO.AsString = 'hsXON_XOFF') then acb_balanca.Device.HandShake := TACBrHandShake(3); // --------------------------------------------------------------------------------- if (F_DMdados.cdsConfBalCFG_PARIDADE.AsString = 'pEven') then acb_balanca.Device.Parity := TACBrSerialParity(0); if (F_DMdados.cdsConfBalCFG_PARIDADE.AsString = 'pMark') then acb_balanca.Device.Parity := TACBrSerialParity(1); if (F_DMdados.cdsConfBalCFG_PARIDADE.AsString = 'pNone') then acb_balanca.Device.Parity := TACBrSerialParity(2); if (F_DMdados.cdsConfBalCFG_PARIDADE.AsString = 'pOdd') then acb_balanca.Device.Parity := TACBrSerialParity(3); if (F_DMdados.cdsConfBalCFG_PARIDADE.AsString = 'pSpace') then acb_balanca.Device.Parity := TACBrSerialParity(4); // --------------------------------------------------------------------------------- if (F_DMdados.cdsConfBalCFG_PARADA.AsString = 's1') then acb_balanca.Device.Stop := TACBrSerialStop(0); if (F_DMdados.cdsConfBalCFG_PARADA.AsString = 's1eMeio') then acb_balanca.Device.Stop := TACBrSerialStop(1); if (F_DMdados.cdsConfBalCFG_PARADA.AsString = 's2') then acb_balanca.Device.Stop := TACBrSerialStop(2); // ---------------------------------------------------------------------------------- acb_balanca.Device.Data := F_DMdados.cdsConfBalCFG_BITDADOS.AsInteger; acb_balanca.Device.Baud := F_DMdados.cdsConfBalCFG_TRANSMISSAO.AsInteger; acb_balanca.Intervalo := F_DMdados.cdsConfBalCFG_INTERVALO.AsInteger; // --------------------------------------------------------------------------------- if (F_DMdados.cdsConfBalCFG_MONITORAR.AsString = 'S') then acb_balanca.MonitorarBalanca := True else acb_balanca.MonitorarBalanca := False; acb_balanca.Porta := Trim(F_DMdados.cdsConfBalCFG_SERIAL.AsString); acb_Balanca.Ativar; balLog

Daniel, a toledo mandou um sistema para verificar o IP e Porta da balança, mesmo assim aparece -9 segue anexo a tela do sistema da toledo.

Daniel baixei as atualizacöes dos componentes, o log esta correto vou fazer um teste no cliente com IP , amanhä posto o resultado.

Daniel, para ser sincero näo se esta ativo ou näo ?

Bom dia, desculpe, a configuração do arquivo de log no meu caso a propriedade do componente ArqLOG esta em branco, deixei assim. outra duvida que surgiu, foi o ACBrBAL no TCP tem que ser conectado com o ACBrTCServer ou não, mas vou tentar com a configuração acima, estou aguardando o técnico da Toledo, passar os parâmetros. grato.

no arquivo apareceu conforme abaixo -9 ---------------------------------------------------------------------------------------------------------- -9

Ok, vou faze novas verificações.

Daniel, fiz um teste na balança do cliente. obtive as seguintes informações. a principio parece que esta encontrando a balança, porque me retornou um erro dizendo peso instável com valor -9, caso näo desse conexão o erro seria outro. coloque os paramentos de que me passaram TRANSMISSAO = 9600 BIT = 8 PARIDADE = pEven PARADA = s2 FLUXO = hsNenhum INTERVALO = 5000 MONITORAR = S SERIAL = TCP:192.168.0.189:8880 vou verificar com a toledo ou sera que tem algo mais para configurar neste caso ?

Daniel, vou fazer as atualizações e um teste, assim que tiver resultados posto o mesmo.

o que quero dize, qdo mando capturar o peso, ex: o correto seria 10500 e retorno 1050, não da para saber quando esta correto. em virtude disso eu criei uma checagem que lê novamente o peso e se for igual continua, mas da um pequeno delei. e qto a conectar TCP/IP estou pesquisando mas estou confuso. grato

Boa tarde, Daniel estou reabrindo este poste para dar continuidade ao projeto. Modelo da Balança Toledo 9190 Rodoviário. estou testando mas ate agora näo deu o erro de valor, fiz uma rotina abaixo o único problema é que a captura näo é instantânea segue abaixo o codigo. acb_Balanca.Ativar; try TimeOut := acb_balanca.Intervalo; //F_DMdados.cdsConfBalCFG_INTERVALO.AsInteger; except TimeOut := 5000 ; end ; ACB_balanca.LePeso(TimeOut); if (ce_valor.Value = 0) then begin if (valor = 0) and (valor > 1000) then begin valor := ce_valor.Value; end; if capitura > 100 then begin ShowMessage('Näo foi possivel conectar a balança, O Ticket será fechado, tente novamente !'); lb_sair.OnClick(Sender); end else begin capitura := capitura+1; if acb_Balanca.MonitorarBalanca = False then acb_balanca.MonitorarBalanca := True; lb_reconectar.OnClick(Sender); end; end else begin if (ce_valor.Value <> valor) then begin capitura := capitura+1; valor := ce_valor.Value; lb_reconectar.OnClick(Sender); end else begin gb_placa.Enabled := True; mk_placa.SetFocus; end; end; procedure TF_Ticket.ACB_balancaLePeso(Peso: Double; Resposta: String); var valid : integer; begin if (not Assigned(FRespostaList)) then FRespostaList := TStringList.Create; if FRespostaList.Count > 0 then FRespostaList.Add(StringOfChar('-', 80)); pn_resposta.Caption := formatFloat('######0.000', Peso); Me_mensagem.Text := Converte(Resposta) ; FRespostaList.Add(pn_resposta.Caption); ce_valor.Value := Peso; if Peso > 0 then begin Me_mensagem.Lines.Text := 'Leitura OK !'; end else begin valid := Trunc(ACB_balanca.UltimoPesoLido); case valid of 0 : Me_mensagem.Lines.Text := 'TimeOut !'+sLineBreak+ 'Coloque o produto sobre a Balança!' ; -1 : Me_mensagem.Lines.Text := 'Peso Instavel ! ' +sLineBreak+ 'Tente Nova Leitura' ; -2 : Me_mensagem.Lines.Text := 'Peso Negativo !' ; -9 : Me_mensagem.Lines.Text := 'Erro de leitura, balança Instável '; -10 : Me_mensagem.Lines.Text := 'Sobrepeso !' ; end; end ; end; um outro problema vai ser o mesmo modelo de balança via TCP/IP näo tenho nem ideia de como ajusta o sistema com essa condição. grato.

Sm problema pode sair sempre na danfe

Bom dia! Henrique é isso mesmo, mesmo na venda A VISTA OU NA A PRAZO O VALOR DA FATURA SEMPRE DEVE APARECER, ISSO NA ATIVIDADE DE PRODUTORES RURAIS. grato e bom domingo e feriado.

Sem problema, como disse acima, deu para resolver colocando as informações no campo adicionais da NF-e, bem porque no XML já consta, essa informação. fico aguardando. grato.

Régys, bom dia acertei com o cliente uma forma paliativa criei uma rotina para os dados adicionais colocando os dados da fatura, resolveu no momento, mas pediram para voltar como estava antes. em relação na implementação dos dados da fatura no fortes report será possível ? grato.

estou usando Fortes Report, estou tendo dificuldade de instalar fast Report se puder implementar fico aguardando. grato.

Régys, para garantir que os componentes estäo atualizados, acabei de baixar e fui instalar, nao esta instalando os relatorios nenhum fast report e fortes report que estou usando, estava no pc certinho e instalado no delphi, usando o instalado do acbr da erro nao instala o que pode ser ? grato.

boa tarde! Régys, é realmente seu pdf esta correto no gerador que estou usando näo esta aparecento os dados da fatura estou usando ACBrNFeDANFeRL

Daniel, destaque como estava no Rave esta em amarelo 6624-rave.pdf

Bom dia! Daniel, sim os dados da parcelas estão saindo. o que estou falando antes das parcela, aparecia os dados da FATURA/DUPLICATAS ex: essa mesma nota em 2 parcela, do jeito que esta só vai aparecer as parcelas(duplicatas) os dados da FATURA não aparece repara que o valor total da nota é diferente do valor a receber da fatura, é justamente a contribuição do INSS (antigo funrural) que não aparece. veja como ficaria no PDF em questão e se fosse efetuado em duas parcelas 6624/1 07/04/2015 20.195,76 - 6624/2 07/05/2015 20.195,77 como estava no Rave numero da fatura valor original valor do desconto valor liquido 6624 41.342,40 950,87 40.391,53 duplicatas 6624/1 07/04/2015 20.195,76 - 6624/2 07/05/2015 20.195,77 a informação da fatura que não aparece mais. grato