Jump to content

Search the Community

Showing results for tags 'delphi'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Categories

There are no results to display.

Forums

  • Fórum Aberto - ACBr
    • ACBr News
    • Equipamentos testados
    • Base de Conhecimento
    • Dúvidas Gerais sobre o ACBr
    • ACBrSerial
    • ACBrSAT
    • ACBrNFe
    • ACBrMonitor PLUS
    • ACBrDFe
    • ACBrTEFD e Dúvidas sobre TEF
    • ACBrTXT
    • ACBrBoleto
    • ACBrDiversos
    • ACBrTCP
    • ACBrFramework
    • ACBrLIB
    • Dia do ACBr
  • Suporte Pago - SAC
    • Dúvidas gerais
    • ACBrMonitorPLUS
    • NFe/NFCe - Nota Fiscal Eletrônica
    • DFe - Documentos Fiscais Eletrônicos
    • SAT / MFE
    • TEF
    • Boleto
    • ACBrSPED
    • ACBrTXT
    • Paf-ECF
    • Requisitos Fiscais por UF
    • ACBrLIB
  • Outros Assuntos
    • ACBr's Pub
    • Legislação Fiscal e Tributária
    • Object Pascal - Delphi & Lazarus
    • Data Base
    • Classificados
    • Dúvidas não relacionadas ao ACBr

Categories

  • ACBrLib
  • Suporte Pago - SAC
    • ACBrMonitorPLUS - SAC
    • Utilitários - SAC
    • Dia do ACBr 1a edição
    • Dia do ACBr 2a edição
  • Free Download
    • ACBrMonitorPLUS
    • Demos / Testes / Utilitários
    • Apresentações - Palestras

Calendars

  • Eventos - Palestras - Webinars
  • Prazos SEFAZ
  • Community Calendar
  • Feriados Nacionais

Blogs

  • Daniel Simoes' Blog
  • André Ferreira de Moraes
  • Moderadores ACBr
  • Teste de Blog
  • Notícias do ACBr

Categories

  • Suporte Pago - SAC
    • Webinars
    • Video Aulas
    • Palestras - Dia do ACBr 2a Ediçao
  • Vídeos Abertos
    • Video Aulas
    • Comunicados
    • Dia do ACBr 2a Ediçao
    • Dia do ACBr 1a Ediçao
    • Homologação ACBr
  • Campanhas promocionais

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


Website URL


Skype


Localização


Interesses


CNPJ da Empresa


CPF

