Dúvida sobre balança toledo MGV6

[AlexBecker]

Estou gerando os arquivos para balança toledo MGV6 e estou com alguns problemas onde ao gerar os arquivos com as informacoes: InformacaoExtra.Receita

utilizo este fonte (trecho):

      while not SqlProdutos.Eof do
      begin
        sReceita := '';
        Validade := SqlProdutosvalidade.AsString;
        sReceita := StringReplace(SqlProdutosDetalhes.AsString, #13#10, ' ', [rfReplaceall]) ;

        //SE DER MAIS DE 999 DIAS DE VALIDADE .. COLOCA 180 (SEIS MESES)
        if (strtoint(Validade) > 999) then
          Validade := ('180');

        iValid := StrToInt(Validade);

        with ACBrCargaBal.Produtos.New do
        begin
          Tipo          := IntToACBrCargaBalTipoVenda(SqlProdutosBalTipoVenda.AsInteger);
          Codigo        := SqlProdutosCODIGO.AsInteger;
          Descricao     := copy(SqlProdutosDESCRICAO.AsString, 1, 35);
          ValorVenda    := SqlProdutosPRC_VENDA.Value;
          Validade      := iValid;
          Teclado.Tecla := SqlProdutosBalTeclaAtalho.AsInteger;

          if (Length(Trim(sReceita)) > 0) then
          begin
            ACBrCargaBal.Produtos.New.InformacaoExtra.Codigo     := SqlProdutosCODIGO.AsInteger;
            ACBrCargaBal.Produtos.New.InformacaoExtra.Receita    := sReceita;
            ACBrCargaBal.Produtos.New.InformacaoExtra.Observacao := sReceita;
          end;

 

-------------------------

Tenho somente 2 produtos gerando informação extra e o arquivo TXTINFO.txt fica assim:

000000                                                                                                    Testando informacoes nutricionais                                                                                                                                                                                                                                                                               000000                                                                                                    O tempo passa, o bom gosto continua.  Anos 80 90 as melhores até h                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               já no itens MGV fica assim:

 

020000181002190180CURRY                                             0000000000000000110000000000000000000000000000000000000000000000000000000000000000
000000000000000000                                                  0000000000000000110000000000000000000000000000000000000000000000000000000000000000
000000000000000000                                                  0000000000000000110000000000000000000000000000000000000000000000000000000000000000
000000000000000000                                                  0000000000000000110000000000000000000000000000000000000000000000000000000000000000
020000117002490180AÇAFRÃO                                           0000000000000000110000000000000000000000000000000000000000000000000000000000000000
000000000000000000                                                  0000000000000000110000000000000000000000000000000000000000000000000000000000000000
000000000000000000                                                  0000000000000000110000000000000000000000000000000000000000000000000000000000000000
000000000000000000                                                  0000000000000000110000000000000000000000000000000000000000000000000000000000000000
 

bem, não consigo ver a ligação entre os dados nos 2 arquivos.

----------------------

no acbrcargabal tem a seguinte função:

function TACBrCargaBalItem.ObterCodigoInfoExtra(AModelo : TACBrCargaBalModelo): Integer;

debugando o código por ai verifiquei que esta função está retornando vazia.

 

procurando no fórum encontrei somente este tópico: 

porém ele não tem a resposta para o que ocorre aqui comigo.

preciso de algum arquivo externo ou programa para gerar isto corretamente? se puderem por gentileza indicar onde estou errando,   Desde já agradeço!!

 

[AlexBecker]

problema resolvido, obrigado a todos! 

linha de erro: with ACBrCargaBal.Produtos.New do  ( new, por isto estava gerando em branco a nova linha ).

[Juliomar Marchetti]

Obrigado por reportar.

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