ALA

Italo, bom dia. Vou Realizar o teste...

Baixei o ACBr hj. Esta ocorrendo erro também de data 201856-nfse.xml

Bom dia Italo, esta ocorrendo erro ao imprimir os RPs de Vespasiano e Curvelo padrão NFSeBrasil.

Italo, bom dia. Ok vou abrir outro topico...

O erro so ocorre se o valor total da nota for igual ou maior que 1.000.00. Esta acontecendo na unit abaixo..

Italo, boa tarde. Consegui resolver o problema da tag ValorIssRetido, se não setar valor o ACBrNFSe não gera a tag. Problema resolvido. Agora estou com problema na impressão do XML 201856-nfse.xml 201856-nfse.pdf

Desculpe 6 - SVC - AN

Senhores, boa tarde. Estou tentando enviar uma NFe em contigencia scan, mas esta ocorrendo o erro abaixo --------------------------- Nota Fiscal Eletrônica - Multilógica Softwares --------------------------- Nota(s) não confirmadas: 20073->Rejeicao: Pagamento com cartao de credito em sistema de automacao nao integrado Servico em operacao --------------------------- OK --------------------------- 20073-env-lot.xml

Italo, bom dia. Outro erro que esta ocorrendo com a integração com Vespasiano. A empresa e a mesma que mantem o WS de Curvelo. Verifiquei o XML enviado para Curvelo e realmente não tem a tag ValorIssRetido. Onde devo alterar o para não enviar a tag.... ********************************************* Método..... : Enviar Lote Código Erro : Mensagem... : Element 'ValorIssRetido': This element is not expected. Expected is ( OutrasRetencoes ). Correção... : Provedor... : NFSeBrasil ************************************* Resposta da prefeitura Bom dia! Não existe na nossa estrutura a tag ValorissRetido, a identificação é feita na TAG IssRetido utilizando 1 ou 2. Segue abaixo um exemplo de como deverá ficar sua estrutura. <ValorServicos>11.40</ValorServicos> <ValorDeducoes>0.00</ValorDeducoes> <ValorPis>0.00</ValorPis> <ValorCofins>0.00</ValorCofins>Exemplo_Curvelo_1001-rps.xml <ValorInss>0.00</ValorInss> <ValorIr>0.00</ValorIr> <ValorCsll>0.00</ValorCsll> <IssRetido>2</IssRetido> <ValorIss>0.23</ValorIss> <OutrasRetencoes>0.00</OutrasRetencoes> <Aliquota>2.00</Aliquota> <DescontoIncondicionado>0.00</DescontoIncondicionado> <DescontoCondicionado>0.00</DescontoCondicionado> Att Alan Moreira

Italo, bom dia. A impressão do XML de retorno de Vespasiano não esta aparecendo a aliquota de iss enviada. Esse problema estava ocorrendo para Curvelo, a tag aliquota esta sendo retornada como aliquotaservico. Você havia ajustado para a outra prefeitura..... WS NFSeBrasil 201852-nfse.xml

Italo. Verificadno o XML do RPs e o XML do NFSe não encontrei diferenca entre os dados do Rps enviados e os retornados pela prefeitura

Italo, bom dia. Anexos conforme solicitado... Notas.rar Recibos.rar

O ACBRNFe esta configurado assim

Senhores, bom dia. Estou com um erro ao gravar o xml de retorno da SEFAZ. Após marcar a configuração para o ACBRNFe separar por CNPJ esta ocorrendo o erro conforme imagem abaixo....

Estou com o mesmo problema para NFe emitida para foram do municipio. Não consigo emitir com natureza da operação 2. A Giss orientou a emitir com natureza da operação1 e colocar os dados do tomador com as informações corretas. Exemplo: Emissor de Contagem, tomador de Vespasiano...

