Ir para conteúdo
  • Cadastre-se

dev botao

ACBrCargaBal1


  • Este tópico foi criado há 1186 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Bom dia após atualizar o acbr deu erro na propriedade Tecla

 

ACBrCargaBal1.Produtos.New.Tecla 

 

como devo proceder

3 minutos atrás, Dfox disse:

Bom dia após atualizar o acbr deu erro na propriedade Tecla

 

ACBrCargaBal1.Produtos.New.Tecla 

 

como devo proceder

meu código

  redtProdlog.Text := '';
  frmmodulo.qrproduto.Close;
  frmmodulo.qrproduto.SQL.Clear;
  frmmodulo.qrproduto.SQL.Add('select * from c000025 where situacao = 0 and USA_BALANCA = 1 order by codigo');
  frmmodulo.qrproduto.open;

  frmmodulo.qrreceita.Close;
  frmmodulo.qrreceita.SQL.Clear;
  frmmodulo.qrreceita.SQL.Add('select * from c000024 order by codigo');
  frmmodulo.qrreceita.Open;

  try
    // definição do modelo do arquivo, utilizado para padronizar o layout
    // conforme a balança para a qual se vai gerar o arquivo
    ACBrCargaBal1.Modelo := TACBrCargaBalModelo(cbxModelo.ItemIndex);

    // adição dos itens que serão gerados no arquivo
    ACBrCargaBal1.Produtos.Clear;

    frmmodulo.qrproduto.First;
    while not frmModulo.qrproduto.Eof do
    begin
      redtProdlog.Lines.Add(frmmodulo.qrproduto.fieldbyname('produto').AsString);

      with ACBrCargaBal1.Produtos.New do
      begin
        ModeloEtiqueta  := 1;
        Tipo            := tpvPeso;
        Codigo          := StrToInt(frmmodulo.qrproduto.fieldbyname('codigo').AsString);//I;
        Descricao       := frmmodulo.qrproduto.fieldbyname('produto').AsString;//Format('Descricao item %d', [I]);
        if frmmodulo.qrproduto.FieldByName('PRECO_PROMOCAO').AsFloat <> 0 then
        begin
          if (Date >= frmmodulo.qrproduto.FieldByName('DATA_PROMOCAO').AsDateTime) and (Date <= frmmodulo.qrproduto.FieldByName('FIM_PROMOCAO').AsDateTime) then
          begin
            ValorVenda := frmmodulo.qrproduto.fieldbyname('preco_promocao').AsFloat;
          end
          else
            ValorVenda := frmmodulo.qrproduto.fieldbyname('precovenda').AsFloat;
        end
        else
          ValorVenda      := frmmodulo.qrproduto.fieldbyname('precovenda').AsFloat;//1.23;
        Validade        := StrToIntDef(frmModulo.qrproduto.fieldbyname('validade').AsString,0);//15;
        Tecla           := 0;
        InformacaoExtra.Receita         := IfThen(frmmodulo.qrreceita.Locate('codigo', frmmodulo.qrproduto.fieldbyname('codreceita').AsString,[]), frmmodulo.qrreceita.fieldbyname('receita').AsString,'');//Format('Receita do item %d', [I]);
        //Nutricional     := Format('Informação Nutricional do item %d', [I]);;

        frmmodulo.qrinfnutricional_produto.Close;
        frmmodulo.qrinfnutricional_produto.SQL.Clear;
        frmmodulo.qrinfnutricional_produto.SQL.Add('select * from c000028 where codproduto = ''' + frmmodulo.qrproduto.fieldbyname('codigo').AsString + '''');
        frmmodulo.qrinfnutricional_produto.Open;

        if frmmodulo.qrinfnutricional_produto.RecordCount > 0 then
        begin
          Nutricional.Codigo:= StrToInt(frmModulo.qrinfnutricional_produto.fieldbyname('codigo').AsString);//I;
          Nutricional.Qtd :=1;
          Nutricional.UndPorcao := tpGramas;
          Nutricional.PartInteira :=1;
          Nutricional.PartDecimal:= tpPara12;
          Nutricional.MedCaseira := tpColherSopa;
          Nutricional.ValorEnergetico := frmModulo.qrinfnutricional_produto.fieldbyname('valor_calorico').AsInteger;//20;
          Nutricional.Carboidrato := frmModulo.qrinfnutricional_produto.fieldbyname('carboidratos').AsFloat;//2;
          Nutricional.Proteina := frmModulo.qrinfnutricional_produto.fieldbyname('proteinas').AsFloat;//3;
          Nutricional.GorduraTotal:= frmModulo.qrinfnutricional_produto.fieldbyname('gordurastotais').AsFloat;//4;
          Nutricional.GorduraSaturada:= frmModulo.qrinfnutricional_produto.fieldbyname('gordurassaturadas').AsFloat;//5;
          Nutricional.GorduraTrans := frmModulo.qrinfnutricional_produto.fieldbyname('colesterol').AsFloat;//6;
          Nutricional.Fibra := frmModulo.qrinfnutricional_produto.fieldbyname('fibra').AsFloat;//7;
          Nutricional.Sodio := frmModulo.qrinfnutricional_produto.fieldbyname('sodio').AsFloat;//8;
        end;

        Setor.Codigo    := 1; {StrToInt(frmModulo.qrproduto.fieldbyname('codigo').AsString);}
        Setor.Descricao := 'GERAL';
      end;
      frmModulo.qrproduto.Next;
    end;

    // gerar os arquivos para o diretório, informe somente o caminho do diretório
    ACBrCargaBal1.GerarArquivos(frmmodulo.qrconfig.FieldByName('BALANCA_CAMINHO').AsString);
    MessageDlg('Arquivo gerado com sucesso!', mtInformation,[mbOk], 0);

    if Application.MessageBox('Deseja iniciar o software da balança?', 'Aviso', mb_yesno + mb_iconquestion) = idyes then
    begin
      frmmodulo.qrconfig.Open;
      frmPrincipal.Exec_File(frmmodulo.qrconfig.fieldbyname('balanca_programa').AsString);
           //\Filizola\TSC\TSC.exe
    end;

    frmPrincipal.logUC('Exportou Produtos Balanca', 0);
  except
    on E: Exception do
    begin
      // todo erro do componente levanta uma excessão
      MessageDlg('Ocorreu o seguinte erro:' + sLineBreak + E.Message, mtError,[mbOk],0);
    end;
  end;

 Undeclared identifier: 'Tecla'

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1186 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • 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.