castrocac

Boa tarde. Eu consegui encontrar o arquivo, pelo menos acho que é esse mesmo. Abri o arquivo ACBrNFeDANFeRLRetrato.pas que está no caminho ...\Fontes\ACBrDFe\ACBrNFe\DANFE\NFe\Fortes Encontrei o componente responsável por mostrar a mensagem de NF-e Cancelada, o componente é o rllXmotivo, eu o coloquei mais centralizado na página, salvei. Logo após mandei reinstalar o acbr novamente pelo ACBrInstall_Trunk2.exe, parece que não fez efeito, pois a mensagem de NF-e Cancelada continua aparecendo junto com o codigo de barras do protocolo. Alguem poderia me dar uma dica me orientando o que eu posso estar fazendo de errado? Grato.

Ola Juliomar,obrigado pela resposta. Não domino muito bem essa parte de alterar um componente, eu teria que alterar a classe ACBrNFeDANFeRLClass.pas? Se sim, em qual linha eu altero a posição dele? Obrigado.

Boa tarde a todos. Estou com uma dúvida em Impressão da NFe cancelada e gostaria da ajuda de vocês, achei melhor não abrir um novo tópico já que esse daqui está tratando do tema. Sempre usei o acbr com o DANFE em Rave, ao atualizar para a versão Trunk2, notei que não tinha mais o DANFE para Rave e preferi adotar a versão Fortes Report, quando uma nota era cancelada no Rave, se eu reimprimisse aparecia a tarja NFe cancelada no meio do Danfe. Agora com o Fortes Report está aparecendo no código de barras do protocolo, a pergunta é : Eu consigo mudar a posição dessa tarja? Se sim alguém poderia me dar uma dica ou exemplo de como fazê-lo? Grato.

Juliomar, bom dia. Você ainda consegue enviar emails com hotmail usando a porta 587? Surgiu um cliente meu agora que precisa enviar com hotmail e não consigo, interessante se eu usar outros como yahoo e gmail funcionaram normalmente. Tentei também com a porta 25. Grato.

Obrigado a todos pela atenção dada nesse tópico.

Ufa. que bom que entendeu. srrs Mas legalmente, eu posso gerar uma nova série sem ter completado a numeração da série anterior? Você saberia me dizer isso ou teria que ser um contador mesmo para me informar melhor? Grato.

Prezados Andre Ferreira e João Henrique, acho que deixei o tópico mais confuso né? rsrs Pode ser que eu não tenha explicado corretamente, vou tentar dar um exemplo mais prático pra ver se consigo explicar melhor. Supondo que meu cliente está emitindo a nota de numero 1000 da série 1, no momento da emissão recebo um retorno da SEFAZ/MG de lote em processamento, ficando assim sem saber como ficou essa nota 1000. Nesse momento eu ativaria uma outra série, pr exemplo a série 2, e enviar essa nota para a SEFAZ-VIRTUAL com a numeração 1 e assim por diante. Depois de algum tempo meu sistema verificaria uma consulta para ver a situação da Nota 1000 da série 1 na SEFAZ/MG, se a mesma retornar como existente mostro uma mensagem ao usuário para ele ter ciência e fazer os tramites legais (cancelar, gerar NFe de devolução, etc), caso contrário o usuário poderá excluir essa numeração do meu sistema. Entendo que assim não haveria problemas para inutilizar notas que ficaram sem ser emitidas fora de sequência. Grato.

Então, era por isso que eu queria gerar uma serie nova para somente para emitir para a SEFAZ-VIRTUAL, deu problema no estado ativo essa série nova e depois verifico se a que deu problema foi enviada ou não para o estado, se sim peço ao usuário para cancelar, se não excluo a nota para aproveitar o número nocamente sem me preocupar em inutilizar.

Prezado Joao, obrigado pelo rápido retorno. Quanto a passar para o próximo número, isso para mim é tranquilo, a minha dúvida é quando acontecer de ter dado problema na SEFAZ, eu insiro um novo número e envio para o SCAN, quando a SEFAZ voltar ao normal vou consultar a NFe que deu problema e percebo que o número que enviei não foi gerado por eles, o que farei com essa nota? Terei que inutilizá-la? Grato.