Italo, não encontrei problema na linha que vc mencionou. Mas para resolver o problema estou procurando o Codigo Verificacao no indice 1. Quando utilizou indice 0, o codigo de verificacao esta vazio. Nfe.ACBrNFSe.NotasFiscais.Items[1].NFSe.CodigoVerificacao // Sete Lagoas // if ( Trim( utst_Prefeitura ) = Trim( utco_Codigo_PSA_IBGE )) or // Sete Lagoas - MG - // ( Trim( utst_Prefeitura ) = Trim( utco_Codigo_PCU_IBGE )) or // Curvelo = MG // ( Trim( utst_Prefeitura ) = Trim( utco_Codigo_PVE_IBGE )) then // Vespasiano - MG // begin Nfe.ACBrNFSe.ConsultarNFSeporRps( Nfe.ACBrNFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero, Nfe.ACBrNFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie, TipoRPSToStr( Nfe.ACBrNFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Tipo)); mem_Retorno.Lines.Text := UTF8Encode(Nfe.ACBrNFSe.WebServices.ConsNfseRps.RetWS); mem_RetornoWS.Lines.Text := UTF8Encode(Nfe.ACBrNFSe.WebServices.ConsNfseRps.RetWS); // ala 12/06/2018 if Trim( Nfe.ACBrNFSe.NotasFiscais.Items[0].NFSe.CodigoVerificacao ) <> EmptyStr then if Trim( Nfe.ACBrNFSe.NotasFiscais.Items[1].NFSe.CodigoVerificacao ) <> EmptyStr then begin if fMostrarMsg then begin //ShowMessage( 'Código de Verificação: ' + Nfe.ACBrNFSe.NotasFiscais.Items[0].NFSe.CodigoVerificacao ); ShowMessage( 'Código de Verificação: ' + Nfe.ACBrNFSe.NotasFiscais.Items[1].NFSe.CodigoVerificacao ); end; lcst_Arquivo := nfe.ACBrNFSe.NotasFiscais.Items[0].NomeArq; if not FileExists( lcst_Arquivo ) then begin lcst_Arquivo := nfe.ACBrNFSe.NotasFiscais.Items[1].NomeArq; if not FileExists( lcst_Arquivo ) then lcst_Arquivo := NFe.ACBrNFSe.Configuracoes.Arquivos.PathNFSe + '\' + FormatDateTime( 'yyyymm', Date ) + '\NFSe\' + Nfe.ACBrNFSe.NotasFiscais.Items[0].NFSe.Numero + '-nfse.xml'; end; { // GRAVAR O PROTOCOLO NO BD } NFe.ACBrNFSe.NotasFiscais.Clear; NFe.ACBrNFSe.NotasFiscais.LoadFromFile( lcst_Arquivo ); // GERAR PDF // NFe.AcbrNFSe.NotasFiscais.ImprimirPDF; // SE A DATA DE EMISSÃO DO RPS DIFERENTE DA DATA RETORNADA PELO WS, // // UTILIZA A DATA DE EMISSÃO DO RPS GRAVADO NO BD ... /// if lcdt_Data_RPs = 0 then begin //lcdt_Data_RPs := NFe.ACBrNFSe.NotasFiscais.Items[0].NFSe.DataEmissaoRps lcdt_Data_RPs := NFe.ACBrNFSe.NotasFiscais.Items[0].NFSe.DataEmissaoRps end; // BUSCA O XML DA NFE E GRAVA OS DADOS ABAIXO // ACBrNFSe.WebServices.ConsSitLoteRPS.Protocolo if DM_GERALNFE.AtualizarNotaFiscal( NFe.ACBrNFSe.NotasFiscais.Items[0].NFSe.Numero, // numero da nfe gerado pela prefeitura EmptyStr, // não retorna o numero do protocoloNFe.ACBrNFSe.NotasFiscais.Items[0].NFSe.Protocolo, //NFe.ACBrNFSe.WebServices.ConsSitLoteRPS.Protocolo, // ala 16/06/2019 EmptyStr, // numero/ protocolo EmptyStr, // pk NFe.ACBrNFSe.NotasFiscais.Items[0].XML, utco_ArquivoGerado, EmptyStr, EmptyStr, NFe.ACBrNFSe.NotasFiscais.Items[0].NFSe.CodigoVerificacao, utco_NFe_Autorizada, lcst_Arquivo, lcdt_Data_RPs, // alaterado em 11/06/2018, NFe.ACBrNFSe.NotasFiscais.Items[0].NFSe.DataEmissaoRps, // data de emissao da nfe do Dygnus lcst_Numero_RPS, // número da NF no Dygnus EmptyStr, // Protocolo EPEC EmptyStr, // Codigo do Tipo de Cancelametno da NFSe NFe.ACBrNFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie, 0, NFe.ACBrNFSe.NotasFiscais.items[ 0 ].NomeArqRps, DS_EMPRESA.DataSet.FieldByName( 'EMP_CODIGO_EMPRESAMASTER' ).AsString, DS_EMPRESA.DataSet.FieldByName( 'EMP_codigo' ).AsString, '' ) then begin if fMostrarMsg then begin if Application.MessageBox( PChar( 'A Nota Fiscal ' + LeftZeroFill( StrToInt64( NFe.ACBrNFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero) , 6 ) +' foi atualizada com sucesso. Deseja Imprimir o DANFE ?' ) ,'Confirmação', MB_YESNO+MB_ICONQUESTION ) = idYes then begin NFe.ACBrNFSe.NotasFiscais.Clear; NFe.ACBrNFSe.NotasFiscais.LoadFromFile( lcst_Arquivo ); if FileExists( lcst_Arquivo ) then Imprimir_DANFSe( False ) else ShowMessage( 'Arquivo não encontrado para impressão do DANFSe: ' + lcst_Arquivo ); end; end else begin NFe.ACBrNFSe.NotasFiscais.Clear; NFe.ACBrNFSe.NotasFiscais.LoadFromFile( lcst_Arquivo ); if FileExists( lcst_Arquivo ) then Imprimir_DANFSe( False ) else ShowMessage( 'Arquivo não encontrado para impressão do DANFSe: ' + lcst_Arquivo ); end; pc_Principal.ActivePageIndex := 0; end; // ***** // Result := True; end; // if end // SETE LAGOAS //

