TRodrigues_

Pessoal, preciso realizar merge de PDF, porem não posso usar ferramentas pagas e nem .exe. Encontrei o sysPDF.pas podem não tem opção de mergar (juntas varios pdfs) Se alguem tiver algo e puder compartilhar, ficarei muito grato.

@Juliano D. Rosa @Juliomar Marchetti obrigado pelo apoio. Deu certo... em produção não ocorreu o erro de timeout. Para SP Itens <IBSCBS> <CST>000</CST> <cClassTrib>000001</cClassTrib> <gIBSCBS> <vBC>199.80</vBC> <gIBSUF> <pIBSUF>0.1000</pIBSUF> <vIBSUF>0.20</vIBSUF> </gIBSUF> <gIBSMun> <pIBSMun>0.0000</pIBSMun> <vIBSMun>0.00</vIBSMun> </gIBSMun> <vIBS>0.20</vIBS> <gCBS> <pCBS>0.9000</pCBS> <vCBS>1.80</vCBS> </gCBS> </gIBSCBS> </IBSCBS> Total Imposto <IBSCBSTot> <vBCIBSCBS>1204.53</vBCIBSCBS> <gIBS> <gIBSUF> <vDif>0.00</vDif> <vDevTrib>0.00</vDevTrib> <vIBSUF>1.23</vIBSUF> </gIBSUF> <gIBSMun> <vDif>0.00</vDif> <vDevTrib>0.00</vDevTrib> <vIBSMun>0.00</vIBSMun> </gIBSMun> <vIBS>1.23</vIBS> <vCredPres>0.00</vCredPres> <vCredPresCondSus>0.00</vCredPresCondSus> </gIBS> <gCBS> <vDif>0.00</vDif> <vDevTrib>0.00</vDevTrib> <vCBS>10.83</vCBS> <vCredPres>0.00</vCredPres> <vCredPresCondSus>0.00</vCredPresCondSus> </gCBS> </IBSCBSTot> Pode encerrar o topico

@Juliano D. Rosa Valeu! Então, eu tinha ido ao site da receita e baixado tudo q tinha referente a schemas de 2025 pra ca, e mesmo assim este erro continuava, por isso postei aqui no forum. Resolvi, apagando o conteudo d pasta schemas que eu tinha, e colocando o conteudo da pasta Acbr\Exemplos\ACBrDFe\Schemas\NFe. Agora apareceu um novo erro, hasuhaus

Agora estou com o seguinte problema... ja desinstalei o ACBR, atualizei e instalei novamente e nada. Informa que a tag vIBS não é esperado, mas no manual a tag existe e verificando notas de alguns fornecedores a tag tbm existe.. Quando eu comento o codigo para não informar a tag, o componente ACBRNFE informa ele zerado. Ja nao sei mais o que fazer.

Srs. boa noite! Preciso fazer o preenchimento obrigatorio para 2026 do regime CRT - 3 Regime Normal. Recebi a informação do contador que devo preencher apenas as aliquotas CBS: 0,90% e IBS: 0,10%, porem lendo o manual 7.0, tem varias informações adicionais. Alguem ja fez o preenchimento para São Paulo (Apenas o obrigatorio para teste 2026), consegue validar se estaria correto o codigo abaixo: with Imposto do begin with IBSCBS do Begin //CST := cst200; //cClassTrib := '200003'; //gIBSCBS.vBC := 0; gIBSCBS.gIBSUF.pIBSUF := 0.1; gIBSCBS.gCBS.pCBS := 0.9; end; end; Desde ja agradeço Att Rodrigo