Pois é João, a minha preocupação é essa, supondo que você enviou uma NFe para a SEFAZ de São Paulo e por algum motivo não teve retorno, o que fazer nesse momento? Enviar com a numeração seguinte? Se for essa a opção, o que fazer quando a SEFAZ voltar ao normal e você descobrir que a Nota anterior não foi gravada nos servidores dela, o que fazer com essa nota? Ter que inutilizá-la? Se for essa a opção, a coisa vai ficar feia aqui em Minas, porque os servidores daqui vivem parando e acontecendo essa situação que descrevi. Quando mudamos de série, a numeração não fica pulando, assim quando a SEFAZ para, vou para a série do SCAN e deixo a última nota da SEFAZ em aberto no meu sistema, depois de algum tempo meu sistema tenta recuperar a NFe na SEFAZ, se a mesma nao existir meu cliente a exclui e reemite outra na mesma numeração.

Mas e a opção de gerar com uma serie nova como foi a minha dúvida postada aqui? Toda vez que desse problema eu ativaria essa série nova, enviaria para a SEFAZ-VIRTUAL, deixaria a nota que deu problema na série anterior sem mexer nela e posteriormente quando a sefaz voltasse ao normal eu verificaria a situação dela na sefaz.

Prezado Italo, eu até tinha entendido isso, só não descrevi na minha dúvida postada acima. Vou dar um outro exemplo para ficar melhor o entendimento, um exemplo até real do que esta acontecendo hoje aqui em Minas Gerais, os meus clientes tentaram enviar uma NFe para a secretaria de fazenda e há um retorno de mensagem de Lote em Processamento, aí está o problema, quando dá esse erro não há como eu saber se a mesma foi recepcionada e gerada na base de dados da SEFAZ, se eu gerar essa nota na SEFAZ-VIRTUAL e a mesma aceitar haverá duplicidade depois que ela enviar as notas para a SEFAZ do estado. Por isso pensei em deixar uma série só para enviar para a SEFAZ-VIRTUAL, não haveria o risco de duplicar a nota. Grato, Cesar.

Boa noite a todos Quanto a desativação do SCAN e a entrada de contingência tanto de outros ambientes de contigencia tanto por SVC-AN (SEFAZ Virtual de Contingência do Ambiente Nacional) e SVC-RS (SEFAZ Virtual de Contingência do Rio Grande do Sul). Gostaria de saber se posso deixar em meus programas uma série dedicada somente a esses dois novos serviços de contingencias, como por exemplos série 2, inicializando a numeração da nota fiscal novamente à partir do 1. Para passar para uma nova série é necessário terminar a numeração da série anterior? Grato. Castro.

Imagino que seja isso mesmo, infelizmente a documentação fornecida por eles deixa um pouco distorcido esse tipo de informação. Obrigado Italo. Paz e Sucessos!!!

Italo, bom dia. Obrigado pela dica quanto à enviar um anexo, o farei da próxima vez. Consegui cancelar em Belo Horizonte, mas só passando a opção de código cancelamento = 2 (serviço não concluído), quando vou gerar uma NFSe, se eu gerar o grupo <RpsSubstituido> informando o Numero, Serie e Tipo ele me retorna a mensagem "Belo Horizonte nao permite substituicao de rps". Será que belo horizonte não aceita passar esse grupo por programas de terceiros? Grato

