Ir para conteúdo
  • Cadastre-se

Aldemir Almeida

Membros
  • Total de ítens

    41
  • Registro em

  • Última visita

  • Days Won

    1

Posts postados por Aldemir Almeida

  1. Bom dia, estou informando o responsável técnico  no nfce 

          infRespTec.CNPJ :='27022733000183';
          infRespTec.xContato :='Aldemir Gomes de Almeida Filho';
          infRespTec.email :='[email protected]';
          infRespTec.fone :='993747210';
          infRespTec.idCSRT :=0;
          infRespTec.hashCSRT :='';

     

    esta retornando o esse erro:  'Rejeicao: Falha no schema XML'  (  // MsgErro já está na String Nativa da IDE... por isso deve usar "CreateDef")13190307916960000145650020000000151000000154-nfe.xml

     

     

     

     

     

  2. Resolvido!

    a forma citada a cima está certa!, percebi que no qrItensTempAfterPost, estava percorrendo novamente essa tabela para pegar o valor total, então coloquei uma qrItensTemp.Tag=1, ficou assim:

     

    var
      q2: TQuery;
    begin
      q2:=TQuery.Create(Self);
      q2.DatabaseName:='SISTEMA';

      qrItensTemp.Tag:=1;//Incluir essa tag

      qrItensTemp.DisableControls;//Tabela temporário com dados
      qrItensTemp.First;
      while not qrItensTemp.Eof do
      begin
        q2.Close;//Consulta para pegar novo valor
        q2.SQL.Text:='select vl_venda from tb_item '+
        ' where cod_item=:cod_item';
        q2.ParamByName('cod_item').Value := qrItensTempcod_item.AsInteger;
        q2.Open;

        qrItensTemp.Edit;
        qrItensTempvl_unit.Value := q2.FieldByName('vl_venda').AsFloat;
        qrItensTemp.Post;

        qrItensTemp.Next;
      end;
      qrItensTemp.Enablecontrols;

      qrItensTemp.Tag:=0;//Incluir essa tag

      q2.Close;
      q2.Destroy;

      edtCod.SetFocus;
    end;

    e no  qrItensTempAfterPost dei um exit para não percorrer a tabela 

    if qrItensTemp.Tag=1 then exit;

     

    Obrigado a todos.

    Resolvido!

  3. Boa noite!

     

    Estou tentando atualizar os dados em uma tabela temporária, mas não estou conseguindo, estou utilizando um ClientDataSet. um help por favor! 

    ele só atualiza o primeiro registro.

     

    var
      q2: TQuery;
    begin
      q2:=TQuery.Create(Self);
      q2.DatabaseName:='SISTEMA';

      qrItensTemp.DisableControls;//Tabela temporário com dados
      qrItensTemp.First;
      while not qrItensTemp.IsEmpty do
      begin
        q2.Close;//Consulta para pegar novo valor
        q2.SQL.Text:='select vl_venda from tb_item '+
        ' where cod_item=:cod_item';
        q2.ParamByName('cod_item').Value := qrItensTempcod_item.AsInteger;
        q2.Open;

        qrItensTemp.Edit;
        qrItensTempvl_unit.Value := q2.FieldByName('vl_venda').AsFloat;
        qrItensTemp.Post;

        qrItensTemp.Next;
      end;
      qrItensTemp.Enablecontrols;

      q2.Close;
      q2.Destroy;

      edtCod.SetFocus;
    end;

    .   

  4. Bom dia!

    Eu compilei o ACBrBAL, fiz um teste com uma balança  "Toledo prix 8217" configurei a porta certinho, mais dá erro ao capturar  o peso da balança:

    First chance exception at $75914878. Exception class EConvertError with message '''€'' is not a valid integer value'. Process BalancaTeste.exe (9672).

    Existe alguma configuração diferente que eu não estou fazendo?

     

     

     

    01.png

  5. Boa noite!

    Estou quebrando a cabeça para cortar o papel do impressora bematech  4200 th , já tentei usar o pela dll 2032 mas, não inicia a porta!, então tentei fazer pelo ACBrPosPrinter, no exemplo funciona mas quando passo o comando  

      mImp.Lines.Add('</zera>');
      mImp.Lines.Add('</linha_dupla>');
      mImp.Lines.Add('ÁÉÍÓÚáéíóúçÇãõÃÕÊêÀà');
      mImp.Lines.Add('</corte_total>');

    ele não corta o papel.

    alguma dica onde estou errando, desde já agradeço!

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