@Juliomar Marchetti @BigWings e todos os demais colegas que ajudaram, muito obrigado! Consegui resolver na terça no período da tarde! A causa do problema, realmente era a falta de atualização do meu acbr, eu tinha feito uma atualização anteriormente, mas cometi algum erro. Para resolver, exclui as pasta fontes, lib e pacotes, apos isso, fiz um update (SVN Update), fiz a depuração passo a passo novamente, e deu erro no assinar, então fiz a atualização dos schemas. Rodei novamente e não teve mais erro no .enviar. Precisei fazer alguns ajustes para conseguir pegar os dados que eu precisava do retorno, abaixo: ACBrNFeSaida.Enviar(StrToInt(vNumLote), false, True); vNprot := ACBrNFeSaida.WebServices.Enviar.Protocolo; vMotivo := ACBrNFeSaida.WebServices.Enviar.xMotivo; vChAcesso := ApenasNumerosStr(ACBrNFeSaida.NotasFiscais.Items[0].NFe.infNFe.id); vsta := ACBrNFeSaida.WebServices.enviar.cStat; If ACBrNFeSaida.WebServices.enviar.cStat = 100 then Begin vChAcesso := ACBrNFeSaida.NotasFiscais[0].NFe.procNFe.chNFe; vDigval := ACBrNFeSaida.NotasFiscais[0].NFe.procNFe.digVal; vDthr := ACBrNFeSaida.NotasFiscais[0].NFe.procNFe.dhRecbto; vsta := ACBrNFeSaida.NotasFiscais[0].NFe.procNFe.cStat; end;

@Juliomar Marchettientão foi na depuração passo a passo que identifiquei o erro no metodo .enviar. Se notar no codigo que postei acima, não existe ACBrNFe.NotasFicais.Clear entre o .enviar e a tentativa de ler o retorno da receita ( If ACBrNFeSaida.WebServices.Retorno.cStat = 100 then), sem contar que antes de mudar o parametro do enviar para Sincrono estava tudo ok, o clear não iria surgir do nada so por mudar o paramentro, rsrs. Lembrando que utilizo delphi 7. Vou atualizar o acbr e tentar novamente, pelo menos encontrei um topico que o pessoal estava como o mesmo problema e conseguiram solucionar. Por enquanto muito obrigado! Darei continuidade amanhã.

@BigWings não chega no tratamento da resposta, pq o erro ocorre no enviar. Se no metodo enviar da erro, não tem resposta para tratar. ACBrNFeSaida.Enviar(StrToInt(vNumLote), false, True); //Se estivesse tudo ok, na linha abaixa trataria a resposta do protocolo. If ACBrNFeSaida.WebServices.Retorno.cStat = 100 then Begin Gauge1.Progress := Gauge1.Progress + 40; MmAlerta.Text := 'NOTA ENVIADA COM SUCESSO'; Gauge1.Progress := 100; vNprot := ACBrNFeSaida.WebServices.Retorno.Protocolo; vChAcesso := ACBrNFeSaida.WebServices.Retorno.ChaveNFe; vDigval := ACBrNFeSaida.WebServices.Retorno.NFeRetorno.ProtDFe.Items[0].digVal; vDthr := ACBrNFeSaida.WebServices.Retorno.NFeRetorno.ProtDFe.Items[0].dhRecbto; vsta := ACBrNFeSaida.WebServices.Retorno.NFeRetorno.ProtDFe.Items[0].cStat; //alimenta os campos da nota com informacoes do protocolo With IBQTmp do Begin Close; Sql.Clear; Sql.Add('UPDATE NOTASSAIDA SET DIGVALUE_NFE = :DIGV, CHAVEACESSO_NFE = :CHAVE, PROTOCOLO_NFE = :PROT, DTPROT_NFE = :DT, HRPROT_NFE = :HR, STAT_NFE = :STA'); Sql.Add('WHERE LANCTONOTAS = ' + IntToStr(IBQNotaSaidaLANCTONOTAS.Value)); ParamByName('DIGV').AsString := vDigval; ParamByName('CHAVE').AsString := vChAcesso; ParamByName('PROT').AsString := vNprot; ParamByName('DT').AsDate := vDthr; ParamByName('HR').AsTime := vDthr; ParamByName('STA').AsInteger := vsta; ExecSQL; Transaction.CommitRetaining; end; end else begin MmAlerta.Text := ACBrNFeSaida.WebServices.Retorno.xMotivo; vNprot := ACBrNFeSaida.WebServices.Retorno.Protocolo; vChAcesso := ACBrNFeSaida.WebServices.Retorno.ChaveNFe; vsta := ACBrNFeSaida.WebServices.Retorno.NFeRetorno.ProtDFe.Items[0].cStat; With IBQTmp do Begin Close; Sql.Clear; Sql.Add('UPDATE NOTASSAIDA SET CHAVEACESSO_NFE = :CHAVE, STAT_NFE = :STA'); Sql.Add('WHERE LANCTONOTAS = ' + IntToStr(IBQNotaSaidaLANCTONOTAS.Value)); ParamByName('CHAVE').AsString := vChAcesso; ParamByName('STA').AsInteger := vsta; ExecSQL; Transaction.CommitRetaining; end; Messagebox(application.Handle,'A nota não recebeu retono do SEFAZ, favor verificar!','NFe SEM RETORNO',MB_OK+MB_ICONWARNING+MB_SYSTEMMODAL); end; ACBrNFeSaida.NotasFiscais.Clear; IBQNotaSaida.Close; IBQNotaSaida.Open;

