Ir para conteúdo
  • Cadastre-se

TRodrigues_

Membros
  • Total de ítens

    23
  • Registro em

  • Última visita

Últimos Visitantes

O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.

TRodrigues_'s Achievements

  1. @Juliomar Marchettimuito obrigado, eu ja ia pedir para o pessoal responsavel entrar em contato com a embarcadeiro. Ah, é possivel usar normalmente a tela, basta clicar "não" umas 8x. Valeu pelo suporte, pode fechar o post.
  2. @Renato Rubinho Desabilitei o welcome, a tela principal ficou igual a imagem em anexo, porem o problema continua, estou achando que o problema não esta nesta tela e nem é na Url, pq esta aparecendo erro em https://blogs.embarcadero.com/community/, e esta pagina esta funcionando corretamente.
  3. Daniel é no welcome do delphi. Juliomar, a versão é original , o erro começou aparecer a 1 mes atras em todas as licenças do delphi 10 seattle. Aparecem 5 erros e todos tem relação com jquery. Estou pesquisando como resolver, mas até o momento não encontrei.
  4. Pessoal, sempre que acesso o delphi o erro acima aparece, alguem ja passou por isso? sabe me explicar como resolver? Att
  5. Srs bom dia! Estou tentando enviar email com anexo utilizando API com metodo PUT, porem retorna bad requestion, algo poderia me ajudar, segue minha função abaixo: function enviaremailS3_2({sCodAdm, sURL, sToken, assunto, corpoHtml, Destinatarios, Anexos : String}): Integer; var iRetorno: Integer; sURLDownload: String; Parametros : TIdMultipartFormDataStream; HTTPClient : TIdHTTP; begin iRetorno := 0; Parametros := TIdMultiPartFormDataStream.Create; HTTPClient := TIdHTTP.Create; try try Parametros.AddFormField('iCodAdm', '4'); Parametros.AddFormField('Assunto', 'Extrato'); Parametros.AddFormField('Corpo', '<body>Extrato de Comissao</body>'); Parametros.AddFormField('Destinatarios', '[email protected]'); Parametros.AddFile('Anexos', 'D:\CSV\DocumentosS3\1400000014_87138.pdf'); HTTPClient.Request.CustomHeaders.Clear; HTTPClient.Request.CustomHeaders.Values['Authorization'] := 'Bearer ' + sToken; HTTPClient.Request.Accept := 'application/json'; HTTPClient.Request.ContentType := 'application/x-www-form-urlencoded'; HTTPClient.Request.ContentEncoding := 'multipart/form-data'; sURLDownload := HTTPClient.Put('https://webapihomologacao.com.br/api/v1/EnvioEmail/EnviarEmailAmazon',Parametros); if HTTPClient.ResponseCode = 200 then Result:= 0 else Result:= 1; except on E: Exception do begin Result := -1; end; end; finally FreeAndNil(Parametros); FreeAndNil(HTTPClient); end; end;
  6. Pessoal bom dia! Alguem ja integrou delphi 10 com SharePoint? Preciso fazer a integração mais não estou conseguindo encontrar suporte. Att
  7. Pessoal, bom dia! Preciso fazer upload de arquivos via api. Para api passo os seguintes parametros: eTipoRotinaArquivo, SubPasta e Arquivo. A função abaixo funciona perfeitamente no Delphi 10.4, mas no delphi seatle não funciona, pois ele não possui addfile no RESTRequest, gostaria de saber se tem alguma forma de resolver isso. //Função funcionando no delphi 10.4 function enviarreceberS3(Metodo, Tipo, extArq, sURL, sToken, sOrigem, sDestino, sNomeArquivo: AnsiString; Memo : TMemo): Integer; var iRetorno: Integer; sURLDownload, sDirDownload: String; vRestClient : TRESTClient; vRestResponse : TRESTResponse; vRestRequest : TRESTRequest; Enco_dedc : String; vJason : String; begin {//Metodo 0. GET 1. PUT 2. POST } vRestClient := TRESTClient.Create(nil); vRestResponse := TRESTResponse.Create(nil); vRestRequest := TRESTRequest.Create(nil); try try vRestClient.Accept := 'application/json, text/plain; q=0.9, text/html;q=0.8'; vRestClient.ContentType := 'application/json;odata=verbose;charset=utf-8'; vRestClient.AcceptCharset := 'UTF-8, *;q=0.8'; vRestClient.AcceptEncoding := 'identity'; vRestClient.AcceptEncoding := 'deflate, gzip, *;q=0'; vRestRequest.Client := vRestClient; vRestRequest.Accept := 'application/json'; vRestRequest.Response := vRestResponse; vRestClient.BaseURL := UTF8ToUnicodeString(sURL); //'https://minhaapihomologacao.empresa.com.br/api/v1/arquivo' vRestRequest.AddAuthParameter( 'Authorization', 'Bearer ' + UTF8ToUnicodeString(sToken), TRESTRequestParameterKind.pkHTTPHEADER); case strtoint(Metodo) of 0 : vRestRequest.Method := rmGET; 1 : vRestRequest.Method := rmPUT; 2 : vRestRequest.Method := rmPOST; end; if metodo = '0' then else begin vRestRequest.AddParameter('eTipoRotinaArquivo','4'); vRestRequest.AddParameter('SubPasta','SubPastaTeste'); vRestRequest.AddFile('Arquivo',sOrigem); //Delphi Seatle não tem addfile end; vRestRequest.Execute; if (vRestResponse.StatusCode = 200) then begin sURLDownload := ReplaceStr(vRestResponse.JSONText,'"',''); memo.Text := ReplaceStr(vRestResponse.JSONText,'"',''); if Metodo = '0' then begin sURLDownload := ReplaceStr(sURLDownload,'\',''); if not DirectoryExists(sDestino) then ForceDirectories(sDestino); //sDirDownload := UTF8ToUnicodeString(sDestino)+UTF8ToUnicodeString(sNomeArquivo); sDirDownload := UTF8ToUnicodeString(sDestino)+UTF8ToUnicodeString(sNomeArquivo); iRetorno:= UrlDownloadToFile(nil, PChar(sURLDownload), PChar(sDirDownload), 0, nil); Result:= iRetorno; end; Result:= iRetorno; end else Result:= 1; except on E: Exception do begin Result := -1; end; end; finally FreeAndNil(vRestClient); FreeAndNil(vRestResponse); FreeAndNil(vRestRequest); end; end; Desde ja agradeço
  8. Italo, obrigado pela informações. Renato, eu fiz isso, mas não consegui identificar nada de diferente no campo descrição. Segue anexo XML do site da prefeitura. 20028803_2_831200.xml
  9. Srs bom dia! Alguem utiliza servidor ISSNet? Sabe me informar qual caracter utilizar para informar quebra de linha no xml? Estou usando o ; (ponto e virgula),porem so funciona para emissão do PDF local, quando acesso o site da prefeitura e envio ou gero pdf da nota, a quebra de linha não funciona. Desde ja agradeço
  10. Bom dia Italo! Estou usando o AcbrNFSex, baixei em 20/05/23. Então, eu ja baixei uma nota da prefeitura, coloquei os dados iguais, a unica diferença é q minha nota é homologação e a que baixei da prefeitura esta em produção. Na primeira tentativa que eu fiz de enviar o RPS, deram varios erros, e o problema era que para enviar homologação eu tinha que informar a serie = '8'. Ja conferir ate com a ficha cadastral, então estou achando que é alguma informação q esta faltando ou algum dado que tenho q informar diferente para fazer a homologação.
  11. Italo obrigado pelo suporte. Estou usando delphi 10.2 com acbrNFSe. Ja progredi bastante, agora aparece o seguinte erro: Erro(s): Código : E035 Mensagem: Código de tributação inexistente.(Numero RPS: 12) Correção: Consulte a legislação vigente para saber o Código de tributação que deverá ser informado. --------- Código : L003 Mensagem: O Código de tributação informado não pertence a este contribuinte.(Numero RPS: 12) Correção: Consulte junto a prefeitura de seu município o código vigente. --------- O Problema é q ja consultei na prefeitura o codigo, entrei com o cadastro do cliente. Informe o codigo no acbr e mesmo assim o erro persiste.
  12. Infelizmente me enviaram alguns modelos de XML e um PDF com 3 Paginas, que não tem quase nada de informação, explica apenas como cadastrar o ambiente de homologação. O Manual, eu li da ABRASF 2.04. Mandei uma msg para eles, pq preciso saber como homologar um cnpj que ja estava em produção.
  13. Pessoal bom dia! Preciso emitir NFSe de Ribeirão Preto e tenho as seguintes duvidas: 1 - Certificado Digital, tenho que pegar algum gratuito na prefeitura ou uso o .pfx do e-cnpj do emissor? 2 - Tenho q emitir uma grande quantidade de NFSe por mes, porem posso emitir tudo em dia(s) específicos, é mais aconselhável gerar RPS ou emitir direto NFSe sem o RPS? 3 - Se tiver alguma outra dica para emissão ficarei grato.
  14. Pessoal, vi que não respondi. Deu td certo, obrigado a todos!
  15. Limpei tudo e deu certo. Obrigado. Agora fui fazer um teste usando o FortesReport e esta ocorrendo os seguinte erros na unit ACBrBoletoFCFortesFr; [dcc32 Error] ACBrBoletoFCFortesFr.pas(464): E2003 Undeclared identifier: 'fpAbout' [dcc32 Error] ACBrBoletoFCFortesFr.pas(481): E2003 Undeclared identifier: 'lCarne' [dcc32 Error] ACBrBoletoFCFortesFr.pas(537): E2003 Undeclared identifier: 'lPadraoEntrega' [dcc32 Error] ACBrBoletoFCFortesFr.pas(537): E2008 Incompatible types [dcc32 Error] ACBrBoletoFCFortesFr.pas(628): E2003 Undeclared identifier: 'pFisica' [dcc32 Error] ACBrBoletoFCFortesFr.pas(629): E2003 Undeclared identifier: 'pJuridica' [dcc32 Error] ACBrBoletoFCFortesFr.pas(639): E2003 Undeclared identifier: 'MensagemCompensacao' [dcc32 Error] ACBrBoletoFCFortesFr.pas(639): E2066 Missing operator or semicolon [dcc32 Error] ACBrBoletoFCFortesFr.pas(652): E2003 Undeclared identifier: 'atSim' [dcc32 Error] ACBrBoletoFCFortesFr.pas(652): E2250 There is no overloaded version of 'IfThen' that can be called with these arguments [dcc32 Error] ACBrBoletoFCFortesFr.pas(677): E2030 Duplicate case label [dcc32 Error] ACBrBoletoFCFortesFr.pas(770): E2003 Undeclared identifier: 'pFisica' [dcc32 Error] ACBrBoletoFCFortesFr.pas(771): E2003 Undeclared identifier: 'pJuridica' [dcc32 Error] ACBrBoletoFCFortesFr.pas(803): E2003 Undeclared identifier: 'atSim' [dcc32 Error] ACBrBoletoFCFortesFr.pas(803): E2250 There is no overloaded version of 'IfThen' that can be called with these arguments [dcc32 Error] ACBrBoletoFCFortesFr.pas(838): E2003 Undeclared identifier: 'pFisica' [dcc32 Error] ACBrBoletoFCFortesFr.pas(839): E2003 Undeclared identifier: 'pJuridica' [dcc32 Fatal Error] uBoleto.pas(123): F2063 Could not compile used unit 'ACBrBoletoFCFortesFr.pas' Failed Elapsed time: 00:00:01.5 Vi que no Interfaces --> uses falta ACBrBoletoConversao, mas mesmo colocando a unit, ainda consta o erro: [dcc32 Error] ACBrBoletoFCFortesFr.pas(464): E2003 Undeclared identifier: 'fpAbout' [dcc32 Error] ACBrBoletoFCFortesFr.pas(639): E2003 Undeclared identifier: 'MensagemCompensacao' [dcc32 Error] ACBrBoletoFCFortesFr.pas(639): E2066 Missing operator or semicolon [dcc32 Fatal Error] uBoleto.pas(123): F2063 Could not compile used unit 'ACBrBoletoFCFortesFr.pas' Failed Elapsed time: 00:00:03.5
×
×
  • 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.