Prezado Italo. Desde já agradeço a atenção dada. Envio de NFSe é um recurso novo para mim e mesmo já usando o componente para NFe, vi que há alguns conceitos diferentes. O material disponibilizado pela prefeitura de BH não ajuda muito, pode ser que eu esteja fazendo algo errado. Para fazer testes, criei um botão novo que vem no exemplo do ACBR com as seguintes linhas para tentar substituir a NFSe, tem como você verificar se eu estou fazendo algo errado? procedure TfrmDemo_ACBrNFSe.Button2Click(Sender: TObject); var vAux, vNumLote, vNumSubs : String; ValorISS: Double; begin if not(InputQuery('Gerar e Enviar Lote', 'Numero do RPS', vAux)) then exit; if not(InputQuery('Gerar e Enviar Lote', 'Numero do Lote', vNumLote)) then exit; if not(InputQuery('Numero a ser substituido', 'Nº Substituição', vNumSubs)) then exit; ACBrNFSe1.NotasFiscais.Clear; // GerarNFSe(vAux, True, vNumSubs); ACBrNFSe1.NotasFiscais.Clear; with ACBrNFSe1 do begin NotasFiscais.NumeroLote:='2'; NotasFiscais.Transacao := True; with NotasFiscais.Add.NFSe do begin IdentificacaoRps.Numero := FormatFloat('#########0', StrToInt(vAux)); IdentificacaoRps.Serie := 'UNICA'; IdentificacaoRps.Tipo := trRPS; DataEmissao := Date; NaturezaOperacao := noTributacaoNoMunicipio; RegimeEspecialTributacao := retNenhum; // TnfseSimNao = ( snSim, snNao ); OptanteSimplesNacional := snNao; // TnfseSimNao = ( snSim, snNao ); IncentivadorCultural := snNao; Producao := snNao; // TnfseStatusRPS = ( srNormal, srCancelado ); Status := srNormal; OutrasInformacoes := 'Pagamento a Vista'; RpsSubstituido.Numero := FormatFloat('#########0', StrToFloat(vNumSubs)); RpsSubstituido.Serie := 'UNICA'; // TnfseTipoRPS = ( trRPS, trNFConjugada, trCupom ); RpsSubstituido.Tipo := trRPS; Servico.Valores.ValorServicos := 100; Servico.Valores.ValorDeducoes := 0.00; Servico.Valores.ValorPis := 0.00; Servico.Valores.ValorCofins := 0.00; Servico.Valores.ValorInss := 0.00; Servico.Valores.ValorIr := 0.00; Servico.Valores.ValorCsll := 0.00; Servico.Valores.IssRetido := stNormal; Servico.Valores.ValorIssRetido := 0.00; Servico.Valores.OutrasRetencoes := 0.00; Servico.Valores.DescontoIncondicionado := 0.00; Servico.Valores.DescontoCondicionado := 0.00; Servico.Valores.BaseCalculo := 100; Servico.Valores.Aliquota := 3; ValorISS := Servico.Valores.BaseCalculo * Servico.Valores.Aliquota; Servico.Valores.ValorIss := RoundTo5(ValorISS, -2); Servico.Valores.ValorLiquidoNfse := Servico.Valores.ValorServicos - Servico.Valores.ValorPis - Servico.Valores.ValorCofins - Servico.Valores.ValorInss - Servico.Valores.ValorIr - Servico.Valores.ValorCsll - Servico.Valores.OutrasRetencoes - Servico.Valores.ValorIssRetido - Servico.Valores.DescontoIncondicionado - Servico.Valores.DescontoCondicionado; Servico.ItemListaServico := '17.12'; Servico.CodigoTributacaoMunicipio := '171200188'; Servico.Discriminacao := 'discriminacao'; Servico.CodigoMunicipio := edtCodCidade.Text; Servico.ExigibilidadeISS := exiExigivel; Servico.CodigoPais := 1058; // Brasil Servico.MunicipioIncidencia := StrToIntDef(edtCodCidade.Text, 0); with Servico.ItemServico.Add do begin Descricao := 'SERVICO 1'; Quantidade := 1; ValorUnitario := 100.00; end; Prestador.Cnpj := edtEmitCNPJ.Text; Prestador.InscricaoMunicipal := edtEmitIM.Text; PrestadorServico.Endereco.CodigoMunicipio := edtCodCidade.Text; PrestadorServico.RazaoSocial := edtEmitRazao.Text; Tomador.IdentificacaoTomador.CpfCnpj := '99999999000191'; Tomador.IdentificacaoTomador.InscricaoMunicipal := '1733160024'; Tomador.RazaoSocial := 'INSCRICAO DE TESTE'; Tomador.Endereco.Endereco := 'RUA PRINCIPAL'; Tomador.Endereco.Numero := '100'; Tomador.Endereco.Complemento := 'APTO 11'; Tomador.Endereco.Bairro := 'CENTRO'; Tomador.Endereco.CodigoMunicipio := edtCodCidade.Text; Tomador.Endereco.UF := edtEmitUF.Text; Tomador.Endereco.CEP := edtEmitCEP.Text; //Provedor Equiplano é obrigatório o pais e IE Tomador.Endereco.xPais := 'BRASIL'; Tomador.IdentificacaoTomador.InscricaoEstadual := '123456'; Tomador.Contato.Telefone := '1122223333'; Tomador.Contato.Email := '[email protected]'; end; end; ACBrNFSe1.Enviar(vNumLote); ACBrNFSe1.NotasFiscais.Clear; end;

