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

TRodrigues_

Membros
 Perfil  Explorar Conteúdo

  • 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

Explorer

Explorer (4/14)

  • Dedicated Rare
  • Collaborator Rare
  • Reacting Well Rare
  • First Post
  • Conversation Starter

Recent Badges

3

Reputação

1

Community Answers

  1. TRodrigues_
    @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. TRodrigues_
    @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. TRodrigues_
    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. TRodrigues_ started following NFSe Ribeirão Preto - Duvidas , Erro de script ao iniciar delphi 10.2 , Enviar Email API, Form-data usando metodo PUT e 3 outros
  5. TRodrigues_
    Pessoal, sempre que acesso o delphi o erro acima aparece, alguem ja passou por isso? sabe me explicar como resolver? Att
  6. TRodrigues_
    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;
  7. TRodrigues_
    Pessoal bom dia! Alguem ja integrou delphi 10 com SharePoint? Preciso fazer a integração mais não estou conseguindo encontrar suporte. Att
  8. TRodrigues_
    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
  9. TRodrigues_
    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
  10. TRodrigues_
    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
  11. TRodrigues_
    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.
  12. TRodrigues_
    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.
  13. TRodrigues_
    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.
  14. TRodrigues_
    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.
  15. TRodrigues_
    Pessoal, vi que não respondi. Deu td certo, obrigado a todos!
  16. TRodrigues_
    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.

The popup will be closed in 10 segundos...