Gr@c@

Nellien, não sei se é questão de MG terminar a implementação uma vez que me disseram que está tudo funcionando normal. Vamos tentar agilizar isso postando reclamação no Fale Conosco do site da NF-e de MG. Eu já enviei email. Infelizmente, em MG, a coisa só funciona assim.

Nellien, eu não estou conseguindo porque o arquivo de retorno vem vazio. Qual a mensagem de erro vc está recebendo?

Mas vamos lá aos testes que fiz agora: 1-Executei o meu aplicativo antigo (antes de alterar coisas para atender a versão 3.10) e com os schemas que atualmente estão sendo usados em meus clientes na versão 2.00 e a nota foi enviada,autorizada,Danfe impresso e banco de dados atualizado com sucesso. 2-Executei o novo aplicativo (já com as tags novas para versão 3.10) e com os schemas atuais disponibilizados no portal da NF-e PL_007b_NFCe e PL_008c) ---->Com a versão 2.10 e modo Sincrono -> a nota é enviada/autorizada/impressa com sucesso ---->Com a versão 2.10 e modo Assincrono -> o -pro-rec-xml veio com conteúdo "Lote Recebido com sucesso". ---->Com a versão 3.10 e modo Sincrono -> o -pro-rec.xml vem sem numero no inicio do nome e zero bytes. ---->Com a versão 3.10 e modo Assincrono -> o -pro-rec.xml vem sem numero no inicio do nome e zero bytes. resumindo na versão 3.10 não funciona síncrono nem assíncrono. Se a nota tem um erro de schema ou conteúdo recebo o erro de rejeição. Mas se a nota é validada, recebo retorno vazio.

Mandei a mesma nota na versão 2.00, mas a nota também não foi autorizada, mas o conteúdo do retorno 19-rec.xml foi: <?xml version="1.0"?> -<retEnviNFe versao="2.00" xmlns="http://www.portalfiscal.inf.br/nfe"><tpAmb>2</tpAmb><verAplic>13_1_33</verAplic><cStat>103</cStat><xMotivo>Lote recebido com sucesso</xMotivo><cUF>31</cUF><dhRecbto>2014-04-09T14:34:33</dhRecbto>-<infRec><nRec>310000029770413</nRec><tMed>1</tMed></infRec></retEnviNFe>

