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.

Sabe me dizer como fazer isso? Porque no driver da DR800 não encontrei essa possibilidade de aumentar o tamanho do papel, como mostrei na imagem da EPSON.

Impressora Daruma DR800 não imprime em folha maior que 297mm, maior que uma folha A4. Na impressão de um DANFE NFC-e do ACBr, quando é maior que uma folha A4 ela corta a impressão, não imprimindo o restante do DANFE. Já em outro componente que utilizo para impressão, o RDPrint, ela comprime a impressão para caber em 297mm, e a impressão vai ficando pequena. Em outras impressoras existe essa opção para aumentar o tamanho do papel para 3276mm, como essa foto abaixo da EPSON. Assim a impressão sai correta. Já na Daruma o máximo é 297mm. A impressão sai assim: Veja que a impressão vai diminuindo para caber no tamanho de uma folha A4, quando maior a impressão, mais vai diminuindo. Alguém sabe como posso resolver isso?

Não consegui. Mas por enquanto não vou mais precisar, então deixei de lado. Obrigado.

Fiz um novo checkout e deu certo, obrigado. Quanto a assinatura ainda não consegui, poderia me informar onde colocar as chaves por favor, coloquei nesses eventos e ainda não deu certo. Neste evento tem que ter alguma coisa, no demo vem assim: E se eu excluir esse // e deixar sem nada, dá "Erro ao ler chave".

Tirei o // e deixei sem nada, ai da erro "Erro ao ler chave" na procedure TACBrEAD.LerChave(const Chave : AnsiString; Privada: Boolean) ; E se eu coloco o caminho do arquivo no evento ACBrPAFPAFCalcEAD, não dá o erro acima, mas não gera a assinatura.

Atualizei várias vezes, até acabar os arquivos, o demo agora não está mais dando erro, mas o erro acima (quando faz o update do SVN) ainda acontece. No evento ACBrPAFPAFCalcEAD(Arquivo: String); está somente com // não tem nenhum código, precisa ter alguma coisa nesse evento para gerar a assinatura?

sim. Fiz de novo agora, e notei que está dando um erro, e aparentemente está atualizando aos poucos, acho que por causa desse erro. Já fiz o Clean up, mas toda vez acontece o erro.

Eu atualizei agora, 10 minutos antes de fazer o post.

Estou buscando informações para tentar entender o PAF-NFCe, vi em um video que o ACBrPAF já gera o arquivo assinado, mas no demo não está gerando a assinatura. Inclusive o demo está com alguns erros, tenho que comentar alguns códigos para conseguir compilar.

Onde devo inserir? Preenchi os eventos ACBrEADGetChavePrivada e ACBrEADGetChavePublica. A assinatura fica no final do arquivo RegistrosPAFNFCe.txt ?