************************************************************************************************************** Para esses casos eu utilizo a regra abaixo. E a mesma que utilizo para todas as prefeituras padarão Giss... if Servico.Valores.IssRetido = stNormal then // Retido Não begin Servico.Valores.ValorIss := NFe.FieldByName('NFS_VLR_ISS').AsCurrency; Servico.Valores.ValorIssRetido := 0.00; end else // Retido Sim begin //Servico.Valores.ValorIss := 0.00; //Servico.Valores.ValorIssRetido := NFe.FieldByName( 'NFS_VLR_ISS' ).AsCurrency;] // NOVA VERSÃO 07/06/2018 - PADRÃO GISS... Servico.Valores.ValorIss := NFe.FieldByName( 'NFS_VLR_ISS' ).AsCurrency; Servico.Valores.ValorIssRetido := NFe.FieldByName( 'NFS_VLR_ISS' ).AsCurrency; end; ********************************************************************************************************** Com relação ao código de tributação 2 - fora do munícipio a Giss, respondeu Bom dia, Para o item de serviço 4.03, a natureza deve ser informada como 1 – dentro do município. Caso haja dúvidas, favor contatar a Prefeitura *****************************************************************************************************************

Italo, obrigado pela resposta. Estou aguardando o retorno do provedor...

Italo, bom dia. Segundo o pessoal da Giss para Contagem, quando a nota e emitida para outra cidade, não pode utilizar a natureza da operação 2. * Quanto a nota é emitida para dentro do município o RPS é processado com sucesso, correto? SIM *Mas quanto a nota é emitida para fora do município o RPS é rejeitado. SIM Resposta da Giss 001 - Retorno da Gissoline: Assunto NFSE tributaqção - 2 - fora do Município O serviço sendo realizado fora do município de Contagem não significa que a tributação é 2 – fora do município. O serviço pode ser realizado fora, porém o ISS ser recolhido dentro do município, sendo a tributação 1 – dentro do município. Por gentileza realizar a atualização em seu RPS e reenviar o lote, e havendo dúvidas quanto a natureza da operação, por gentileza verificar junto a Prefeitura

Lembrando que o problema so ocorre para NFS-e emitido para fora do municipio, quando envio para dentro do municipio funciona sem problemas....

Não estou entendendo. Realizei a alteração, mas o XML continua sendo gerado com 02.. 1025A-rps.xml

Senhores, boa tarde. Estou tentando enviar RPS em homologação para cidade de Vespasiano/MG, mas testa ocorrendo o erro em aenxo 971-rps.xml

Realizei a alteração. if FProvedor = proGINFES then Gerador.wCampoNFSe(tcStr, '#5', 'NaturezaOperacao', 01, 02, 1, '0' + NaturezaOperacaoToStr(NFSe.NaturezaOperacao), DSC_INDNATOP) else Gerador.wCampoNFSe(tcStr, '#5', 'NaturezaOperacao', 01, 01, 1, NaturezaOperacaoToStr(NFSe.NaturezaOperacao), DSC_INDNATOP); Mas ocorreu outro erro... 1038A-rps.xml

Ue, no meu ".pas" não existe esse "if" pnfsNFSeW_ABRASFv1.pas