johnbh3

Eu fiz pra teste esta procedure debugando ela faz o que quero, porem não retorna dados qdo da o suspende. Queria que retornasse o grid de dados. Seria o caso de usar o RETURNS? CREATE PROCEDURE SP1 ( START_VAL INTEGER, END_VAL INTEGER) AS-- DECLARE VARIABLE MES_I INTEGER; DECLARE VARIABLE MES_STR VARCHAR(3); BEGIN MES_I = :START_VAL; WHILE (MES_I <= :END_VAL) DO BEGIN MES_STR = CASE MES_I WHEN 1 THEN 'Jan' WHEN 2 THEN 'Fev' WHEN 3 THEN 'Mar' WHEN 4 THEN 'Abr' WHEN 5 THEN 'Mai' WHEN 6 THEN 'Jun' WHEN 7 THEN 'Jul' WHEN 8 THEN 'Ago' WHEN 9 THEN 'Set' WHEN 10 THEN 'Out' WHEN 11 THEN 'Nov' WHEN 12 THEN 'Dez' END; MES_I = MES_I + 1; SUSPEND; END END O que eu realmente queria que deu certo neste SQL, mas qual o problema uma soma por mes ocorre que de teste so tenho registro na tabela no mes 08/2023 dai so retornou um registro e quando for 0 (Zero) pra janeiro que e o caso por não haver pagamentos em CT_DUPL gera um registro Ou seja queria os 12 meses como retorno mesmo que não haja pagamentos dai vi como alternativa fazer while em procedure ou tem outra sugestão vocês? SELECT EXTRACT(MONTH FROM DTA_CONT) AS MES, EXTRACT(YEAR FROM DTA_CONT) AS ANO, SUM(VR_DOC) AS TOTAL_VR_DOC FROM CT_DUPL WHERE EXTRACT(YEAR FROM DTA_CONT) = EXTRACT(YEAR FROM CURRENT_DATE) GROUP BY EXTRACT(MONTH FROM DTA_CONT), EXTRACT(YEAR FROM DTA_CONT) ORDER BY ANO, MES;

nesta para tem x86 e 64 - como a aplicação e 32. Até fiz com as duas Copei as duas unicas dll dela: libcrypto-1_1.dll e libssl-1_1.dll junto do exe Mesmo assim erro permanece : desabilitar SSL e deixar só TLS? como exatamente? Estou usando o delphi xe7 Baixei o delphi novo o mesmo codigo funciona

function GetAccessToken: string; var IdHTTP: TIdHTTP; SSLHandler: TIdSSLIOHandlerSocketOpenSSL; Params: TStringList; AccessTokenResponse: string; begin Result := ''; IdHTTP := TIdHTTP.Create(nil); SSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP); Params := TStringList.Create; try // Configurando o gerenciador SSL para permitir conexões seguras (HTTPS) IdHTTP.IOHandler := SSLHandler; // Configurando a versão do protocolo SSL/TLS para TLSv1.1 SSLHandler.SSLOptions.Method := sslvTLSv1_2; // Habilitar suporte ao protocolo TLSv1.1 e TLSv1.2 SSLHandler.SSLOptions.SSLVersions := [sslvTLSv1_2]; // Configurando o cabeçalho da solicitação IdHTTP.Request.ContentType := 'application/x-www-form-urlencoded'; IdHTTP.Request.UserAgent := 'PostmanRuntime/7.32.3'; IdHTTP.Request.Accept := '*/*'; IdHTTP.Request.AcceptEncoding := 'gzip, deflate, br'; IdHTTP.Request.Connection := 'keep-alive'; // Configurando a autenticação básica (Basic Auth) IdHTTP.Request.BasicAuthentication := True; IdHTTP.Request.Username := '123'; IdHTTP.Request.Password := '123'; // Parâmetros do corpo da solicitação Params.Add('grant_type=client_credentials'); Params.Add('scope=pos.api agreements.api b2bplatform.api accounts.api wallet.api'); try // Realizando a solicitação POST com os parâmetros no corpo AccessTokenResponse := IdHTTP.Post('https://utldoparceiro', Params); // Processando a resposta... // (código de processamento da resposta permanece o mesmo) except on E: Exception do begin ShowMessage(E.Message); end; end; finally Params.Free; IdHTTP.Free; end; end; no postman retorna sem problemas no delphi Obter token de API Error connecting with SSL. error:1408F10B:SSL routines:SSL3_GET_RECORD:wrong version number