@BigWings o erro ocorre justamente nos metodos enviar e consultar. Como comentei o enviar, envia normalmente para receita, a receita homologa, mas quando o componente deveria tratar a resposta enviada pela receita, o erro ocorre. Não completa o metodo enviar e consultar. As configurações para salvar os arquivos estão assim: ACBrNFeSaida.Configuracoes.Arquivos.PathSchemas := ExtractFilePath(application.ExeName) + 'SCHEMAS\'; ACBrNFeSaida.Configuracoes.Arquivos.PathNFe := ExtractFilePath(application.ExeName) + 'ARQNFE\' + copy(FormatDateTime('ddmmyyyy',now),3,6) + '\NFEs'; ACBrNFeSaida.Configuracoes.Arquivos.PathEvento := ExtractFilePath(application.ExeName) + 'ARQNFE\' + copy(FormatDateTime('ddmmyyyy',now),3,6) + '\CANCs'; ACBrNFeSaida.Configuracoes.Arquivos.PathInu := ExtractFilePath(application.ExeName) + 'ARQNFE\' + copy(FormatDateTime('ddmmyyyy',now),3,6) + '\INUTs'; Se o problema fosse o componente não conseguir baixar o xml de resposta, acredito que o erro seria diferente. Encontrei este topico:

Então, eu não uso e nunca usei o ACBrMonitorPLUS, sera que se tornou obrigatorio. Vou analisar mais um pouco o componente. Valeu pela dica

Srs. boa tarde! Gostaria da ajuda de vocês para resolver um problema com NFe. A situação é a seguinte: Até 31/08/2025 funciona tudo ok! O Sistema enviava a nota da seguinte forma: ACBrNFeSaida.Enviar(StrToInt(vNumLote)); Devido a obrigatoriedade da forma de envio sincrona para 1 unica nota a partir de 01/09/2025, configurei para enviar da seguinte forma: ACBrNFeSaida.Enviar(StrToInt(vNumLote), false, True); Ai começou a msg de erro, conforme imagem em anexo. A nota vai para receita normalmente, mas alguma coisa mudou quando o componente recepciona o xml homologado, pois erro erro ocorre até quando faço uma consulta pela chave da nfe. ACBrNFeSaida.WebServices.Consulta.NFeChave := ChaveCte; ACBrNFeSaida.WebServices.Consulta.Executar; Quando eu consulto pelo XML homologado que baixei da receita, o erro não ocorre. ACBrNFeSaida.NotasFiscais.LoadFromFile(sCaminhoXml); ACBrNFeSaida.Consultar; Desde ja agradeço

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

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

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

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

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.

Pessoal, sempre que acesso o delphi o erro acima aparece, alguem ja passou por isso? sabe me explicar como resolver? Att

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

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.