Ir para conteúdo
  • Cadastre-se

dev botao

Sugestão Para Carga Balança Filizolla


Ver Solução Respondido por EMBarbosa,
  • Este tópico foi criado há 2063 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro
Postado

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

  • Curtir 2

Valdir Dill

Rio de Janeiro - RJ

 

 

  • Moderadores
Postado
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?

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

  • Membros Pro
Postado
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.

Valdir Dill

Rio de Janeiro - RJ

 

 

  • Moderadores
Postado
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.

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

  • Consultores
Postado
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.

  • Curtir 2

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
  • Membros Pro
Postado
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.

 

  • Curtir 2

Valdir Dill

Rio de Janeiro - RJ

 

 

  • Consultores
  • Solution
Postado
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.

  • Curtir 2

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
×
×
  • 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.

The popup will be closed in 10 segundos...