Eu tenho que fazer uma conexão a ser feita com API No postman eu tenho sucesso configurando assim Na aba Authorization campo usarname: TESTE password: TESTE Fui em settings coloquei o certificado host: WWWW.teste PFX File: /C:/demos/idHttp/.pfx Passphrase: dkkdkdsoidodsi Tenho 11 Heads Content-Type: application/json; charset=utf-8 Content-Length: 28 Host: <calculated when request is sent> User-Agent: PostmanRuntime/7.32.3 Accept: */* Accept-Encoding: gzip, deflate, br Connection: keep-alive id: 12935088000899 Authorization: Basic Dusudiudsiduisdudidsui Meu body e um raw (JSON) { "data": { "Route": "POSLIVE" } } Quero o codigo em delphi pra isto IdSSLIoHanderSocket e IdHtpp usei o TIdSSLIOHandlerSocketOpenSSL que tem opção de KeyFile O arquivo da API e um .pfx Documentação : https://documenter.getpostman.com/view/5095160/2s93RZLpKD#d5b0c372-b42d-4eb1-ac60-651a61ec89e4 var IdHTTP: TIdHTTP; IdSSLIOHandler: TIdSSLIOHandlerSocketOpenSSL; RequestContent: TStringStream; Response: string; begin IdHTTP := TIdHTTP.Create(nil); IdSSLIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP); try IdSSLIOHandler.SSLOptions.Method := sslvTLSv1_2; IdSSLIOHandler.SSLOptions.SSLVersions := [sslvTLSv1_2]; IdSSLIOHandler.SSLOptions.Mode := sslmClient; IdSSLIOHandler.SSLOptions.VerifyMode := []; IdSSLIOHandler.SSLOptions.VerifyDepth := 0; IdSSLIOHandler.SSLOptions.CipherList := 'HIGH:!aNULL:!eNULL:!EXPORT:!DES:!RC4:!MD5:!PSK:!SRP:!CAMELLIA:!DSS:!ADH:!IDEA'; IdHTTP.IOHandler := IdSSLIOHandler; IdHTTP.Request.Host := 'uat-loyalty.dotznext.com'; IdHTTP.Request.ContentType := 'application/json'; IdHTTP.Request.CustomHeaders.AddValue('id', 'dsdsdsdds'); IdHTTP.Request.CustomHeaders.AddValue('Authorization', 'Basic sddsds=='); RequestContent := TStringStream.Create('{ "data": { "route" : "POSUSER", "input" : { "customerId": "ds", "employeeId": "sd", "pdvId": "2" } } }', TEncoding.UTF8); try Response := IdHTTP.Post('https://wwww', RequestContent); ShowMessage(Response); // Aqui você pode processar a resposta recebida finally RequestContent.Free; end; finally IdHTTP.Free; IdSSLIOHandler.Free; end; Tentei esta forma da Erro conectiing with ssl wrong vers ion number Tentei usar oTIdSSLIOHandlerSocketOpenSSL var IdHTTP: TIdHTTP; IdSSLIOHandler: TIdSSLIOHandlerSocketOpenSSL; Response: string; RequestBody: TStringStream; AuthorizationHeader: string; begin IdHTTP := TIdHTTP.Create(nil); IdSSLIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil); try // Configuração do IOHandler SSL IdSSLIOHandler.SSLOptions.Method := sslvTLSv1_2; IdSSLIOHandler.SSLOptions.Mode := sslmClient; IdSSLIOHandler.SSLOptions.SSLVersions := [sslvTLSv1_2]; IdSSLIOHandler.SSLOptions.CertFile := 'C:\demos\idHttp\arquivo.pfx'; IdSSLIOHandler.SSLOptions.KeyFile := IdSSLIOHandler.SSLOptions.CertFile; IdSSLIOHandler.SSLOptions.Method := sslvSSLv23; IdSSLIOHandler.SSLOptions.VerifyMode := []; IdSSLIOHandler.SSLOptions.VerifyDepth := 0; // Configuração do certificado IdSSLIOHandler.SSLOptions.SSLContext.SetDefaultPasswordCallback(SSLPasswordCallback); // Configuração do componente IdHTTP IdHTTP.IOHandler := IdSSLIOHandler; IdHTTP.Request.ContentType := 'application/json; charset=utf-8'; IdHTTP.Request.CustomHeaders.Add('id: 221211'); IdHTTP.Request.CustomHeaders.Add('Content-Length: 28'); IdHTTP.Request.CustomHeaders.Add('User-Agent: PostmanRuntime/7.32.3'); IdHTTP.Request.CustomHeaders.Add('Accept: */*'); IdHTTP.Request.CustomHeaders.Add('Accept-Encoding: gzip, deflate, br'); IdHTTP.Request.CustomHeaders.Add('Connection: keep-alive'); // Configuração do cabeçalho de autorização AuthorizationHeader := 'sdsds'; IdHTTP.Request.CustomHeaders.Add('Authorization: Basic ' + TIdEncoderMIME.EncodeString(AuthorizationHeader)); // Corpo da solicitação RequestBody := TStringStream.Create('{"data": {"Route": "POSLIVE"}}', TEncoding.UTF8); try // Fazendo a solicitação POST Response := IdHTTP.Post('https://wwww', RequestBody); ShowMessage(Response); // Aqui você pode processar a resposta recebida finally RequestBody.Free; end; finally IdHTTP.Free; IdSSLIOHandler.Free; end; end; Neste caso reclama de PEM_read_bio: not start line Ja instalei o pfx tamnem na maquina este e um certificado cedido dotz