Found 230 results

  1. Bom dia Galera! Estou tentando montar um JSON para comunicacao com uma API, o formato que preciso montar é esse: { "id": "1", "type": "TPS", "SubObjeto": { "name": "Teste", "phones": [ "987654321","0123456789" ], "address": { "country": "BR", "state": "MT" } } } Só que ate agora o que consegui foi: var LJson, LJsonObject: TJSONObject; LArray: TJSONArray; LJsonObject := TJSONObject.Create; LJsonObject.AddPair(TJSONPair.Create('id', '1')); LJsonObject.AddPair(TJSONPair.Create('type', 'TPS')); // SubObjeto LArray := TJSONArray.Create; LJson := TJSONObject.Create; LJson.AddPair(TJSONPair.Create('name', 'Teste')); LJson.AddPair(TJSONPair.Create('phones', ?)); //Address ? LArray.Add(LJson); LJsonObject.AddPair(TJSONPair.Create('SubObjeto', LArray)); ShowMessage(LJsonObject.ToString); Alguém já montou algum JSON assim ? Desde já agradeço!
  2. Bom dia a todos Vendo ativação online com Gerenciamento de controle de Clientes. Incluso o componente desenvolvido por mim, com a unit para adicionar no seu sistema em Delphi. Maiores informações entre em contato via Whatsapp: (19) 99923-7944
  3. Boa tarde! Alguém por acaso conhece algum webservice ou meio para realizar uma consulta do endereço da pessoa através apenas do número de telefone? Queria implementar uma consultar assim no meu projeto.
  4. OLá A NT 2016.002-v1_50 na validação W16-10 reporta que o Valor de Icms Desonerado (vICMSDeson) deve ser abatido do Total da NFiscal (VNF). Porém a excessão 3, da mesma regra diz: " "Exceção 3 (NT 2013/005 v 1.22): Esta regra de validação não deverá causar rejeição caso não tenha sido subtraído o valor do ICMS Desonerado (vICMSDeson) do valor total da NF-e." Pergunto: Como faço para não descontar o Valor do Icms Desonerado (vICMSDeson) no total da NFe (vNF) ?
  5. Boa Noite Pessoal! Em minhas últimas postagens eu estava com dificuldades para integrar com uma api e enviar arquivos JSon. Graças à ajuda de nosso amigo "DATILAS" (Douglas Átilas), consegui implementar com sucesso a ferramenta de integração. Porém, praticamente de 98 a 99% das ordens enviadas (arquivos JSon) tem seu envio sem nenhum problema, sendo recebido integralmente pelo web service da api. O restante que minha ferramenta não consegue enviar é que eu não estou conseguindo resolver a questão, porque se eu copio uma dessas ordens que apresentou problema e tento enviar pelo "boomerang" ou pela "Restlet Client" do Google", a mesma é enviado normalmente. Alguém poderia me auxiliar nessa questão, por gentileza? Segue abaixo uma das ordens que apresentam problema em minha ferramenta: [{"Driver":{"PhoneCountry":"+55","PhoneNumber":"19 994559352"},"Customer":{"DocumentType":"CNPJ","DocumentNumber":"11229082000167"},"OrderType":1,"OrderID":"229551","OrderNumber":"229551","Sequence":"3","OrderDescription":"NF-e","OrderDescriptionDocuments":"NF-e","SourceAddress":{"Address":"RUA KINITI MORI, 110","Address2":"COMENDADOR MARIO DEDINI","ZipCode":"13413069","City":"PIRACICABA","State":"SP","Country":"BRASIL","Name":"PIRACICABA CARNES E DERIVADOS EIRELI","Responsibility":"REGINALDO","PhoneCountry":"+55","PhoneNumber":"(19)3917-0260"},"DestinationAddress":{"Address":"AV. RIO DAS PEDRAS, 192","Address2":"PIRACICAMIRIM","ZipCode":"13420520","City":"PIRACICABA","State":"SP","Country":"BRASIL","Name":"BAR PANTERA","Responsibility":"DIJALMA","PhoneCountry":"+55","PhoneNumber":"19 3426 2942"},"Documents":[{"DocumentID":"229551","DocumentNumber":"229551","Volumes":[{"VolumeID":"1","Count":1,"BarCode":"0","Read":1}]}],"Observation":"RAZAO SOCIAL: DJALMA PERES FARIAS ME ","DepartureDate":"2019-10-08T00:00:00"}] Para enviar essa ordem, ela é gerada em um TMemo e depois enviada pelo código abaixo: Link do Manual da API: https://api.tudoentregue.com.br/Documentacao/ Segue rotina para envio... function TFExportaEntrega.EnviarJSon(caminho: String; ArqJSon: TMemo): Boolean; Var code: Integer; sResponse, url: String; JsontoSend, AResponseContent: TStringStream; iStatusCode: Integer; http: TIdHTTP; Handler: TIdSSLIOHandlerSocketOpenSSL; Begin JsontoSend := TStringStream.Create(ArqJSon.Text); AResponseContent := TStringStream.Create(''); http := TIdHTTP.Create(Nil); Handler := TIdSSLIOHandlerSocketOpenSSL.Create(nil); Try http.Request.CharSet := 'utf-8'; http.Request.ContentType := 'application/json'; http.Request.CustomHeaders.AddValue('AppKey', '58fb05c3-4e8b-4929-b7df-95bd261035c9'); http.Request.CustomHeaders.AddValue('RequesterKey', '629eda6f-9df5-40e7-a94e-4c54cec83a15'); http.IOHandler := Handler; http.Response.ContentType := 'application/json'; http.Response.CharSet := 'utf-8'; url := 'http://api.tudoentregue.com.br/v1' + caminho; Try http.Post(url, JsontoSend, AResponseContent); Except On E:Exception Do Begin Memo_Resp.Lines.Add('Response Content : '); AResponseContent.Position := 0; Memo_Resp.Lines.LoadFromStream(AResponseContent); Memo_Resp.Lines.Add('Error on Response Code: ' + InttoStr(http.ResponseCode)); Memo_Resp.Lines.Add('Error on Response Text: ' + http.ResponseText); Memo_Resp.Lines.Add('Error on Request: ' + sLineBreak + E.Message); EnviarJSon := false; exit; End; End; EnviarJSon := True; Finally JsontoSend.Free; AResponseContent.Free; http.Free; Handler.Free; End; end; Se alguém puder me ajudar ficarei muito grato pois não sei mais o que fazer. Att. Daniel
  6. Se você utiliza Delphi 7, talvez sinta que fica impossibilitado de implementar uma série de recursos e melhorias em seus sistemas devido a limitação da IDE ou ainda que a produtividade de sua equipe poderia ser maior se contasse com uma ferramenta mais moderna. No dia do ACBr teremos uma palestra com Kelver Merlotti, diretor de serviços na Embarcadero do Brasil, o qual possui o título de Especialista em Desenvolvimento de Software para Web, além de uma vasta experiência de mais de 18 anos trabalhando com desenvolvimento de sistemas. Kelver Merlotti, Diretor de Serviços na Embarcadero do Brasil, irá abordar como utilizando uma IDE moderna é possível obter recursos e funcionalidades os quais possibilitam aumento de produtividade, qualidade e mesmo novas oportunidades a sua equipe de desenvolvimento. Para aqueles que desejarem aproveitar a oportunidade, no Dia do ACBr contaremos com a presença de nossos consultores no Stand ACBr para esclarecer quaisquer dúvidas que permanecerem. Inscreva-se para o Dia do ACBr 2019 e aproveite a melhor oportunidade para falar pessoalmente com quem realmente entende do assunto. Se tem dúvidas ou gostaria mais informações, fale com nossa consultora rapidamente por meio do WhatsApp.
  7. Uso um IWModalWindown componente do Intraweb para exibir meu pdf gerado pelo acbrbolet, existe algum conflito que não permite o modal de carregar o pdf enquanto o acbrboleto está criado, mas quando uso o destroy o modal carrega o pdf, meu problema é que não sei dar o create corretamente no componente acbr preciso de ajuda, tentei da seginte forma sem sucesso ACBrBoleto1.Create(TACBrBoleto); ACBrBoletoFCFR1.Create(TACBrBoletoFCFR); Segue a baixo o trecho do código: xDataRel := WebApplication.AppID + FormatDateTime('yyyymmddhhmmsszzz', Now); ACBrBoleto1.ACBrBoletoFC.NomeArquivo := WebApplication.ApplicationPath + 'wwwroot\RelatoriosPDF\' +xDataRel + '.PDF'; ACBrBoleto1.GerarPDF; ACBrBoleto1.Destroy; ACBrBoletoFCFR1.Destroy; with IWModalWindow1 do begin Reset; Autosize := False; Title := 'Visualizando o PDF do Relatório'; Draggable := False; WindowWidth := 95; WindowHeight := 95; Src := '../../../RelatoriosPDF/' + xDataRel + '.PDF'; OnAsyncClick := nil; Show; end;
  8. Antes de enviar uma mensagem estou marcando a Flag "RecebeConfirmacao" da classe "TACBrSMS" como False e ainda assim estou recebendo as confirmações de recebimento. Também preciso de um procedimento para limpar a minha "Caixa de Saída". Acredito que isto esteja congestionando o meu envio de SMS.
  9. Boa tarde pessoal, tudo certo? Tenho um aplicativo que executa algumas tarefas, incluindo alguns laços de repetição, e está rodando perfeitamente, mas quando eu utilizo o avast por exemplo e vou desabilitá-lo por alguns minutos, o avast joga na tela a confirmação e quando isso acontece simplesmente para de executar toda e qualquer tarefa desse aplicativo, e o problema é que no meu computador eu posso resolver apenas desinstalando o antivírus mas caso isso venha a ocorrer em clientes o que já aconteceu, eu não posso mandar o cliente trocar de antivírus. Alguém poderia me dar algumas dicas quanto a isso? O aplicativo trata-se de um exe que captura a tela do computador(printscreen) e salva em uma pasta, juntamente com informações de teclas digitadas e afins. Agradeço desde já.
  10. Sou novo no fórum, existe uma ferramenta já desenvolvido para assinaturas em PDFs? Principalmente para certificados A3. Obrigado.
  11. Olá, Gostaria de saber como pegar o nome do node de um xml, oque eu deveria colocar apos ACBrNFe1.NotasFiscais.Items[0]. ???, para poder pegar o nome do node ao invés do seu conteúdo?
  12. Boa tarde, Como faço para converter um arquivo .lpr (projeto lazarus) para .dpr (projeto delphi)? OBS: Uso o Delphi 2010
  13. Bom dia. Alguém interessando em contratar um Analista Desenvolvedor para trabalhar home-office? tenho experiência de 24 anos de atuação exclusivamente com DELPHI. OOP e Construção de Componentes. Estou disponível para fornecer qualquer outra informação necessária. linkedin.com/in/dirceu-teixeira contatos somente por e-mail: [email protected]
  14. Boa tarde ! Estou usando a balança toledo e nos testes o edit de ultimopesolido está vindo zerado. Alguém pode me ajudar? att.
  15. Olá galera, tudo bem? Eu sou programadora Delphi (utilizo Embarcadero Delphi XE7) e estou tentando criar uma telinha no sistema aqui da empresa onde o usuário possa consultar as notas enviadas contra o CNPJ dele e visualizá-las para facilitar na hora de dar entrada dos produtos e notas fiscais de entrada. Já andei olhando vários tópicos aqui no site sobre o tema e pelo que vi ando fazendo tudo certo: - Pego o CNPJ do cliente e o código UF dele, jogo no DistribuicaoDFePorUltNSU; - Pego o UltNSU que essa pesquisa me dá e retomo o passo 1; - Percorro o arquivo zipado (NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip) e jogo os dados em um banco além de mostrá-los em um DBGrid. Mas o problema é que ele só me mostra as XML de notas onde o CNPJ informado está como Autorizado e eu preciso das notas onde o CNPJ esteja como Destinatário, como faço isso? Posso jogar o código aqui se quiserem, uso basicamente o DistribuicaoDFE.txt que vem nos arquivos exemplos do ACBr, falta alguma coisa naquele arquivo? Me ajudem por favor.
  16. Bom dia a todos, Estou com o seguinte problema: Usando o Fast Report tenho mo Footer dois subreportes. Um em baixo do outro, quando o de cima aumenta ele passa por cima do de baixo. Tem algum método de resolver isso ? Obrigado desde já
  17. Para remover manualmente o ACBr do computador quando necessário sigam os procedimentos abaixo: 1) Apague todos os arquivos seguintes: ACBr*.bpl ACBr*.dcp ACBr*.dcu PCN*.bpl PCN*.dcp PCN*.dcu SYNA*.bpl SYNA*.dcp SYNA*.dcu Nota importante: Visto que o Delphi busca os arquivos para compilar em diretórios diferentes é necessário apagar os arquivos na pasta do ACBr, na pasta do seu aplicativo, nas pastas públicas ou de default do Delphi (Documentos públicos), nas pastas que estiverem no PATH do Windows, etc... Assim aconselhamos a apagar os arquivos mencionados logo do computador inteiro. 2) Remova as entradas antigas dos pacotes no registro do sistema. Seguindo um dos seguintes modos: 2.a - Removendo manualmente do registro do Windows que fica em uma destas chaves, dependendo da versão do Delphi: HKEY_CURRENT_USER\Software\Borland\<versao>\Known Packages HKEY_CURRENT_USER\Software\CodeGear\BDS\<versao>\Known Packages HKEY_CURRENT_USER\Software\Embarcadero\BDS\<versao>\Known Packages Lembrando que pode variar dependendo e versão, procure sempre por "Known Packages" que são os pacotes instalados no Delphi. 2.b - Ou pode-se abrir o Delphi e dizer não para os erros de pacote não encontrados, automaticamente o delphi não os carregará mais. Após isso, reinstale utilizando o ACBrInstall.
  18. Como atualizar o FortesReport para funcionar no Radstudio 10.3.1? Baixei uma versão, mas na instalação surge a mensagem: "erro ao compilar o pacote frce.dpk"
  19. Bom dia! Coloquei um TWebBrowser no meu projeto e utilizo ele para navegar ate o site de Consulta Completa NF-e, Mas estou tendo um problema quando tento baixar a NF-e com certificado, nao aparece a janela de seleção de Certificado. Alguem saberia como habilitar? pois vi num topico (https://stackoverflow.com/questions/51627352/delphi-twebbrowser-with-ssl-certificate-file?rq=1) de Delphi 7 que essa janela aparecia. Estou utilizando Delphi 10.2 Tokyo, e tambem ja modificar no regedit para o Delphi Utilizar a Versao 9, 10 ou 11. Mas mesmo assim a janela nao aparece. Segue imagens:
  20. Boa tarde, Ofereço-me para desenvolvimento de aplicativos moveis em Delphi (firemonkey) . Integrações de aplicativos ao seu ERP. Apps como Força de Vendas, Comanda Eletrônica , Representantes Comerciais , App Gerencial , Prospecção de Clientes e muitos outros. Comunicação via servidor Datasnap ou HttpServer (Json/Rest). Contato : [email protected]
  21. Este erro ocorre no sistema Windel, programado em Delphi 10 e utiliza banco de dados Firebird, alguém sabe corrigir?
  22. Bom dia! Alguem sabe como faz para mostrar um Indicador de ordenacao no DbGrid do Delphi, Ao no OnTitleClick, eu ja inverto a ordenacao, Porem gostaria de colocar uma seta indicando se é crescente, ou decrescente. Segue Imagem exemplo. Tentei fazer de uma forma que desenha a Imagem de um Imagelist, mas ao passar o mouse em cima, a imagem some.
  23. Gostaria de saber se existe alguma maneira de copiar uma tabela inteira no sql firebird. Neste caso, tenho duas empresas cadastradas no mesmo firebird, ou seja, IDEMPRESA='1' e IDEMPRESA='2', preciso copiar a tabela PRODUTOS da empresa 1 para a empresa 2.
  24. Bom dia! Alguém sabe como definir um tamanho fixo de Height, para cada painel(registro) desse DBCtrlGrid, Pois estou tentando utiliza-lo, mas ele muda o Height de acordo com a quantidade de registros, Queria fazer ele trabalhar parecido com DBGrid, Inserindo os registros em tamanho fixo. Segue print, com 2 registros e com muitos registros. @Sérgio Assunção, vi um post seu parecido que vc utilizou esse componente: Sera que aconteceu esse problema com vc? Se Sim, vc conseguiu resolver?
  25. Projeto ACBr também é agente de vendas Embarcadero O Projeto ACBr é agente de vendas oficial da Embarcadero no Brasil, com consultores treinados para lhe oferecer a solução ideal as suas necessidades. Para receber um orçamento, entre em contato com nossos consultores pelo email: [email protected] ou ainda pelo fone (15) 2105-0750 ou pelo WhatsApp (15) 99790-2976. Compre sua licença com o Projeto ACBr e obtenha vantagens exclusivas. Ganhe Brindes Exclusivos ACBr Acesso ao SAC ACBr (veja tópico abaixo) Não tem certeza sobre qual versão escolher? Veja mais uma vantagem de comprar com o ACBr. Nós podemos lhe auxiliar nisso, no fórum temos um tópico dedicado a explicar as diferenças entre as versões, clique aqui e saiba mais... Se mesmo após ler o tópico ainda tem dúvidas, entre em contato com nossos consultores e agende uma conferência, com um de nossos desenvolvedores para lhe auxiliar na decisão. Já tem uma licença Delphi? Que tal Renovar sua Subscrição conosco? Se você deseja renovar sua subscrição, nós também podemos lhe auxiliar, e antecipando a renovação de sua subscrição você pode obter até 30% de desconto. Não perca tempo, fale já com nossos consultores. Renovando sua subscrição conosco você também tem direito as vantagens exclusivas citadas acima. Além de todas as vantagens acima, comprando sua licença com o Projeto ACBr você também contribui para que o projeto continue crescendo. Confira as vantagens exclusivas, nesse tópico:
×
×
  • Create New...