Ir para conteúdo
  • Cadastre-se

dev botao

carga balança Filizola aquirvo Nutricional


Ver Solução Respondido por Juliomar Marchetti,
  • Este tópico foi criado há 1221 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 para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1221 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.