Boa tarde Não entendi Como assim? pacote completo do projeto NFS-e Padrão Nacional Você diz credenciar? Não e MEI o CNPJ envolvido nos testes. Você sabe me dizer se eu fizer a adesão ao nacional para BH. Eu tenho que parar de usar o metodo anterior?

Creio que agora deva da certo. Deu algumas rejeições fui ajustando a ultima e: CNPJ do emitente prestador não encontrado no cadastro CNC NFS-e na data de processamento. Neste caso eu devo precisa me credenciar. Mas não posso fazer isto neste CNPJ, porque posso deixar de emitir pelo metodo atual ne? um substitui o outro? estou em homologação. Se um nao substitui, sabem o link do credenciamento?

Certo vou testar e te aviso @Italo Giurizzato Junior

Mas cara não tem nada de diferente. Quando uso o metodo de envio sem ser no padrão nacional. Não faz sentido esta em TLS1.2. Do nada passou dar isto. A unica coisa que fiz foi acessar a URL pelo chorme https://sefin.producaorestrita.nfse.gov.br/SefinNacional/nfse e pediu meu certificado e deu erro de permissão. Eu não acredito ter nada haver com certificado, ele funciona no ecac (NFe, NFSe normal, NFCe). Somente padrão nacional dando isto. Se eu tento ir pelo site https://www.nfse.gov.br/EmissorNacional/Login?ReturnUrl=%2fEmissorNacional e clico em certificado digital da isso. Mas tenho certeza ou pura conhecidencia, como eu tava tendo o erro de NIF e retorou esta url a URL: https://sefin.producaorestrita.nfse.gov.br/SefinNacional/nfse fui testar no chorme e começou da pau. Mas NFe, ta funcionando, e no proprio demoro do NFSEx quando não e padrão nacional comunica certinho. Mas real que meu erro principal era este O grupo de informações de endereço no exterior deve ser informado obrigatoriamente quando o tomador for identificado pelo NIF. Hoje de manhã ja voltou funcionou, e agora voltou o erro original de antes felizmente ou infelizmente hahaha E0206

