Filipe Natividade

Boa tarde @Antonio Carlos L Resolvi essas novas rejeições da seguinte forma. *Só informar o proprietário do veículo, se o veículo não for da frota. Com isso, a tag Ide.tpTransp preenchi da seguinte forma. Se o proprietário não for informado (frota): Ide.tpTransp = ttNenhum Se o proprietário for pessoal física: Ide.tpTransp = ttTAC Se o proprietário for pessoal jurídica: Ide.tpTransp = ttETC ou ttCTC *Se o proprietário for informado, preencher o tag InfContratante somente com o CNPJ do emissor do MDF-e.

Boa tarde Devido a alteração no layout do MDF-e, não possui mais o mesmo tamanho da área de impressão da logo do que o layout antigo, o que afetou o posicionamento quando é utilizado a opção de logo expandida. O quadro em azul do anexo representa o tamanho que era utilizado para a área da logo e das informações da empresa no layout antigo, que no caso, era o tamanho disponível para a logo no tamanho expandido. Segue o layout antigo como exemplo: Fiz a alteração para que fique na seguinte forma: Seria possível aplicar essa alteração? ACBrMDFeDAMDFeRLRetrato.dfm

@Juninho boa noite, já configuração do componente e na chamada da função você colocou o código do município? E não sei na cidade que vc atende, mas aqui na minha, tem que ser o Código TOM, e não o código do IBGE.

Bom dia. Fiz a homologação com a Linx e está funcionando perfeitamente com as alterações do @volmir.

**ou forçar o usuário a sempre escolher um diretório e nome do arquivo?

Bom dia, fiz a atualização do Fortes e do ACBr e não notei nenhuma diferença. Existe algum meio de informar para o ACBr o filtro padrão e o endereço do arquivo?, ou formar o usuário a sempre escolher um diretório e nome do arquivo?

Isso mesmo, Resolvido. Obrigado.

Atualização. Eu coloquei a linha {$DEFINE HAS_SYSTEM_GENERICS} abaixo da linha {$I ACBr.inc} nas units ACBrCEP.pas e ACBrIBGE.pas Com isso instalou, agora por que essa informação não veio pelo ACBr.inc eu já não sei dizer.

Bom dia, ocorreu os seguintes erros ao executar o ACBrInstall_Trunk2. Delphi 10.2.2 Tokyo. Compiling package .\Pacotes\Delphi\ACBrTCP\ACBr_TCP.dpk "C:\Program Files (x86)\Embarcadero\Studio\19.0\bin\dcc32.exe" ".\Pacotes\Delphi\ACBrTCP\ACBr_TCP.dpk" Embarcadero Delphi for Win32 compiler version 32.0 Copyright (c) 1983,2017 Embarcadero Technologies, Inc. .\Fontes\ACBrTCP\ACBrIBGE.pas(386) Error: E2010 Incompatible types: 'System.Generics.Defaults.IComparer<System.TObject>' and 'Pointer' .\Fontes\ACBrTCP\ACBrIBGE.pas(429) Error: E2010 Incompatible types: 'System.Generics.Defaults.IComparer<System.TObject>' and 'Pointer' .\Fontes\ACBrTCP\ACBrIBGE.pas(443) Error: E2010 Incompatible types: 'System.Generics.Defaults.IComparer<System.TObject>' and 'Pointer' .\Fontes\ACBrTCP\ACBrIBGE.pas(742) Error: E2010 Incompatible types: 'System.Generics.Defaults.IComparer<System.TObject>' and 'Pointer' .\Fontes\ACBrTCP\ACBrIBGE.pas(767) Error: E2010 Incompatible types: 'System.Generics.Defaults.IComparer<System.TObject>' and 'Pointer' .\Fontes\ACBrTCP\ACBrIBGE.pas(782) Error: E2010 Incompatible types: 'System.Generics.Defaults.IComparer<System.TObject>' and 'Pointer' .\Fontes\ACBrTCP\ACBrIBGE.pas(796) Error: E2010 Incompatible types: 'System.Generics.Defaults.IComparer<System.TObject>' and 'Pointer' .\Fontes\ACBrTCP\ACBrCEP.pas(2338) Fatal: F2063 Could not compile used unit 'ACBrIBGE.pas' Compilation failure Erro ao compilar o pacote "ACBr_TCP.dpk". Abortando... Ocorreram erros na compilação dos pacotes.

