Jump to content

Duarte

Usuários SAC
  • Content Count

    312
  • Joined

  • Last visited

  • Days Won

    3

Everything posted by Duarte

  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.
  15. Quando você enviar os .ini vou analisar e ver como você ajustou, assim posso nas próximas ser mais útil!
  16. Ajustei as tags requeridas... Estou testando via SoapUI, não mexi nos .ini pois ainda não tenho muita experiência com eles. rsrs Estou maluco para ter esse webservice no ar, pois centenas de clientes nosso está nesta cidade. pnfsNFSeW_ABRASFv2.pas
  17. Pelo que notei ABRASF 2.03 tem padrões diferentes de tag, estou vendo quais mudam, uma delas é <InfDeclaracaoPrestacaoServico Id="NF0000001"> que hoje vai: <Rps Id="rps62UNICA">
  18. Bom dia italo, nos moldes acima, estou conseguindo acesso: <soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"> <soap:Body> <ns1:gerarNfseEnvioResponse xmlns:ns1="http://ws.integracao.nfsd.desenvolve/"> <return><![CDATA[<?xml version="1.0" encoding="UTF-8" standalone="yes"?><GerarNfseResposta xmlns="http://www.abrasf.org.br/nfse.xsd"><ListaMensagemRetorno><MensagemRetorno><Codigo>0182</Codigo><Mensagem>[InfDeclaracaoPrestacaoServico] (Id): Propriedade obrigatória na tag [InfDeclaracaoPrestacaoServico].</Mensagem></MensagemRetorno></ListaMensagemRetorno></GerarNfseResposta>]]></return> </ns1:gerarNfseEnvioResponse> </soap:Body> </soap:Envelope>
  19. Boa noite Italo, agora vai. Segue print enviado pelo pessoal do webservice.
  20. boa tarde, italo esse foi o retorno direto do WebService. "Glênio Sou o responsável da TI da Desenvolve, obrigado por entrar em contato. Não entendi sua dúvida, mas o arquivo .zip enviado pela prefeitura contem todos os exemplos, de todos os métodos publicados em nosso web service com seus respectivos envio e retornos. A forma como você vai "envelopar" depende da sua linguagem, não existe um demo (os XMLs já seguem o que deve ser enviado para os nossos servidores, basta trocar os valores das tags e fazer o envio , você pode usar um programa tipo SoapUI e fazer os testes de envio."
  21. Bom dia, Italo, tem algum método para eu testar se esta estabelecendo comunicação com o webservice, já atualizei os meus fontes, já fiz o meu credenciamento para envio da NFS-e, mais estou recebendo apenas..
  22. Mais não teria como habilitar e irmos testando...? Entrei em contato novamente com o pessoal para ver se eles nos envia.
  23. Amigo, conseguimos os arquivos com o Provedor, segue em anexo para análise. arquivos_teste_rps_nfsd.zip
  24. Cidade=Paragominas Homologação: http://187.18.59.22:10042/nfsd/IntegracaoNfsd?wsdl Produção:https://paragominas.desenvolvecidade.com.br/nfsd/IntegracaoNfsd?wsdl
×
×
  • Create New...