em debug deu erro '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">'#$D#$A'<html xmlns="http://www.w3.org/1999/xhtml">'#$D#$A'<head>'#$D#$A'<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"/>'#$D#$A'<title>403 - Forbidden: Access is denied.</title>'#$D#$A'<style type="text/css">'#$D#$A'<!--'#$D#$A'body{margin:0;font-size:.7em;font-family:Verdana, Arial, Helvetica, sans-serif;background:#EEEEEE;}'#$D#$A'fieldset{padding:0 15px 10px 15px;} '#$D#$A'h1{font-size:2.4em;margin:0;color:#FFF;}'#$D#$A'h2{font-size:1.7em;margin:0;color:#CC0000;} '#$D#$A'h3{font-size:1.2em;margin:10px 0 0 0;color:#000000;} '#$D#$A'#header{width:96%;margin:0 0 0 0;padding:6px 2% 6px 2%;font-family:"trebuchet MS", Verdana, sans-serif;color:#FFF;'#$D#$A'background-color:#555555;}'#$D#$A'#content{margin:0 0 0 2%;position:relative;}'#$D#$A'.content-container{background:#FFF;width:96%;margin-top:8px;padding:10px;position:relative;}'#$D#$A'-->'#$D#$A'</style>'#$D#$A'</head>'#$D#$A'<body>'#$D#$A'<div id="header"><h1>Server Error</h1></div>'#$D#$A'<div id="content">'#$D#$A' <div class="content-container"><fieldset>'#$D#$A' <h2>403 - Forbidden: Access is denied.</h2>'#$D#$A' <h3>You do not have permission to view this directory or page using the credentials that you supplied.</h3>'#$D#$A' </fieldset></div>'#$D#$A'</div>'#$D#$A'</body>'#$D#$A'</html> Se tento acessar pelo pelo navegador a url: https://sefin.producaorestrita.nfse.gov.br/SefinNacional/nfse da o mesmo erro. Provavelmente e portal da nfe fora do ar. Curiosamente, isto começou a dar porque joguei esta URL no navegador mas não tem nada haver ne? Não sei se vale a pena tratamento: O erro ocorre em: EmiteResponse.ArquivoRetorno := AService.GerarNFSe(ConfigMsgDados.DadosCabecalho, EmiteResponse.ArquivoEnvio); unit: ACBrNFSeXProviderBase

Agora da um erro Expected "(But found invalid symbol 1,2) observação sem fazer uma alteração sequer no demo do acbr.

exemplo do arquivo agora deu pra adicionar! Ele em xml nã deu pelo tamanho 3123060803010700019456000000000000001-rps.zip

Perdão e que o forum ñ me deixa anexar!

