Jump to content
Notícias do ACBr

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

consultoria_sticker.png

Conteúdo para desenvolvedores
 ao vivo de terça a quinta!
Saiba mais

dev.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


botao.png

beneficios.png

carga balança Filizola aquirvo Nutricional


Go to solution Solved by Juliomar Marchetti,

Recommended Posts

  • Usuários SAC

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 post
Share on other sites
  • Solution

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

image.png

  • Like 1
Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
http://www.juliomarmarchetti.com.br
Embarcadero MVP
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil
Link to post
Share on other sites

Obrigado por reportar.

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

Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
http://www.juliomarmarchetti.com.br
Embarcadero MVP
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil
Link to post
Share on other sites
Guest
This topic is now closed to further replies.
×
×
  • Create New...