TRodrigues_
-
Total de ítens
26 -
Registro em
-
Última visita
TRodrigues_'s Achievements
-
Go-Global com Delphi 6 - Access Violation
um tópico no fórum postou TRodrigues_ Object Pascal - Delphi & Lazarus
Pessoal estou utilizando GO-Global uma ferramenta para virtualização de uma aplicação desenvolvida em Delphi 6, porem a todo momento a aplicação delphi 6 apresenta erro de access violation, porem esse erro so ocorre quando eu abro a aplicação delphi 6 via GO-Global, alguem tem alguma ideia do que pode ser? O Delphi 6 exige o registro de muitas DLLs, pergunto pq nunca trabalhe com Delphi6. Att -
FDQuery + SqlServer - Invalid Cursor position
TRodrigues_ replied to TRodrigues_'s tópico in Banco de Dados
Boa Tarde! Valter, Juliomar obrigado pelas resposta, desculpa não responder antes, mas estava bastante ocupado devido a troca de servidor! Vamos lá Valter eu não tirei print e nem postei codigo pq a query tem um sql com a mesma estrutura do exemplo citado, não alterei nenhuma propriede da FDQuery, do jeito que o delphi tras eu deixei. O Mais interessante é q no servidor antigo funcionava perfeitamente, agora no novo servidor não funciona, o novo server esta na AWS. Juliomar as configuracoes estão ok, como citei acima para o Valter, funciona corretamente no servidor anterior, e pra ficar mais interessante, se eu acesso o servidor via vpn e rodo o .exe que tem essa FDquery funciona, se faço login no windows do servidor e rodo, não funciona. Att -
Srs boa tarde! Estou tendo problemas ao tentar fazer um consulta simples que retorna muitas colunas (160), a consulta é Select * from nometabela order by coluna1,coluna2. Quando testo no SQL Server Management Studio funciona normalmente, porem no delphi 10.2 usando FDQuery sempre aparece o erro "Invalid Cursor position", aparentemente é algum problema com a quantidade de coluna, pois quando eu reduzo a quantidade de colunas, tipo Select coluna1, coluna2, coluna3 from nometabela order by coluna1,coluna2 o erro não ocorre, alguem ja passou por esse problema? Sabe como resolve-lo? Desde já agradeço Att
-
Erro de script ao iniciar delphi 10.2
TRodrigues_ replied to TRodrigues_'s tópico in Object Pascal - Delphi & Lazarus
@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. -
Erro de script ao iniciar delphi 10.2
TRodrigues_ replied to TRodrigues_'s tópico in Object Pascal - Delphi & Lazarus
@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. -
Erro de script ao iniciar delphi 10.2
TRodrigues_ replied to TRodrigues_'s tópico in Object Pascal - Delphi & Lazarus
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. -
Erro de script ao iniciar delphi 10.2
um tópico no fórum postou TRodrigues_ Object Pascal - Delphi & Lazarus
Pessoal, sempre que acesso o delphi o erro acima aparece, alguem ja passou por isso? sabe me explicar como resolver? Att -
Enviar Email API, Form-data usando metodo PUT
um tópico no fórum postou TRodrigues_ Object Pascal - Delphi & Lazarus
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; -
Pessoal bom dia! Alguem ja integrou delphi 10 com SharePoint? Preciso fazer a integração mais não estou conseguindo encontrar suporte. Att
-
API - REST REQUEST sem ADDFile, DELPHI - POST
um tópico no fórum postou TRodrigues_ Object Pascal - Delphi & Lazarus
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 -
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
-
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
-
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.
-
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.
-
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.