Boa tarde @Italo Jurisato Junior, eu também utilizo o ImprimirPDF, mas é que no Preview do Imprimir, exibe a opção de Salvar ao o usuário, e ele acaba utilizando para salvar onde ele deseja, mas alguns acabam salvando na pasta raiz da aplicação.

Obrigado pelo retorno, assim que possível irei atualizar meu fortes e acbr para realizar os testes.

Boa tarde. Alguem sabe como alterar o Filtro para PDF e Nome do arquivo na opção Salvar do Preview do CT-e DACTE RL? Pois atualmente o Filtro está como padrão, e eu gostaria de alterar para PDF, e o nome do arquivo está ficando: "diretório executável"\CT-e 000039443 e com isso os usuários estão enchendo a pasta do exe com arquivos pdf e rpf.

Boa tarde, alguma novidade?

Qual URL você usou?, colocou algum parâmetro nela? Você pode dar um replace de '</li>' para '</situacao>'

Teste esse xml no método: procedure TNFSeConsultarNfseRPS.DefinirDadosMsg; colocando o XML na variável: FPDadosMsg. mas o FDadosEnvelope deve ser '' não pode conter nem espaço em branco. Atualização*** Você pode obter o código tom por: NFSe.PrestadorServico.Endereco.CodigoMunicipio. Pois no provedor IPM, no CodigoMunicipio você deve informa o Código TOM.

Carregue XML do rps, depois vc pode acessar o código do município do emitente, nesse código de município vc pode colocar o código tom. Vê se isso dá certo.

Eu vi o manual "em anexo" agora e tem um método para isso, "na epoca que eu fiz a integração com o ACBR não tinha esse método no manual" Você pode testar esse XML. depois fala para a gente como ficou. manual_eletron.pdf Teste esse xml no método: procedure TNFSeConsultarNfseRPS.DefinirDadosMsg; colocando o XML na variável: FPDadosMsg. mas o FDadosEnvelope deve ser '' não pode conter nem espaço em branco.

O protocolo deve ser capturado após a geração da NFS-e, com o método Gerar. sem ele voce não consegue fazer a consulta, quando ocorre de eu perder a comunicação com a IPM, eu pego esse protocolo no site da IPM e coloco no meu sistema e faço a consulta do lote.

