Ir para conteúdo
  • Cadastre-se
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

carlessoflu

Membros
 Perfil  Explorar Conteúdo

  • Total de ítens

    221

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por carlessoflu

    OpenDialog não funciona no Windows 11

    em Object Pascal - Delphi & Lazarus

    Postado

    15 horas atrás, Alexandre de Paula disse:

    Notei que o video é uma gravação do Anydesk.

    Esse comportamento ocorre somente nessa forma de acesso ou foi relatado localmente pelo usuário?

     

    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.

    9 horas atrás, Renato Rubinho disse:

    Veja também com o responsável pela infra se o driver da placa de vídeo está instalado e sem erros.

    Está tudo certo com o drive.

    Erro ao instalar PDC TEF - Queda de conexão

    em Dúvidas sobre TEF

    Postado

    2 minutos atrás, leacarbonera disse:

    exato... tambem penso que formatar seria em caso extremo, mas pensei nessa possibilidade porque configurei o aplicativo Demo no meu pc em casa e la deu certo.... por isso acho que seja algo no windows. Vou fazer mais alguns testes e lhe mantenho informado do caso.

    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.

    Erro ao instalar PDC TEF - Queda de conexão

    em Dúvidas sobre TEF

    Postado

    2 minutos atrás, leacarbonera disse:

    Estou com o mesmo problema @carlessoflu. Tambem já fiz os mesmos procedimentos que vc, tentei até fazer a comunicação roteando a 4g do meu celular, mas tambem aconteceu o problema, acho que deva ser algum problema/bug no windows mesmo, mas não encontro onde. O detalhe é que aconteceu depois que eu ja havia homologado o tef, então não mexi mais nisso, mas estou cogitando formatar meu pc para ver se resolve.

    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.

    Erro ao instalar PDC TEF - Queda de conexão

    em Dúvidas sobre TEF

    Postado

    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.

    Firewall.png.08b7e97eca20814a234ff4e115171138.pngQueda.thumb.png.f94ef76e9219564288ac586084ee65eb.pngcomms_231024.logppsers_231024.log

    ACBRConsultaCNPJ

    em ACBrTCP

    Postado

    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;

     

    Como pegar o JSON do RestRequest?

    em ACBrDiversos

    Postado

    7 minutos atrás, Juliomar Marchetti disse:

    F7 e F8 jovem ali no execute.;

    vai entrar no código e dai tu vai indo até chegar o momento que monta o json e tu pega ele

    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.

    Como pegar o JSON do RestRequest?

    em ACBrDiversos

    Postado

    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;

     

    Problema ao imprimir em etiquetas de jóias - Argox OS 214 Plus PPLB

    em ACBrSerial

    Postado

    2 horas atrás, Nícolas Reis disse:

    Aconteceu a mesma coisa comigo. Estou com duas impressoras desse mesmo modelo, ja levei na assistencia tecnica autorizada, e diagnosticaram que não havia nenhum problema. E é exatamente isso que acontece ("quando mando imprimir enquanto ainda está imprimindo a primeira impressão, a impressora trava e logo depois acontece o problema"). Parece que a primeira impressao, apesar de ter reiniciado a mesma, ela fica na fila de impressao. 

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

    Impressora Daruma DR800 não imprime em folha maior que 297mm

    em ACBrDiversos

    Postado

    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.

    image.png.e1201c4cb1f8e6b2f1477ac9036b5c4a.png

    Já na Daruma o máximo é 297mm.

    A impressão sai assim:

    image.thumb.jpeg.1a191f3ea4a9c9c8097f726e7b5baeb6.jpeg

    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?

    ACBrPAF - Como assinar o arquivo com EAD?

    em ACBrSintegra/ACBrPAF

    Postado

    16 horas atrás, Juliomar Marchetti disse:

    tu tem que gerar um par de chaves, publica e privadas dai colocar ali para que ele assine.

    sobre o SVN sugiro fazer um novo checkout e excluir o que tem ai

    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.

    image.thumb.png.39d322f31c67e821d13996c5300e7c05.png

     

    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". 

    image.png.e1b28ef9bcf838b3736c5c8e6aaedbba.png

    ACBrPAF - Como assinar o arquivo com EAD?

    em ACBrSintegra/ACBrPAF

    Postado

    11 minutos atrás, carlessoflu disse:

    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?

    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.

    Dúvida Set_Context e Get_Context

    em Banco de Dados

    Postado

    Consegui resolver, vou deixar aqui caso alguém tenha a mesma dúvida.

    Usei um SqlQuery para fazer o set_context ao invés do IBQuery e deu certo.

    Acredito que é porque o SqlQuery fica ligado direto no SqlConnection, e como uso ClientDataSet para fazer o insert, que tbm é ligado direto no SqlConnetion, eles ficam na mesma SESSION de conexão.

    Já o IBQuery fica ligado direto no IBDatabase, nesse caso dá certo usando o IBSQL, que tbm fica ligado no IBDatabase.

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.