carga balança Filizola aquirvo Nutricional

[Hetosoft Sistemas]

carga balança Filizola aquirvo Nutricional

Não esta gerando o arquivo  NUTRI.TXT

desde de ja , agradeço a atençao.

 

Porque na funcao 

procedure TACBrCargaBal.PreencherFilizola(stlArquivo, stlSetor, stlNutricional, stlReceita: TStringList);

   Nutricional.Descricao ESTA VAZIA

    if (Produtos[i].Nutricional.Descricao <> '') then
    begin
      stlNutricional.Add(LFIll(Produtos[i].Codigo,6) +
       RFill(Produtos[i].Nutricional.Descricao,35) +
       LFIll(Produtos[i].Nutricional.ValorEnergetico,5) +

 

Nao gerar o arquivo

  // Gerar arquivo de Nutricionais se houverem dados e o arquivo for separado
    if Nutricional.Count > 0 then
    begin
      NomeArquivo := IncludeTrailingPathDelimiter(ADiretorio) + GetNomeArquivoNutricional;
      Nutricional.SaveToFile(NomeArquivo);
      FArquivosGerados.Add(NomeArquivo) ;
    end;

 

 

E ESTOU PREECHENDO 

            InformacaoExtra.Receita := cdsProdutos.FieldByName('BAL_RECEITA').AsString; // Receita

              if cdsProdutos.FieldByName('BAL_QUANT').AsFloat > 0 then
              begin
                Nutricional.Codigo := Codigo;
                Nutricional.Qtd := cdsProdutos.FieldByName('BAL_QUANT').AsInteger;
                Nutricional.PartInteira := cdsProdutos.FieldByName('BAL_PARTEINTEIRA').AsInteger;
                Nutricional.ValorEnergetico := cdsProdutos.FieldByName('BAL_VALORENERGETICO').AsInteger;
                Nutricional.Carboidrato := cdsProdutos.FieldByName('BAL_CARBOIDRATO').AsFloat;
                Nutricional.Proteina := cdsProdutos.FieldByName('BAL_PROTEINA').AsFloat;
                Nutricional.GorduraTotal := cdsProdutos.FieldByName('BAL_GORDURA_TOTAL').AsFloat;
                Nutricional.GorduraSaturada := cdsProdutos.FieldByName('BAL_GORDURA_SATURADA').AsFloat;
                Nutricional.GorduraTrans := cdsProdutos.FieldByName('BAL_GORDURA_TRANS').AsFloat;
                Nutricional.Fibra := cdsProdutos.FieldByName('BAL_FIBRA').AsFloat;
                Nutricional.Sodio := cdsProdutos.FieldByName('BAL_SODIO').AsFloat;

 

 

 

Da Balança toledo   INFNUTRI.TXT  esta tudo ok

[Hetosoft Sistemas]

usei o Demo ACBrCargaBal tambem nao gera 

[Juliomar Marchetti]

Já estou analisando aqui HetoAndrade

 

[Juliomar Marchetti]

@hetoandrade está faltando no exemplo informar uma descrição para o nutricional conforme abaixo

[Hetosoft Sistemas]

desculpa que vacilo , que falta de atenção.

obrigadooooo

[Juliomar Marchetti]

Vou subir isso  nos exemplos para ficar correto !

 

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.