carlessoflu

Era isso mesmo, obrigado. Mas percebi outro problema, quando faço o envio da nota e já sai a impressão dá certo. Porém, depois que a nota já está enviada e uso a função imprimir, continua com o email [email protected]. ACBrNFSeX1.DANFSe.Email := '[email protected]'; ACBrNFSeX1.NotasFiscais.Clear; ACBrNFSeX1.NotasFiscais.LoadFromFile(DMTables.TNotaServicosCAMINHO_XML.AsString, False); ACBrNFSeX1.NotasFiscais.Imprimir;

De onde vem esse email? Não encontrei nenhum campo para informar o email do prestador de serviços, o único que encontrei foi Prestador.Contato.Email, mas mesmo preenchendo ele não altera, fica sempre [email protected]. Provedor EL. Cidade de Linhares/ES.

A minha versão é antiga. Vi que eles acertaram um bug relativo a OpenDialog em versões mais novas.

Realmente é o tema que está dando problema. Desativando o tema funciona normalmente. Estou usando o componente TSkinData da VclSkin.

Localmente também. Todos os clientes com Windows 11 acontece isso. Logo quando instala o windows 11 funciona normalmente, ai depois que atualiza que começa esse problema. Não sei qual atualização que faz isso. Está tudo certo com o drive.

Olá, Meu sistema é feito em Delphi 7, e no Windows 11 não está exibindo os arquivos quando abre um OpenDialog. Tem que clicar com o mouse, segurar e arrastar para mostrar os arquivos, ou criar uma nova pasta. Alguém já viu isso? Vou deixar um video explicando melhor o que está acontecendo. Erro ao buscar por arquivos02 windows11.mp4

Bom dia! Sobre o outro computador que não estava funcionando, resolveu. Agora sobre o problema do meu computador, QUEDA DE CONEXÃO nada ainda.

Aqui no escritório também, no computador do meu lado funciona e no meu não. Usamos a mesma rede, a mesma internet. Então é alguma coisa no meu computador, agora o que é? Ai está o problema.

Pois é, está complicado, já desabilitei tudo que eu sei, a última opção seria formatar o computador, mas não posso fazer isso, esse é o computador de desenvolvimento, se formatar teria que configurar tudo novamente e ai não vale a pena. Estou tentando ainda, mas já estou perdendo a esperança. Infelizmente.

Ao instalar o PDC está sempre dando o erro: QUEDA DE CONEXÃO Esse erro ocorre no meu computador, que é o computador de desenvolvimento, fiz o teste em outro computador daqui e funcionou, estamos usando a mesma rede. Já desabilitei o firewall, não tenho antivirus instalado, já adicionei as portas 17500 e 443 na regras de entrada e saída do firewall. Já estou em contato no canal do discord, mas ainda não consegui uma solução. Alguém já passou por isso? Tem alguma ideia do que pode ser? Vou postar os logs. comms_231024.logppsers_231024.log

Fiz uma função rápida que funciona em Delphi 7. Quem quiser usar é só alterar para os campos que usam. procedure TFCon_CNPJ.btnConsultarClick(Sender: TObject); var I: Integer; aHTTP : TACBrHTTP; Resposta : TStringList; URL : string; begin aHTTP := TACBrHTTP.Create(nil); try aHTTP.HTTPSend.Clear; aHTTP.TimeOut := 10000; URL := 'https://www.receitaws.com.br/v1/cnpj/'+F0Menu.TiraCaractere(EditCNPJ.Text)+''; try aHTTP.HTTPMethod('GET', URL); Resposta := TStringList.Create; try Resposta.Text := Trim(aHTTP.RespHTTP.Text); if Trim(LerCampo(Resposta,'nome')) = '' then application.messagebox(pchar('CNPJ não encontrado.'),'Atenção',mb_iconinformation) else begin EditTipo.text := LerCampo(Resposta,'tipo'); EditAbertura.text := LerCampo(Resposta,'abertura'); EditRazaoSocial.Text := LerCampo(Resposta,'nome'); EditPorte.Text := LerCampo(Resposta,'porte'); EditFantasia.text := LerCampo(Resposta,'fantasia'); EditEndereco.text := LerCampo(Resposta,'logradouro'); EditNumero.text := LerCampo(Resposta,'numero'); EditComplemento.text := LerCampo(Resposta,'complemento'); EditBairro.text := LerCampo(Resposta,'bairro'); EditCidade.text := LerCampo(Resposta,'municipio'); EditUF.text := LerCampo(Resposta,'uf'); EditCEP.text := StringReplace(LerCampo(Resposta,'cep'),'.','',[rfReplaceAll]);; EditSituacao.text := LerCampo(Resposta,'situacao'); EditEmail.text := LerCampo(Resposta,'email'); EditTelefone.text := LerCampo(Resposta,'telefone'); end; finally Resposta.Free; end; except on e: EACBrHTTPError do begin if pos('429',e.Message) > 0 then begin application.messagebox(pchar('Você excedeu o máximo de 3 consultas por minuto. Tente novamente mais tarde.'),'Atenção',mb_iconerror); end else application.messagebox(pchar('Ocorreu o seguinte erro ao consultar o CNPJ: '+sLineBreak+e.Message),'Atenção',mb_iconerror); end; on e: exception do begin application.messagebox(pchar('Ocorreu o seguinte erro ao consultar o CNPJ: '+sLineBreak+e.Message),'Atenção',mb_iconerror); end; end; finally aHTTP.Free; end; A função para ler os campos: function TFCon_CNPJ.LerCampo(Texto: TStringList; NomeCampo: String): String; var i : integer; linha, coluna1, coluna2: String; begin Result := ''; for i := 0 to Texto.Count-1 do begin linha := uppercase(Trim(Texto[i])); NomeCampo := uppercase(NomeCampo); coluna1 := copy(linha,1,pos(':',linha)-1); //pegar o texto antes do : coluna1 := StringReplace(Trim(coluna1),'"','',[rfReplaceAll]); //remover as aspas duplas " if coluna1 = NomeCampo then begin coluna2 := Trim(copy(linha,pos(':',linha)+1,length(linha))); //pegar o texto depois dos : coluna2 := StringReplace(Trim(coluna2),'"','',[rfReplaceAll]); //remover as aspas duplas " coluna2 := StringReplace(Trim(coluna2),',','',[rfReplaceAll]); //remover a virgula , Result := coluna2; break; end; end end;

