wilson.duvidas

Atualizei os fontes do ACBr e na instalação deu erro na NFS-e, conforme log em anexo. log_Delphi_7.txt Resolvido. Apaguei o .pas que estava dando erro, baixei novamente e passou na instalação. Grato!

Resolvi assim, alterando em \fontes\ACBrDFe\ACBrNFSe\ACBrNFSeNotasFiscais.pas function TNotasFiscais.LoadFromString(AXMLString: String; AGerarNFSe: Boolean = True): Boolean; var VersaoNFSe: TVersaoNFSe; Ok: Boolean; AXML: AnsiString; N: integer; vTipo: Integer; function PosNfseCancelamento: Integer; begin Result := Pos('</NfseCancelamento>', AXMLString); end; function PosNFSe: Integer; begin Result := Pos('</Nfse>', AXMLString); end; function PosRPS: Integer; begin if VersaoNFSe < ve200 then Result := Pos('</Rps>', AXMLString) else begin // Se a versão do XML do RPS for 2.00 ou posterior existem 2 TAGs <Rps>, // neste caso devemos buscar a posição da segunda. Result := Pos('</Rps>', AXMLString); Result := PosEx('</Rps>', AXMLString, Result + 1); end; end; begin VersaoNFSe := StrToVersaoNFSe(Ok, TACBrNFSe(FACBrNFSe).Configuracoes.Geral.ConfigXML.VersaoXML); AXMLString := StringReplace(StringReplace( AXMLString, '&lt;', '<', [rfReplaceAll]), '&gt;', '>', [rfReplaceAll]); AXMLString := RetirarPrefixos(AXMLString); (* // Converte de UTF8 para a String nativa da IDE // AXMLString := RetirarPrefixos(DecodeToString(AXMLString, True)); *) Result := False; N := PosNfseCancelamento; if N > 0 then vtipo := 0; if N = 0 then begin N := PosNFSe; if N > 0 then vTipo := 1; end; if N > 0 then begin // Ler os XMLs das NFS-e while N > 0 do begin if vTipo = 0 then begin AXML := copy(AXMLString, 1, N + 18); AXMLString := Trim(copy(AXMLString, N + 19, length(AXMLString))); end; if vTipo = 1 then begin AXML := copy(AXMLString, 1, N + 6); AXMLString := Trim(copy(AXMLString, N + 7, length(AXMLString))); end; with Self.Add do begin LerXML(AXML); if AGerarNFSe then // Recalcula o XML GerarXML; end; if vTipo = 0 then N := PosNfseCancelamento; if vTipo = 1 then N := PosNFSe; end; end else begin N := PosRPS; // Ler os XMLs dos RPS while N > 0 do begin AXML := copy(AXMLString, 1, N + 5); AXMLString := Trim(copy(AXMLString, N + 6, length(AXMLString))); with Self.Add do begin LerXML(AXML); if AGerarNFSe then // Recalcula o XML GerarXML; end; N := PosRPS; end; end; end;

Fortaleza utiliza o padrão Ginfes, Mas não encontrei (e nem sei se tem) a página do ambiente de homologação.

Creio que o problema esteja na function TNotasFiscais.LoadFromString Essa function chama a função PosNFSe que procura a tag </Nfse> e ignora o restante do xml.

Boa tarde Alexsandro. Se for por webservice, é só setar o componente ACBrNFSe para homologação. Se for no site do provedor, no meu caso que é Ginfes, eu entro na homologação: http://nomedacidade.ginfesh.com.br

Para que o danfe da nfs-e saia com a tarja de cancelamento, você deve alterar a propriedade do componente danfe: ACBrNFSe1.NotasFiscais.Clear; ACBrNFSe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName); if ACBrNFSe1.NotasFiscais.Items[0].NFSe.NfseCancelamento.DataHora <> 0 then ACBrNFSe1.DANFSE.NFSeCancelada := True; ACBrNFSe1.NotasFiscais.Imprimir; Contudo, a propriedade DataHora está vindo zerada após o carregamento do xml.

Resolvi desinstalando tudo e fazendo uma nova instalação. Obrigado Juliomar, pela atenção. Resolvi desinstalando tudo e fazendo uma nova instalação. Obrigado Juliomar, pela atenção.

Sim. Mas é justamente na hora de recompilar os pacotes que está dando o erro. Sim. Mas é justamente na hora de recompilar os pacotes que está dando o erro.

Bom dia Italo. Atualizei os fontes e começou a dar o erro no ACBrNFSeWebServices.pas: Method 'Clear' not found in base class. Além de atualizar tenho que fazer alguma outra coisa?

No portal da NF-e tem uma planilha com os NCM, mas sem os percentuais. http://www.nfe.fazenda.gov.br/portal/exibirArquivo.aspx?conteudo=oqXtmaR10bY=

Vou fazer um pente fino nas dll's. Estou desconfiado que pode ser sim as dll's.

DLL's atualizadas. O erro acontece assim que se clica no ícone do sistema. Nem chega na parte da chamada do certificado digital.

Boa tarde Alexsandro. No meu caso, já tentamos executar como administrador e alteramos o modo de compatibilidade mas nada deu certo ainda.

Também estou com um cliente com esse problema, porém, no Win 8. A versão do sistema com ACBr Trunk1 funciona normalmente nesse cliente. Estou tentando achar o problema.

Eu estou destacando apenas o total (icms difa para uf origem, icms difa para ud destino, total do icms difa, valor do FCP para uf destino).

Testei. Sem o valor do FCP nos itens e no total, valida sem problemas.

Realmente, o totalizador vICMSUFDest, com o valor do FCP adicionado, causa rejeição da NF-e por diferença do somatório do vICMSUFDest dos itens. Uma bagunça total !!!

A nota técnica diz também que foi alterado o prazo limite para implantação em produção de várias regras de validação, inclusive a NA01-20, que é a regra que verifica se foi ou não informado o grupo de ICMS para a UF destino.

Eu já estava atualizado com o Trunk 2. Atualizei o ACBr hoje (18/12/2015) e na compilação apresentou o erro citado. Para mim, resolveu fazendo a alteração do Library Path, conforme acima.

Liberada NT 2015/003 v1.50

De acordo com o que li no Convênio ICMS 153/15 (https://www.confaz.fazenda.gov.br/legislacao/convenios/convenio-icms/2015/convenio-icms-153-15), os benefícios de redução de base de cálculo e isenção devem ser considerados no cálculo. É uma confusão total!

Só não sei sei na tag vICMSUFDest tem que adicionar o valor de vFCPUFDest. Lembrando que ainda não foi liberada nenhuma norma técnica nova e, portanto, o que está valendo é a maneira do cálculo da NT 2015/003 v1.40.

Eu acho que deveria ser assim: pICMSUFDest = 19 (Alíquota adotada nas operações internas na UF de destino para o produto / mercadoria) pICMSInter = 12 (Alíquota interestadual das UF envolvidas: - 4% alíquota interestadual para produtos importados; 7% para os Estados de origem do Sul e Sudeste (exceto ES), destinado para os Estados do Norte, Nordeste, Centro-Oeste e Espírito Santo; 12% para os demais casos) Os demais campos ok.

Esse nosso governo está brincando. De novo ajustar os sistemas para a nova forma de cálculo, às vésperas da virada do ano.

Eu testei agora no validador da SEFAZ RS uma NF-e de SP para MS, com alíquota interestadual de 7% (<pICMSInter>7.00</pICMSInter>) e validou sem problema algum.