Acbrcargabal

Arnaldo Cruz · 28 Fevereiro, 2014

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);