ACBrCargaBal1

[Dfox]

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'

[Antonio Luiz]

acho deve usar (Teclado.tecla)

no diretório trunk2\Exemplos\ACBrDiversos\ACBrCargaBal tem um exemplo.

[Dfox]

3 horas atrás, Antonio Luiz disse:

acho deve usar (Teclado.tecla)

no diretório trunk2\Exemplos\ACBrDiversos\ACBrCargaBal tem um exemplo.

Antônio vai ser isso mesmo

Teclado.Tecla := 0; // Código da Tecla

mudei aqui deu certo

[Juliomar Marchetti]

Sim olhe no exemplo que foi modificado