Jump to content

Aldemir Almeida

Membros
  • Content Count

    40
  • Joined

  • Last visited

  • Days Won

    1

Aldemir Almeida last won the day on December 25 2016

Aldemir Almeida had the most liked content!

Community Reputation

5 Neutral

1 Follower

About Aldemir Almeida

  • Rank
    Membro
  • Birthday 08/19/1988

Contact Methods

  • Website URL
    http://pasystem.ga

Profile Information

  • Sexo
    Masculino
  • Localização
    Manaus

Recent Profile Visitors

902 profile views
  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. Estou usando D-Link (DWM-221), porém trava tudo ao clicar em enviar! como resolver isso ?
  3. Corrigi alterei o campo manual da unit ACBrNFeDANFeRLRetrato rlmEndereco.Top := 80; para 80 e ficou otima Resolvido!
  4. Boa tarde, Cabeçalho de DANFE estar cortando o telefone, como ajustar no layout do danfe ?
  5. O P&A System é um sistema com objetivo de ajudar no controle empresarial, o sistema é desenvolvido na IDE Embardeiro XE2 com a (SGBD Sistema gerenciador de Banco de Dados SQL Server).
  6. Também pesava assim, mas fiz o teste e conseguir enviar normal, queria saber se tem algum problema fiscal quanto a isso.
  7. Boa noite! Tem algum problema em emitir notas fiscais modelo 55 com a data retroativa ?
  8. 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!
  9. Com o while not qrItensTemp.Eof do ele percorre somente o primeiro registro e sai. como se ela estivesse vazia depois do qrItensTemp.Post;
  10. 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; .
  11. Não tem mais opções de velocidade, vou comparar com código e o manual.
  12. Testei todas a as velocidades, no manual esta 9600. acho que o problema esta no componente, que não consegui capturar o peso!
×
×
  • Create New...