ACBrNFe1.WebServices.Envia(iLote,TRUE); MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetWS); LoadXML(MemoResp, WBResposta); IF NOT ACBrNFe1.NotasFiscais.Items[0].Confirmada then begin ShowMessage('NFe NÃO CONFIRMADA' + #13#13#10 + 'Chave de Acesso = ' + ACBrNFe1.WebServices.Retorno.ChaveNFe + #13#13#10 + 'Msg de Retorno = ' + ACBrNFe1.NotasFiscais.Items[0].XML); end else begin {imprime a DANFE} ACBrNFe1.NotasFiscais.ImprimirPDF; ACBrNFe1.NotasFiscais.Imprimir; {atualiza Banco de Dados} .... {Envia E-mail} .... end; end;

Italo, fiz um teste aqui enviando uma NF-e com um erro proposital no endereço do destinatário. A retorno veio OK com o erro de rejeição no xLgr. Se esse retorno veio correto, meu aplicativo deve estar certo. O xml da nota que está retornando o -procrec.xml vazio está validando. Acho que só vai dar pra ter certeza se alguém do fórum disser se está ou não conseguindo enviar nota em MG.

Asterix, aqui em MG eu estou conseguindo o Status de Serviço "107-Serviço em Operação" tanto em homologação como em produção. Mas ao enviar a nota em homologação, não consigo nem o 999-Erro não catalogado. Me vem retorno vazio. O pessoal do SEFAZ/MG me diz que está tudo normal (não sei o que chamam de normal aqui em MG )

Italo fiz a alteração na ACBrNFeWebServices.pas linha 2332 conf você solicitou, salvei, dei rebuild no componente e no aplicativo, reenviei a nota e o arquivo -prorec.xml continua retornando vazio de forma que nem dá pra anexar. Pode ser então erro de retorno no SEFAZ/MG, mas nenhum colega do fórum me retornou se está conseguindo enviar NF-e 3.10 homologação em MG.

Instalação OK Topico RESOLVIDO

C:\Program Files\Borland\Delphi7\Lib\ACBr\Fontes\ACBrMDFe\ACBrMDFe.pas(615) Error: Undeclared identifier: 'EventoCTe' C:\Program Files\Borland\Delphi7\Lib\ACBr\Fontes\ACBrMDFe\ACBrMDFe.pas(615) Error: Not enough actual parameters C:\Program Files\Borland\Delphi7\Lib\ACBr\Fontes\ACBrMDFe\ACBrMDFe.pas(615) Error: 'END' expected but ',' found C:\Program Files\Borland\Delphi7\Lib\ACBr\Fontes\ACBrMDFe\ACBrMDFe.pas(621) Error: EXCEPT or FINALLY expected C:\Program Files\Borland\Delphi7\Lib\ACBr\Fontes\ACBrMDFe\ACBrMDFe.pas(638) Error: 'END' expected but 'FINALLY' found C:\Program Files\Borland\Delphi7\Lib\ACBr\Fontes\ACBrMDFe\ACBrMDFe.pas(641) Error: '.' expected but ';' found C:\Program Files\Borland\Delphi7\Lib\ACBr\Fontes\ACBrMDFe\ACBrMDFeWebServices.pas(292) Fatal: Could not compile used unit 'ACBrMDFe' Compilation failure

Este post foi colocado como resolvido após atualização do componente, mas eu ainda estou com este problema de retorno em branco quando ocorre uma rejeição. Meu componente está atualizado. É preciso forçar o tratamento quando cStat for <> 100 ?

Mas ao enviar a NFe o arquivo de retorno do SEFAZ vem vazio e a nota não é autorizada. Não tenho como saber o motivo da rejeição. Já tentei como modo síncrono e assíncrono. Não sei se tem mais colegas com esse problema. Caso alguém esteja conseguindo enviar NF-e na nova versão em ambiente de homologação, o problema é com a forma como estou fazendo meus comandos.

Na versão 2.00 eu usava os 3 comandos dentro de blocos try como abaixo já que MG sempre deu muito erro também na parte de cadeia de certificado. Agora, qual é o comando correto para NF-e e para NFC-e? Try ACBrNFe1.NotasFiscais.GerarNFe; Except on E:Exception do begin ShowMessage('Erro ao Gerar NFe.' + #13#10 + E.Message); Exit; end; End; Try ACBrNFe1.NotasFiscais.Assinar; Except on E:Exception do begin ShowMessage('Erro ao Assinar NFe.' + #13#10 + E.Message); Exit; end; End; Try ACBrNFe1.NotasFiscais.Valida; Except on E:Exception do begin ShowMessage('Erro ao Validar NFe.' + #13#10 + E.Message); Exit; end; End; ACBrNFe1.WebServices.Envia(iLote,TRUE); MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetWS); LoadXML(MemoResp, WBResposta); IF NOT ACBrNFe1.NotasFiscais.Items[0].Confirmada then begin ShowMessage('NFe NÃO CONFIRMADA' + #13#13#10 + 'Chave de Acesso = ' + ACBrNFe1.WebServices.Retorno.ChaveNFe + #13#13#10 + 'Msg de Retorno = ' + ACBrNFe1.NotasFiscais.Items[0].XML); end else begin {imprime a DANFE} ACBrNFe1.NotasFiscais.ImprimirPDF; ACBrNFe1.NotasFiscais.Imprimir; {atualiza Banco de Dados} end;

André O status do serviço agora está retornando normal (não fiz nenhuma alteração) Porem ao enviar a NF-e está me retornando status 217 NF-e não encontrada na base do sefaz O arquivo 19-rec.xml está retornando vazio. Você consegue enviar a nota?

Pessoal, alguém conseguindo enviar NF-e em homologação na versão 3.10 em MG? Enviei email para SEFAZ e me disseram que está normal e que os webservices de homologação já foram liberados conforme aviso no site de MG. Só que não consigo nada e meu componente foi atualizado hoje. Preciso saber se há mais colegas com problemas para insistir na minha reclamação junto ao SEFAZ/MG.

Segue as mensagens de retorno do Status Serviço de MG (ambiente de homologação e ambiente de produção) para NFe 3.10

Eu nem estou conseguindo retorno de Status do Serviço em operação. Está dando Inativo ou Inoperante serviço temporariamente indisponível em modo de homologação. Em modo produção está retornando 107 Serviço em operação. MG é um caso à parte. Primeiro colocam pra funcionar o modo Produção pra depois pensar em funcionar o modo de homologação. Ô orgulho que tenho de ser mineira!

Juliomar, eu nunca alterei unit do PCN2. A única unit do ACBR alterada é o ACBr.inc e o ícone fica diferente quando ocorre alteração. Com certeza foi outra coisa que ocorreu. Eu sempre salvo a pasta ACBr antes de fazer update. Na minha cópia anterior, o PCN2.dcu estava no local correto. Isso ocorreu nessa ultima atualização que fiz. E o único procedimento foi: atualizar e instalar via ACBrInstall.exe, sem nenhuma alteração.

Verifiquei que o PCN2.dcu era o único dcu que estava ficando nesta pasta. Deletei o PCN2.dcu e rodei o ACBrInstall.exe novamente fazendo também a atualização do componente. Não deu certo e o dcu gerou novamente no mesmo lugar. Deletei então todos os PCN2.* e fiz o update do componente para restaurá-los. Reinstalei novamente via ACBrInstall.exe e aí sim, deu certo. O PCN2.dcu ficou na pasta correta junto com os demais dcu. Agora vejo o pDevol e o vIPIDevol no componente. Acontece que o PCN2.dcu que estava na pasta errada antes, estava com data correta 31/03/2014 18:08 como podem ver na imagem acima. Mas na pasta lib7 ele não estava com data atualizada, então o componente estava enxergando uma compilação antiga. Só me confirmem uma coisa: todos os dcu do ACBr devem ficar nesse local: C:\Arquivos de Programas\Borland\Delphi7\Lib\ACBr\Lib\Delphi\Lib7 No caso do PCN2.dcu ele estava ficando em: C:\Arquivos de Programas\Borland\Delphi7\Lib\ACBr\Projects Não entendo porque isso ocorreu e não sei como fazer para evitar que ocorra novamente, a não ser que eu verifique sempre que atualizar e instalar o componente.

Percebi que o ícone no PCN2.dcu é o único que está ficando com um ponto de interrogação azul após instalação via ACBrInstall.exe, aliás, esse dcu não deveria ter ficado nesse local.

na unit pcnNFe: --------------------- TDetCollectionItem = class(TCollectionItem) private FProd: TProd; FImposto: TImposto; FpDevol: currency; FvIPIDevol: currency; FinfAdProd: string; public constructor Create; reintroduce; destructor Destroy; override; published property Prod: TProd read FProd write FProd; property Imposto: TImposto read FImposto write FImposto; property pDevol: currency read FpDevol write FpDevol; property vIPIDevol: currency read FvIPIDevol write FvIPIDevol; property infAdProd: string read FinfAdProd write FinfAdProd; end; na unit pcnNFeR: ---------------- (* Grupo da TAG <det><impostoDevol> *) if Leitor.rExtrai(2, 'impostoDevol') <> '' then begin (*U51*)NFe.Det.pDevol := Leitor.rCampo(tcDe2, 'pDevol'); if Leitor.rExtrai(3, 'IPI') <> '' then begin (*U61*)NFe.Det.vIPIDevol := Leitor.rCampo(tcDe2, 'vIPIDevol'); end; end; na unit pcnNFeW: ----------------------- procedure TNFeW.GerarDet; var i: integer; begin for i := 0 to nfe.Det.Count - 1 do begin Gerador.wGrupo('det nItem="' + IntToStr(nfe.Det.Prod.nItem) + '"', 'H01'); Gerador.gtCampo('nItem', IntToStr(nfe.Det.Prod.nItem)); (**)GerarDetProd(i); (**)GerarDetImposto(i); if nfe.Det.pDevol > 0 then (**)GerarDetDevol(i); Gerador.IDNivel := 'H01'; Gerador.wCampo(tcStr, 'V01', 'infAdProd', 01, 500, 0, nfe.Det.infAdProd, DSC_INFADPROD); Gerador.wGrupo('/det'); end; if nfe.Det.Count > 990 then Gerador.wAlerta('H02', 'nItem', DSC_NITEM, ERR_MSG_MAIOR_MAXIMO + '990'); end; procedure TNFeW.GerarDetDevol(const i: integer); begin Gerador.wGrupo('impostoDevol', 'U50'); Gerador.wCampo(tcDe2, 'U51', 'pDevol', 01, 05, 1, nfe.Det.pDevol, DSC_PDEVOL); Gerador.wGrupo('IPI', 'U60'); Gerador.wCampo(tcDe2, 'U61', 'vIPIDevol', 01, 15, 1, nfe.Det.vIPIDevol, DSC_VIPIDEVOL); Gerador.wGrupo('/IPI'); Gerador.wGrupo('/impostoDevol'); end;

consegui dar o buildAll no pcn2 (executando o Delphi como Administrador). Mas continua dando "undeclarad identificador" no grupo impostoDevol

Sim, permissão total. Acabei de verificar.

Tentei dar um build no pcn2.dpk mas está ocorrendo esse erro: could not create output file "c:\program files\Borland\delphi7\Projects\Bpl\PCN2.bpl"

Ítalo, o meu componente está atualizado, instalado via ACBrinstall.exe, já dei buildAll, mas as propriedades ref a tag impostoDevol não aparecem. Mesmo colocando forçado, dá erro ao compilar.