Boa tarde. verifiquei meu código novamente e tinha esquecido de informar que para o provedor IPM é utilizado somente o comando: NFSe.ConsultarLoteRps( '', qryNFSePROTOCOLO.AsString ); pois para esse provedor não é utilizado o comando: NFSe.ConsultarNFSeporRps. Código que utilizo: if( NFSe.Configuracoes.Geral.Provedor = proIPM )then begin NFSe.NotasFiscais.LoadFromFile( PATH + qryNFSeID.AsString + qryNFSeSERIE.AsString + '-Rps.xml' ); NFSe.ConsultarLoteRps( '', qryNFSePROTOCOLO.AsString ); end else begin try if( NFSe.Configuracoes.Geral.Provedor = proISSJoinville )then begin NFSe.NotasFiscais.LoadFromFile( PATH + qryNFSeID.AsString + qryNFSeSERIE.AsString + '-Rps.xml' ); NFSe.ConsultarLoteRps( '', qryNFSePROTOCOLO.AsString ) end else begin NFSe.ConsultarSituacao(qryNFSePROTOCOLO.AsString); if( NFSe.WebServices.ConsSitLoteRPS.RetSitLote.InfSit.Situacao <> SituacaoLoteRPSToStr( slrProcessadoSucesso ) )then raise Exception.Create( '' ); end; except on e:Exception do begin if( NFSe.Configuracoes.Geral.Provedor in [ proSimplISS, proPublica, proISSJoinville ] )then begin TrataSituacaoLote( NFSe.WebServices.ConsSitLoteRPS ); if( NFSe.WebServices.ConsSitLoteRPS.RetSitLote.InfSit.MsgRetorno.Count = 0 )then MsgErro := NFSe.WebServices.ConsSitLoteRPS.Msg + sLineBreak; end; for I := 0 to NFSe.WebServices.ConsSitLoteRPS.RetSitLote.InfSit.MsgRetorno.Count -1 do begin MsgErro := IfThen( MsgErro <> '', MsgErro + sLineBreak ) + 'Código : ' + NFSe.WebServices.ConsSitLoteRPS.RetSitLote.InfSit.MsgRetorno.Items[I].Codigo + sLineBreak + 'Mensagem : ' + NFSe.WebServices.ConsSitLoteRPS.RetSitLote.InfSit.MsgRetorno.Items[I].Mensagem + sLineBreak + 'Correção : ' + NFSe.WebServices.ConsSitLoteRPS.RetSitLote.InfSit.MsgRetorno.Items[I].Correcao + sLineBreak; if( ( NFSe.WebServices.ConsSitLoteRPS.RetSitLote.InfSit.MsgRetorno.Items[I].Codigo <> 'E92' ) and ( ( qryNFSePROTOCOLO.AsString <> '' ) or ( qryNFSeLOTE_RPS.AsString <> '' ) ) )then begin qryNFSe.Edit; qryNFSePROTOCOLO.AsString := ''; qryNFSeLOTE_RPS.AsString := ''; qryNFSe.Post; fin.conexao.Commit; end; end; ShowMessage( IfThen( MsgErro <> '', MsgErro, e.Message ) ); Exit; end; end; NFSe.NotasFiscais.LoadFromFile( PATH + qryNFSeID.AsString + qryNFSeSERIE.AsString + '-Rps.xml' ); try NFSe.ConsultarNFSeporRps( NFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero, NFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie, TipoRPSToStr(NFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Tipo ) ); if StrToIntDef( GetNroNFSePorProvedor, 0 ) = 0 then raise Exception.Create( 'NFS-e não foi Autorizada, por favor, tente fazer a transmissão novamente.' ); except on e: Exception do begin fin.conexao.Rollback; for I := 0 to NFSe.WebServices.ConsSitLoteRPS.RetSitLote.InfSit.MsgRetorno.Count -1 do begin MsgErro := IfThen( MsgErro <> '', MsgErro + sLineBreak ) + 'Código : ' + NFSe.WebServices.ConsSitLoteRPS.RetSitLote.InfSit.MsgRetorno.Items[I].Codigo + 'Mensagem : ' + NFSe.WebServices.ConsSitLoteRPS.RetSitLote.InfSit.MsgRetorno.Items[I].Mensagem + 'Correção : ' + NFSe.WebServices.ConsSitLoteRPS.RetSitLote.InfSit.MsgRetorno.Items[I].Correcao; end; ShowMessage( 'Erro na consulta da NFS-e.' + sLineBreak + IfThen( MsgErro <> '', MsgErro, e.Message ) ); Exit; end; end; end; Não existe XML da NFS-e o único que o provedor retorna é: <?xml version="1.0" encoding="UTF-8"?><retorno><mensagem><codigo>00001 - Sucesso</codigo></mensagem><numero_nfse>1227</numero_nfse><serie_nfse>1</serie_nfse><situacao_codigo_nfse>1</situacao_codigo_nfse><situacao_descricao_nfse>Emitida</situacao_descricao_nfse><data_nfse>05/08/2020</data_nfse><hora_nfse>09:13:19</hora_nfse><arquivo_gerador_nfse>4988-ger-nfse.xml_186_20_13_09_0000000000.xml</arquivo_gerador_nfse><nome_arquivo_gerado_eletron></nome_arquivo_gerado_eletron><link_nfse>http://sync.nfs-e.net/datacenter/include/nfw/nfw_imp_notas.php?codauten=0180450009868880</link_nfse><cod_verificador_autenticidade>0180450009868880</cod_verificador_autenticidade><codigo_html>HTML de impressão, removi pq é muito grande.</codigo_html></retorno>