Boa noite a todos, já uso há algum tempo o componente ACBR para NFe e agora surgiu a necessidade de implantar a NFSe (Serviços) num cliente que fica em Belo Horizonte, consegui sem problemas gerar e consultar uma Nota em homologação. Estou tendo um problema ao tentar substituir uma Nota, talvez até por falta de conhecimento, ao tentar cancelar recebo uma mensagem de erro: "Belo Horizonte nao permite substituicao de rps" Andei pesquisando na net e vi que algumas cidades não aceitam o cancelamento ou a substituição de Nota em programas de terceiros, sendo aceito esse processo somente em seus sites. Tenten encontrar alguma informação se BH entra nessa lista de cidades e não encontrei, alguem poderia me informar se BH está entre essas cidades ou se essa mensagem é proveniente de algum comando errado que eu enviei ao tentar substituir? Desde já agradeço. Cesar Augustus

Ok, valeu mais uma vez pela rápida resposta. Como faço para marcar esse tópico como resolvido?

Prezado Juliomar, boa tarde. Obrigado pela resposta, mesmo que tenha vindo um pouco irônica. rsrs Fiz a leitura do manual sim, como acho que a mesma deve ser feita 1,2 ou até 3 vezes antes de virmos aqui tirar alguma dúvida. Na verdade não sei se me expressei bem ao expor minha dúvida, quando me referi a um exemplo em delphi é porque imaginei que os campos Num_Campo e Cod_Rec tivessem um tipo de registro no ACBR como acontece com alguns campos como por exemplo Regime de Apuração (dot tipo TACBRCodIndTrib), Tipo_Item (do tipo TACBRTipoItem), CST_PIS (do tipo TACBRCstPis) e outros mais. Foi uma falha minha, mesmo que primária, não perceber que o tipo desses dois registros é do tipo STRING, acho que acontece nas melhores famílias né? SUCESSOS e PAZ !!

Prezados, boa tarde. Alguem poderia me mostrar um exemplo em delphi dos campos COD_REC e NUM_CAMPO do registro m205 e m605. Tentei pesquisar aqui e não encontrei nada. Agradeço. Cesar Castro.

Deu certo. E foi justamente numa atualização que passou a dar problema, so agora que percebi. Valeu pela dica. Castro.

Blza. Valeu, irei atualizar o meu componente aqui. Atenciosamente. Castro

Prezados colegas de grupo. Estou com um problema ao enviar email com o componente ACBR, quando envio um email, o arquivo anexo está chegando com problemas para o destinatário, sendo que o original que está na maquina do cliente, continua sem problemas, pelo que pude perceber, o problema está no cabeçalho do xml que está indo com anexo. Segue o cabeçalho dos 2 arquivos para vocês darem uma olhada. Acho que o erro está aqui, ele repete a palavra versao duas vezes no trecho abaixo, mas porque aparece somente depois de enviar o email? <?xml version="1.0" encoding="UTF-8"?><nfeProc versao="versao="2.00"" ARQUIVO SEM PROBLEMAS <?xml version="1.0" encoding="UTF-8"?> -<nfeProc xmlns="http://www.portalfiscal.inf.br/nfe" versao="2.00">-<NFe xmlns="http://www.portalfiscal.inf.br/nfe">-<infNFe versao="2.00" Id="NFe31130525484437000179550010000002581000002585">-<ide><cUF>31</cUF><cNF>000\ 00258</cNF><natOp>VENDA DE MERCADORIAS</natOp><indPag>1</indPag><mod>55</mod><serie>1</serie><nNF>258</nNF>\ <dEmi>2013-05-22</dEmi><dSaiEnt>2013-05-22</dSaiEnt><hSaiEnt>13:58:14</hSaiEnt><\ tpNF>1</tpNF><cMunFG>3106200</cMunFG><tpImp>1</tpImp><tpEmis>1</tpEmis><cDV>5</c\ DV><tpAmb>2</tpAmb><finNFe>1</finNFe><procEmi>0</procEmi><verProc>1.4.1</verProc\ > ------------------------------------------------------------------- ARQUIVO COM PROBLEMAS <?xml version="1.0" encoding="UTF-8"?><nfeProc versao="versao="2.00"" xmlns="http://www.portalfiscal.inf.br/nfe"><NFe xmlns="http://www.portalfiscal.inf.br/nfe"><infNFe versao="2.00" Id="NFe31130525484437000179550010000002581000002585"><ide><cUF>31</cUF><cNF>0000\ 0258</cNF><natOp>VENDA DE MERCADORIAS</natOp> Grato. Cesar

Bom dia a todos. Alguem ai saberia me dizer quais registros deverei informar quando não houver nenhuma movimentação no mês. O meu cliente é do lucro presumido. Att, Castro

Fernanda, boa tarde. Comigo deu certo. Você chegou a atualizar a pasta Schemas? Att, Castro.