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.