Jump to content

Duarte

Usuários SAC
  • Content Count

    312
  • Joined

  • Last visited

  • Days Won

    3

Duarte last won the day on March 3 2017

Duarte had the most liked content!

Community Reputation

82 Excellent

2 Followers

About Duarte

  • Rank
    Membro Ativo
  • Birthday 03/18/1985

Contact Methods

  • Website URL
    http://noturnosoftwares.com.br

Profile Information

  • Sexo
    Masculino
  • Localização
    Boa Vista / RR

Recent Profile Visitors

1,790 profile views
  1. Boa tarde, depois de muito quebrar a cabeça achei a solução, vou deixar aqui, caso alguém precise. procedure InsertItemListView(AListView : TListView; ADataSet : TDataSet; AHeader, AText, ADetail, ADetail1, ADetail2, ADetail3 : string); begin try AListView.BeginUpdate; AListView.Items.Clear; with ADataSet do begin First; while not Eof do begin if Trim(AHeader) <> '' then with AListView.Items.Add do begin Text := ADataSet.FieldByName(AHeader).DisplayText; Purpose := TListItemPurpose.Header; //Aqui é o pulo do gato para add os Headers. Na verdade você add dois items, um será o Header e ou outro o item ou itens, sendo que podemos add vários itens tem do mesmo headers. No meu caso será um para cada. end; with AListView.Items.Add do begin Text := FieldByName(AText).DisplayText; Detail := FieldByName(ADetail).AsString; Data[TMultiDetailAppearanceNames.Detail1] := FieldByName(ADetail1).DisplayText; Data[TMultiDetailAppearanceNames.Detail2] := FieldByName(ADetail2).DisplayText; Data[TMultiDetailAppearanceNames.Detail3] := FieldByName(ADetail3).DisplayText; Tag := RecNo; end; Next; end; end; finally AListView.EndUpdate; end; end;
  2. Boa noite, Estou tentado preencher um ListVier em run-time, pois via LiveBindings Desinger estou tendo problemas quanto ao uso de Thread e/ou Task. Veja parte do código. Lembrando que isso para FMX. procedure T_frmPedido.SpeedButton1Click(Sender: TObject); var fItem : TListViewItem; begin try with _lvwItens do begin BeginUpdate; Items.Clear; with Pesquisa do begin First; while not Eof do begin fItem := Items.Add; fItem.Text := FieldByName('DESCRICAO').AsString; fItem.Data[TMultiDetailAppearanceNames.Detail1] := FieldByName('PRECO').DisplayText; fItem.Data[TMultiDetailAppearanceNames.Detail2] := FieldByName('ESTOQUE').DisplayText; fItem.Data[TMultiDetailAppearanceNames.Detail3] := FieldByName('MARCA').AsString; //Como adicionar a propriedade ItemHeader.text em run-time? O mesmo serve para Item.LookupData Next; end; end; end; finally EndUpdate; end; end; O grande problema é... preciso alimentar a propriedade Item.Header.Text via run-time e não estou conseguindo.
  3. Bom dia, estou desenvolvendo uma rotina de sincronização de fotos via Mobile "Android". Bem após tirar a foto deve apresentar a tela de edição de imagem para o usuário pode edita-la ao seu gosto e enviar para o servidor, em versões anteriores ao Rio este processo sempre funcionou utilizando funções nativas "TTaskPhotoFromCameraAction" apenas ativando a propriedade "Editable=true". Bem no rio caso esta propriedade seja ativada sempre retorna um erro "Não pode ser menor que 50x50 pixes". o mesmo não acontece quando é da galeria "Já salvo". Precisamos migrar para Delphi mais moderno "Rio>" Para ter suporte a novas API 26>. Mais esta função é de estrema importância. teriam uma solução?
  4. Boa tarde, estou tendo imprimir comando EscPos com uma Im453Hp Diebold, quando tendo imprimir ela trava, mudando para modelo durama é impresso os comandos de formatação menos o QRCode, alguém usam esta impressora para emissão de NFC-e?
  5. Opa... nos padrões ABRASF2 sim o provedor é "Desenvolve" que roda nos padrões "ABRASF2"
  6. Bom dia, apaguei do ACBr, instalei tudo do zero e mantendo a opção "Apagar arquivos antigos" marcado, mais nada o mesmo erro informando que ocorreu um erro ao carregar o xml e apresenta o .xml em quentão, uma pergunta, você fez o teste com o provedor usando "abrasf2" ?
  7. Boa tarde, Sim, estou eu atualizo todos os dias! Isto mesmo, estou tentando cancelar!
  8. Boa tarde, Italo, estou com problemas ao cancelar NFS-e, poderia me dar uma força, debugando consegui chegar até aqui... Na linha 716 da Unit: ACBrNFSeNotasFiscais levanta o erro: "Não foi possível carregar um .xml". Pelo que notei a questão está na assinatura do xml "Cancelamento". Veja como ele está sendo montado: '<?xml version="1.0" encoding="UTF-8"?><CancelarNfseEnvio xmlns="http://www.abrasf.org.br/nfse.xsd"><Pedido><InfPedidoCancelamento Id="pedidoCancelamento_103080360001908844201900000000016"><IdentificacaoNfse><Numero>201900000000016</Numero><CpfCnpj><Cnpj>10308036000190</Cnpj></CpfCnpj><InscricaoMunicipal>8844</InscricaoMunicipal><CodigoMunicipio>1505536</CodigoMunicipio></IdentificacaoNfse><CodigoCancelamento>2</CodigoCancelamento></InfPedidoCancelamento></Pedido></CancelarNfseEnvio>'
  9. Boa noite, pessoal só que que notei que o ACBrNCMs não está baixando a lista, seria devido introdução do ReCaptcha? Se sim, teria alguma outra alternativa?
  10. Boa tarde, Italo a URL de produção estava erra a palavra https://parauapebas.desenvolvecidade.com.br/nfsd/integracaoNfsd?wsdl o correto é https://parauapebas.desenvolvecidade.com.br/nfsd/IntegracaoNfsd?wsdl Em anexo .ini Desenvolve.ini
  11. Bom dia, Passando para avisar que está 100% a comunicação com o webservice Desenvolve. Segue arquivos. Homologado! 73-ger-nfse.xml 73-ger-nfse-soap.xml 73-lista-nfse.xml 73-lista-nfse-soap.xml
  12. Já achei a resposta, usando o padrão de SSL utilizada os dados do certificado digital para autenticar, seria isso né !?
  13. Bom dia, Italo, estive fora por uns dias, e de volta aqui. Estou conseguindo retorno do Webservice mais sempre acusando erro de assinatura digital, entrei em contato com o pessoal para ver o que está acontecendo, eles me falaram que é falha na autenticação do acesso, pelo site deles tenho acesso com o usuário e senha até faço notas, gostaria de saber qual unit e em função é passado os dado de acesso ao webservice, para testar se está chegando os dados corretos.
  14. Certo, vou testar agora mesmo, dai eu altero o cidades.ini com as cidade e posto aqui.
×
×
  • Create New...