Fiz um teste agora, e o XML de consulta foi esse: <?xml version="1.0" encoding="UTF-8"?><nfse><pesquisa><codigo_autenticidade>0180450009868880</codigo_autenticidade><numero/><serie/><cadastro/></pesquisa></nfse> e o de resposta foi esse: <?xml version="1.0" encoding="UTF-8"?><retorno><mensagem><codigo>00001 - Sucesso</codigo></mensagem><numero_nfse>1227</numero_nfse><serie_nfse>1</serie_nfse><situacao_codigo_nfse>1</situacao_codigo_nfse><situacao_descricao_nfse>Emitida</situacao_descricao_nfse><data_nfse>05/08/2020</data_nfse><hora_nfse>09:13:19</hora_nfse><arquivo_gerador_nfse>4988-ger-nfse.xml_186_20_13_09_0000000000.xml</arquivo_gerador_nfse><nome_arquivo_gerado_eletron></nome_arquivo_gerado_eletron><link_nfse>http://sync.nfs-e.net/datacenter/include/nfw/nfw_imp_notas.php?codauten=0180450009868880</link_nfse><cod_verificador_autenticidade>0180450009868880</cod_verificador_autenticidade><codigo_html>HTML de impressão, removi pq é muito grande.</codigo_html></retorno> utiliza a consulta assim: NFSe.NotasFiscais.LoadFromFile( Diretorio + NroRPS + SerieRps + '-Rps.xml' ); NFSe.ConsultarLoteRps( '', qryNFSePROTOCOLO.AsString ); apos consular o lote NFSe.ConsultarNFSeporRps( NFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero, NFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie, TipoRPSToStr(NFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Tipo ) ); eu acho que somente a consulta do lote já vai ser suficiente, da uma verificada ai.

Certo, mas o envelope deve ficar em branco, não pode conter nem "espaços". exemplo: FDadosEnvelope = ' '; < não pode, deve ser: FDadosEnvelope = '';

Boa tarde, realmente existe o problema. tente executar o seguinte teste no procedimento: procedure TNFSeConsultarNfseRPS.DefinirDadosMsg; no final if (FPDadosMsg = '') or (FDadosEnvelope = '') then GerarException(ACBrStr('A funcionalidade [Consultar NFSe por RPS] não foi disponibilizada pelo provedor: ' + FPConfiguracoesNFSe.Geral.xProvedor)); Altere o valor da variável: FDadosEnvelope para ' ', para poder passar pela validação, e em seguida, volte o valor para '' pois para o provedor IPM não pode ter envelope. pois na procedure: procedure TNFSeGerarNFSe.DefinirDadosMsg; a validação é realizada da seguinte forma: if not (FProvedor in [proIPM]) then GerarException(ACBrStr('A funcionalidade [Gerar NFSe] não foi disponibilizada pelo provedor: ' + FPConfiguracoesNFSe.Geral.xProvedor));

Vou fazer um teste a tarde e te aviso se realmente está ou não funcionando.

E com essas variáveis preenchidas é claro. NFSe.Configuracoes.Geral.UserWeb := ''; NFSe.Configuracoes.Geral.SenhaWeb := '';

@-=Ma®©oS=-, com a IPM eu utilizo a seguinte forma. Envio NFSe.Gerar( NroRPS, 0, False ); //tratamentos qryNFSePROTOCOLO.AsString := NFSe.NotasFiscais.Items[0].NFSe.Protocolo; Consulta NFSe.NotasFiscais.LoadFromFile( Diretorio + NroRPS + SerieRps + '-Rps.xml' ); NFSe.ConsultarLoteRps( '', qryNFSePROTOCOLO.AsString ); apos consular o lote NFSe.ConsultarNFSeporRps( NFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero, NFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie, TipoRPSToStr(NFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Tipo ) ); não tive a necessidade de alterar o arquivo ini