Sugestão Para Carga Balança Filizolla

[Valdir Dill]

Bom dia,

A função procedure TACBrCargaBal.PreencherFilizola(Arquivo, Setor, Nutricional, Receita: TStringList) da ACBrCargaBal.pas está alimentando a lista de setor mesmo se não tiver sido informado setor.

Sugiro alterar essa procedure (PreencherFilizola) na ACBrCargaBal.pas 
De:
    Setor.Add(
      RFill(Produtos.Setor.Descricao, 12) +
      LFIll(Produtos.Codigo, 6) +
      LFIll(i + 1, 4) +
      LFill(Produtos.Tecla, 3)
    );

Para:
    if Produtos.Setor.Descricao <> '' then
    Setor.Add(
      RFill(Produtos.Setor.Descricao, 12) +
      LFIll(Produtos.Codigo, 6) +
      LFIll(i + 1, 4) +
      LFill(Produtos.Tecla, 3)
    );

Envio unit já alterada, em anexo.

Obrigado.

ACBrCargaBal.pas

[BigWings]

Em 19/04/2019 at 08:12, valdirdill disse:

    if Produtos.Setor.Descricao <> '' then
    Setor.Add(
      RFill(Produtos.Setor.Descricao, 12) +
      LFIll(Produtos.Codigo, 6) +
      LFIll(i + 1, 4) +
      LFill(Produtos.Tecla, 3)
    );

Não é preciso incluir uma condição para gerar a linha caso não seja informado o setor, mas seja informada a tecla associada ao produto?

[Valdir Dill]

19 horas atrás, BigWings disse:

Não é preciso incluir uma condição para gerar a linha caso não seja informado o setor, mas seja informada a tecla associada ao produto?

Bom dia,

Não entendia sua paergunta @BigWings

O que ocorre é que quero gerar apenas o arquivo CADTXT.TT, mas não gerar o SETORTXT.txt.

Por isso informo os dados do produto, sem informar nada dos dados do setor. Imagino que fazendo dessa forma, ou seja, não informando dados do setor, não deveria gerar o SETORTXT.txt. Por isso fiz essa sugestão. 

 

Obrigado.

[BigWings]

Em 21/04/2019 at 07:30, valdirdill disse:

Não entendia sua paergunta @BigWings

O que ocorre é que quero gerar apenas o arquivo CADTXT.TT, mas não gerar o SETORTXT.txt.

Pergunto se não vai haver perda de uma informação (a tecla associada ao produto) com essa alteração.

Pelo que entendi a tecla associada ao produto é informada no arquivo SETORTXT.txt.

[EMBarbosa]

Em 19/04/2019 at 09:12, valdirdill disse:

Bom dia,

A função procedure TACBrCargaBal.PreencherFilizola(Arquivo, Setor, Nutricional, Receita: TStringList) da ACBrCargaBal.pas está alimentando a lista de setor mesmo se não tiver sido informado setor.

ACBrCargaBal.pas 55 kB · 1 download

 

10 horas atrás, BigWings disse:

Pergunto se não vai haver perda de uma informação (a tecla associada ao produto) com essa alteração.

Pelo que entendi a tecla associada ao produto é informada no arquivo SETORTXT.txt.

Enviei ao SVN uma alteração baseada na do Valdirdill, mas levando em conta o que o BigWings mencionou, na revisão 16926.

Assim, o arquvo Setor vai ser gerado apenas se for preenchido pelo menos a descrição ou a tecla para o produto.

Queiram por favor atualizar, testar e reportar qualquer problema.

[Valdir Dill]

16 minutos atrás, EMBarbosa disse:

 

Enviei ao SVN uma alteração baseada na do Valdirdill, mas levando em conta o que o BigWings mencionou, na revisão 16926.

Assim, o arquvo Setor vai ser gerado apenas se for preenchido pelo menos a descrição ou a tecla para o produto.

Queiram por favor atualizar, testar e reportar qualquer problema.

Boa noite,

A tua alteração funcionou, mas a property Tecla é do tipo integer.  

Então precisa mudar de: if (Produtos.Setor.Descricao <> '') or (Produtos.Tecla <> '') then

Para: if (Produtos.Setor.Descricao <> '') or (Produtos.Tecla > 0) then

Teste e está funcionando corretamente, ou seja, gerando apenas o CADTXT

Obrigado.

 

[EMBarbosa]

6 minutos atrás, valdirdill disse:

Boa noite,

A tua alteração funcionou, mas a property Tecla é do tipo integer.  

Então precisa mudar de: if (Produtos.Setor.Descricao <> '') or (Produtos.Tecla <> '') then

Para: if (Produtos.Setor.Descricao <> '') or (Produtos.Tecla > 0) then

Teste e está funcionando corretamente, ou seja, gerando apenas o CADTXT

Obrigado.

 

Você tem toda razão. Já corrigi. Muito obrigado.