Acbrcargabal

[Arnaldo Cruz]

Estou gerando a carga para balança URANO TOP MAX II

 

pelo que percebi no acbr est á faltando um procedimento.

 

Na instalação do Integra da URANO é gerado um arquivo com nome do usuário do FTP

 

configuracoes_NomedousuarioFTP.txt

 

este arquivo deve ser replicado(abrir e Salvar com mesmo nome sem modificar nada) para que sua data de alteração seja modificada, pois é pela sua data e hora que é feita a importação automatica para balança.

 

Gerando o Checksum pelo integra da Urano da uma valor diferente do checksum gerado pelo ACBrCarga.

 

Anexo coloquei os dois arquivos o gerado pelo ACBRCarga e pelo Integra da Urano.

 

A unica coisa que está diferete de um pro outro é que o integra da urano mesmo a descrição dos produtos estando com letras maiuscula ele mostra no arquivo somente a primeira letra de cada palavra em maiuscula e as demais em minuscula.

 

Já O ACBrCarga mostra no arquivo da forma que está a descrição do produto está cadastrada.

 

 

Se algum dos colegas puder mim dá uma dica de como concertar isso eu agradeço.

 

 

consegui resolver como abaixo

 

procedure TACBrCargaBal.PreencherUrano(Arquivo: TStringList);
var
  i, Total, xtam: Integer;
  xnutric: string;
  inform : string;
begin

 

  DecimalSeparator := '.';
  Total := Produtos.Count;

  for i := 0 to Total - 1 do
  begin

           

       trocar

 

 

      Arquivo.Add( #10#02 +
      LFIll(Produtos.Codigo, 5) +
      GetTipoProdutoUrano(Produtos.Tipo) +
      RFIll(Produtos.Descricao, 20) +
      FormatCurr('000000.00', Produtos.ValorVenda) +
      LFIll(Produtos.Validade, 4) + 'D');
      xtam := CalcularSoma(Arquivo[Arquivo.Count-1]);
      Arquivo[Arquivo.Count-1] := Arquivo[Arquivo.Count-1] + IntToHex(xtam, 4) + #03;

 

     por

 

 

     inform := LFIll(Produtos.Codigo, 5) +
      GetTipoProdutoUrano(Produtos.Tipo) +
      RFIll(Produtos.Descricao, 20) +
      FormatCurr('000000.00', Produtos.ValorVenda) +
      LFIll(Produtos.Validade, 4) + 'D';
      xtam := CalcularSoma(inform);
      Arquivo.Add( ^P + ^B + inform + LowerCase(IntToHex(xtam, 4)) + ^C);

 

  end;

 

 

end;

Produtos_topmax(geradoACBRCarga).txt

Produtos_topmax(GeradoIntergaUrano).txt

Editado 28 Fevereiro, 2014 por Arnaldo Cruz

[Régys Silveira]

Os arquivos são diferentes, veja o final das linhas.