Ola Povo boa tarde No demo esta como Tomador.AtualizaTomador := snNao; Tomador.TomadorExterior := snNao; <DPS xmlns="http://www.sped.fazenda.gov.br/nfse" versao="1.00"> <infDPS Id="DPS310620020803010700019400900000000000000001"> <tpAmb>2</tpAmb> <dhEmi>2023-06-11T13:27:50-03:00</dhEmi> <verAplic>ACBrNFSeX-1.00</verAplic> <serie>900</serie> <nDPS>1</nDPS> <dCompet>2023-06-11</dCompet> <tpEmit>1</tpEmit> <cLocEmi>3106200</cLocEmi> <prest> <CNPJ>08030107000194</CNPJ> <IM>12506890019</IM> <xNome>EMPRESA TESTE</xNome> <end> <endNac> <cMun>3106200</cMun> <CEP>31950280</CEP> </endNac> <xLgr>RUA GENERAL ZERBINE</xLgr> <nro>26</nro> <xBairro>GOIANIA</xBairro> </end> <fone>1633224455</fone> <email>[email protected]</email> <regTrib> <opSimpNac>1</opSimpNac> <regEspTrib>1</regEspTrib> </regTrib> </prest> <toma> <CPF>12345678901</CPF> <IM>123</IM> <xNome>INSCRICAO DE TESTE E TESTE</xNome> <end> <endNac> <cMun>3106200</cMun> <CEP>31950280</CEP> </endNac> <xLgr>RUA PRINCIPAL</xLgr> <nro>100</nro> <xCpl>APTO 11</xCpl> <xBairro>CENTRO</xBairro> </end> <fone>1622223333</fone> <email>[email protected]</email> </toma> <serv> <locPrest> <cLocPrestacao>3106200</cLocPrestacao> </locPrest> <cServ> <cTribNac>010201</cTribNac> <xDescServ>discriminacao I; discriminacao II</xDescServ> <cNBS>123456789</cNBS> </cServ> </serv> <valores> <vServPrest> <vServ>100.35</vServ> </vServPrest> <trib> <tribMun> <tribISSQN>1</tribISSQN> <tpRetISSQN>1</tpRetISSQN> </tribMun> <tribFed> <piscofins> <CST>01</CST> <vBCPisCofins>100.35</vBCPisCofins> <pAliqPis>1.65</pAliqPis> <pAliqCofins>7.60</pAliqCofins> <vPis>1.66</vPis> <vCofins>7.63</vCofins> <tpRetPisCofins>2</tpRetPisCofins> </piscofins> </tribFed> <totTrib> <vTotTrib> <vTotTribFed>1.66</vTotTribFed> <vTotTribEst>0.00</vTotTribEst> <vTotTribMun>7.63</vTotTribMun> </vTotTrib> </totTrib> </trib> </valores> </infDPS> </DPS> XML Parâmetros de Retorno Data de Envio : 11/06/2023 Numero do Prot: Numero da Nota: Link : Código Verif. : Sucesso : False Erro(s): Código : E0206 Mensagem: O grupo de informações de endereço no exterior deve ser informado obrigatoriamente quando o tomador for identificado pelo NIF. Correção: ---------

Deu certo povo ! Não sabia que precisaria reinstalar Se puderem fechar o topico

Vou fazer isto! reinstalar aqui. E reporto aqui.

Eh queria evitar ter reinstalar todo acbr hahaha mas pelo visto n vai rolar. Deveria estar atualizado. Afinal o update não tem mais nada pra descer e nada pra reverter. Sendo assim a unica saida e remover toda pasta e baixar novamente. Estranho demais, eu trabalho com git e isso seria banal, pull, revert,

Estranho ! não tem nada em vermelho pra da o revert.

