Jump to content

dev botao

carga balança Filizola aquirvo Nutricional


Go to solution Solved by Juliomar Marchetti,
  • Este tópico foi criado há 1247 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

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

Link to comment
Share on other sites

  • Este tópico foi criado há 1247 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.

The popup will be closed in 10 seconds...