Pois é, já fiz isso, mas ainda assim não encontrei o JSON montado, por isso vim perguntar aqui. Pra saber se alguém sabe alguma propriedade, ou em qual parte do código faz o json.

Olá. Estou fazendo uma integração com a Tray Commerce, e preciso enviar para eles os JSON das minhas requisições para fazer a homologação. O problema é que não consegui encontrar onde pego os JSON das requisições. Pegar o JSON das respostas é tranquilo. O que preciso é do JSON antes de enviar. O Código abaixo, por exemplo, é um PUT para atualizar um produto, preciso do JSON dele. Alguém sabe como faço para pegar esse JSON? DMTabelas.RESTClient1.BaseURL := BaseURL+'products/'+idrefsite+'?access_token='+Access_Token; DMTabelas.RESTRequest1.Method := rmPUT; DMTabelas.RESTResponse1.RootElement := ''; DMTabelas.RESTRequest1.Params.Clear; DMTabelas.RESTRequest1.Params.AddItem('name',fieldbyname('descricao').asstring,TRESTRequestParameterKind.pkGETorPOST); if ((not fieldbyname('ncm').IsNull) and (Trim(fieldbyname('ncm').AsString) <> '')) then DMTabelas.RESTRequest1.Params.AddItem('ncm',fieldbyname('ncm').asstring,TRESTRequestParameterKind.pkGETorPOST); if not fieldbyname('preco_venda').IsNull then DMTabelas.RESTRequest1.Params.AddItem('price',stringreplace(fieldbyname('preco_venda').asstring, ',', '.',[rfReplaceAll, rfIgnoreCase]),TRESTRequestParameterKind.pkGETorPOST); if not fieldbyname('preco_custo').IsNull then DMTabelas.RESTRequest1.Params.AddItem('cost_price',stringreplace(fieldbyname('preco_custo').asstring, ',', '.',[rfReplaceAll, rfIgnoreCase]),TRESTRequestParameterKind.pkGETorPOST); if (not fieldbyname('peso').IsNull) then DMTabelas.RESTRequest1.Params.AddItem('weight',stringreplace(FloatToStr(fieldbyname('peso').asFloat*1000), ',', '.',[rfReplaceAll, rfIgnoreCase]),TRESTRequestParameterKind.pkGETorPOST) else DMTabelas.RESTRequest1.Params.AddItem('weight','300',TRESTRequestParameterKind.pkGETorPOST); if (not fieldbyname('altura').IsNull) then DMTabelas.RESTRequest1.Params.AddItem('height',stringreplace(fieldbyname('altura').asstring, ',', '.',[rfReplaceAll, rfIgnoreCase]),TRESTRequestParameterKind.pkGETorPOST); if (not fieldbyname('largura').IsNull) then DMTabelas.RESTRequest1.Params.AddItem('width',stringreplace(fieldbyname('largura').asstring, ',', '.',[rfReplaceAll, rfIgnoreCase]),TRESTRequestParameterKind.pkGETorPOST); if (not fieldbyname('comprimento').IsNull) then DMTabelas.RESTRequest1.Params.AddItem('length',stringreplace(fieldbyname('comprimento').asstring, ',', '.',[rfReplaceAll, rfIgnoreCase]),TRESTRequestParameterKind.pkGETorPOST); if (not fieldbyname('id_tray').IsNull) then DMTabelas.RESTRequest1.Params.AddItem('category_id',DMTabelas.QryTemp.fieldbyname('id_tray').AsString,TRESTRequestParameterKind.pkGETorPOST); DMTabelas.RESTRequest1.Execute;

Pois é, até já coloquei para mandar a impressão uma por uma, mas mesmo assim as vezes acontece o problema.

Muito obrigado!!! Funcionou.