<DPS xmlns="http://www.sped.fazenda.gov.br/nfse" versao="1.00"> <infDPS Id="DPS310620020803010700019400900000000000000001"> <tpAmb>2</tpAmb> <dhEmi>2023-06-11T13:27:50-03:00</dhEmi> <verAplic>ACBrNFSeX-1.00</verAplic> <serie>900</serie> <nDPS>1</nDPS> <dCompet>2023-06-11</dCompet> <tpEmit>1</tpEmit> <cLocEmi>3106200</cLocEmi> <prest> <CNPJ>08030107000194</CNPJ> <IM>12506890019</IM> <xNome>EMPRESA TESTE</xNome> <end> <endNac> <cMun>3106200</cMun> <CEP>31950280</CEP> </endNac> <xLgr>RUA GENERAL ZERBINE</xLgr> <nro>26</nro> <xBairro>GOIANIA</xBairro> </end> <fone>1633224455</fone> <email>[email protected]</email> <regTrib> <opSimpNac>1</opSimpNac> <regEspTrib>1</regEspTrib> </regTrib> </prest> <toma> <CPF>12345678901</CPF> <IM>123</IM> <xNome>INSCRICAO DE TESTE E TESTE</xNome> <end> <endNac> <cMun>3106200</cMun> <CEP>31950280</CEP> </endNac> <xLgr>RUA PRINCIPAL</xLgr> <nro>100</nro> <xCpl>APTO 11</xCpl> <xBairro>CENTRO</xBairro> </end> <fone>1622223333</fone> <email>[email protected]</email> </toma> <serv> <locPrest> <cLocPrestacao>3106200</cLocPrestacao> </locPrest> <cServ> <cTribNac>010201</cTribNac> <xDescServ>discriminacao I; discriminacao II</xDescServ> <cNBS>123456789</cNBS> </cServ> </serv> <valores> <vServPrest> <vServ>100.35</vServ> </vServPrest> <trib> <tribMun> <tribISSQN>1</tribISSQN> <tpRetISSQN>1</tpRetISSQN> </tribMun> <tribFed> <piscofins> <CST>01</CST> <vBCPisCofins>100.35</vBCPisCofins> <pAliqPis>1.65</pAliqPis> <pAliqCofins>7.60</pAliqCofins> <vPis>1.66</vPis> <vCofins>7.63</vCofins> <tpRetPisCofins>2</tpRetPisCofins> </piscofins> </tribFed> <totTrib> <vTotTrib> <vTotTribFed>1.66</vTotTribFed> <vTotTribEst>0.00</vTotTribEst> <vTotTribMun>7.63</vTotTribMun> </vTotTrib> </totTrib> </trib> </valores> </infDPS> </DPS> Debugando o XML gerado não consegui tb entender o motivo do erro.

sobre o erro Parâmetros de Envio Numero do Lote: 1 Parâmetros de Retorno Data de Envio : 11/06/2023 Numero do Prot: Numero da Nota: Link : Código Verif. : Sucesso : False Erro(s): Código : E0206 Mensagem: O grupo de informações de endereço no exterior deve ser informado obrigatoriamente quando o tomador for identificado pelo NIF. Correção: --------- Código : X203 Mensagem: Não foi retornado nenhuma NFSe. Correção: --------- No demo esta como Tomador.AtualizaTomador := snNao; Tomador.TomadorExterior := snNao; Confesso que estou completamente confuso sem entender este erro. O demo do Acbr no alimentarNFSe da todo sinal que a nota de exemplo e toda em territorio nacional.

Ola Atualizei o componente e ta dando erro ACBR Demo NFSe x dando erro Undeclared identifier: 'proPrescon' no demo

Deu certo aqui, agora deu um erro O grupo de informações de endereço no exterior deve ser informado obrigatoriamente quando o tomador for identificado pelo NIF. usando o demo. Sabem oque e?

Ola Usando o demo ele da o erro nenhum provedor selecionado AcbrNFSe padrão proPadraoNacional erro nenhuma provedor selecionado, mas esta setado proPadraoNacional . O que to fazendo de errado? Pessoal este proPadraoNacional seria esta nova NFSe do governo mesmo? nacional?

para o padrão nacional qual propriedade devo setar em layoutNFse tem : lnfsPadraoNacionalv1 porém em provedor não tem nacional. Pessoal desconsiderar atualizar o componente e apareceu proPadraoNacional

Ola ACBrNFSeX e nacional? parece que ja esta funcionando a NFSe nacional?

Ajuda não estou entendendo uma coisa, quando dou o post da um erro Cannot open file "C:\demos\idHttp\Win32\Debug\[ { "id": 0, "NOME": "NENHUMA", var reqBody: string; idHttp: TIdHTTP; idSSL: TIdSSLIOHandlerSocketOpenSSL; response: string; begin idSSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil); idHttp := TIdHTTP.Create(nil); try idHttp.IOHandler := idSSL; reqBody := '[' + ' {' + ' "ID": 0,' + ' "NOME": "NENHUMA"' + ' }' + ']'; idHttp.Request.ContentType := 'application/json'; response:=idHttp.Post('https://brasil-api-interna-producao.azurewebsites.net/api/licenciamento/', reqBody); ShowMessage(response);