prefeitura de três rios - provedor fgmaiss - problema na geração do xml em modo de produção

[widson]

Bom dia ao usar o componte ACBRNFsex em modo produção

ocorreram os seguintes problemas:
não pega o item de serviço adicionado
e as tags "<item1..","<aliq1..","<val1.." estão fora da sequência

segue o XMLs

obrigado

3322071183331700012556000000000013576-rps_COM_TAGS_CORRETAS.xml 3322073229185800014956000000000000142-rps_GERADO_PELO_ACBR.xml

[Italo Giurizzato Junior]

Boa tarde Widson,

Favor atualizar os fontes, reinstalar o ACBr e faça novos testes.

[widson]

Bom dia 

Com relação as tags: "<item1..","<aliq1..","<val1.." 

elas agora estão na sequência correta

mas um problema que persiste

é quando eu adiciono o item de serviço:

 with Servico.ItemServico.New do

que é a tag   "<item1></item1>" no xml ela fica vazia ( xml em anexo )

<item1></item1>
<item2></item2>
<item3></item3>

nome meu caso no  meu programa para contornar este problema e continuar os testes eu lanço o item de serviço duas vezes

( os xml que eu enviei no post anterior , eu havia feito isto , para poder continuar os testes)

 

obrigado

 

 

3322073229185800014956000000000000143-rps.xml

[Italo Giurizzato Junior]

Boa tarde Widson,

Para que saída as informações temos que alimentar os seguintes campos do componente:

ItemListaServico -> item

Aliquota -> aliq

ValorUnitario -> val

Esses campos existem na lista de serviços:  ItemServico

 

[widson]

Boa tarde no meu codigo tem estes campos

 with Servico.ItemServico.New do
   Aliquota :=DtmNFSE.qryNFSeDADOS.FieldByName('AliqISS').AsFloat
   ValorUnitario := DtmNFSE.qryNFSe.FieldByName('vlrmens').AsFloat;

 

outra coisa que observei é que não esta calculado o desconto o valor liquido da NFSe sai sem o desconto:

   Quantidade := 1;

DescontoCondicionado := DtmNFSE.qryNFSe.FieldByName('descvlr').AsFloat;

 ValorTotal := Quantidade * ValorUnitario;

        BaseCalculo := ValorTotal - ValorDeducoes - DescontoIncondicionado - DescontoCondicionado;
 

[widson]

Bom dia

para conseguir transmitir a NFSe e consultar (fgmaiis)

eu tive que fazer alterações no componente ACBR no meu computador

segue em anexo as alterações

 

obrigado

ALTERACAO_COMPONENTE_ACBR.txt

[Italo Giurizzato Junior]

Bom dia Widson,

Favor anexar as units alteradas, desde já muito obrigado pela colaboração.

[widson]

Boa tarde ok

foram as units abaixo alteradas

WebFisco.GravarXml.pas WebFisco.LerXml.pas ACBrNFSeX.pas

[Italo Giurizzato Junior]

Bom dia Widson,

Muito obrigado pela colaboração, já inclui na minha lista de tarefas. TK-2968

[Italo Giurizzato Junior]

Boa tarde Widson,

Já esta no SVN.

Favor atualizar, reinstalar e faça novos testes.

Com essas alterações todos os métodos estão funcionando para o provedor?

[widson]

Boa tarde ao tentar atualizar acbr deu os seguinte erro , nas ultimas linhas ( em anexo)

log_Delphi_10.3_Rio_Win32.txt

[Italo Giurizzato Junior]

Widson,

Delete todas as Units referente ao WebFisco, atualize novamente e por fim tente reinstalar o ACBr.

[widson]

Boa tarde , depois de deletar as units webfisco e atualizar o acbr

a parte de envio e consulta   da NFSe ficou ok,

 mas o cancelamento não pode ser testado pois não tem a propriedade TIPO no InfCancelamento

 

  with FWebService.CancelaNFSe.InfCancelamento do
  begin
    NumeroNFSe := aInfCancelamento.NumeroNFSe;
    SerieNFSe := aInfCancelamento.SerieNFSe;
    ChaveNFSe := aInfCancelamento.ChaveNFSe;
    DataEmissaoNFSe := aInfCancelamento.DataEmissaoNFSe;
    CodCancelamento := aInfCancelamento.CodCancelamento;
    MotCancelamento := TiraAcentos(ChangeLineBreak(aInfCancelamento.MotCancelamento));
    NumeroLote := aInfCancelamento.NumeroLote;
    NumeroRps := aInfCancelamento.NumeroRps;
    SerieRps := aInfCancelamento.SerieRps;
    ValorNFSe := aInfCancelamento.ValorNFSe;
    CodVerificacao := aInfCancelamento.CodVerificacao;
    email := aInfCancelamento.email;
    NumeroNFSeSubst := aInfCancelamento.NumeroNFSeSubst;
    SerieNFSeSubst := aInfCancelamento.SerieNFSeSubst;
    CodServ := aInfCancelamento.CodServ;
    Tipo ============================================> NAO TEM ESTA PROPRIEDADE
    if (ChaveNFSe <> '') and (NumeroNFSe = '') then
      NumeroNFSe := Copy(ChaveNFSe, 22, 9);
  end;

Obrigado

[Italo Giurizzato Junior]

Boa tarde Widson,

O que vem a ser esse campo "Tipo" no cancelamento?

[widson]

Boa tarde 

 

o campo tipo e :

a exemplo do  FWebService.ConsultaNFSe.InfConsultaNFSe  que tem o campo tipo 

with FWebService.ConsultaNFSe.InfConsultaNFSe do
  begin
    tpConsulta := aInfConsultaNFSe.tpConsulta;
    NumeroIniNFSe := aInfConsultaNFSe.NumeroIniNFSe;
    NumeroFinNFSe := aInfConsultaNFSe.NumeroFinNFSe;
    SerieNFSe := aInfConsultaNFSe.SerieNFSe;
    tpPeriodo := aInfConsultaNFSe.tpPeriodo;
    DataInicial := aInfConsultaNFSe.DataInicial;
    DataFinal := aInfConsultaNFSe.DataFinal;
    CNPJPrestador := aInfConsultaNFSe.CNPJPrestador;
    IMPrestador := aInfConsultaNFSe.IMPrestador;
    CNPJTomador := aInfConsultaNFSe.CNPJTomador;
    IMTomador := aInfConsultaNFSe.IMTomador;
    CNPJInter := aInfConsultaNFSe.CNPJInter;
    IMInter   := aInfConsultaNFSe.IMInter;
    NumeroLote := aInfConsultaNFSe.NumeroLote;
    Pagina := aInfConsultaNFSe.Pagina;
    CadEconomico := aInfConsultaNFSe.CadEconomico;
    CodServ := aInfConsultaNFSe.CodServ;
    CodVerificacao := aInfConsultaNFSe.CodVerificacao;
    Tipo:= aInfConsultaNFSe.Tipo; -------------Este campo 
  end;

 

anexo layout do cancelamento do provedor fgmaiis

 

layout_wscancelanfe.pdf

[Italo Giurizzato Junior]

Bom dia Widson,

Você tem o layout do Consultar?

[widson]

Bom dia tenho sim tá no anexo

 

layout_wsconsultanfexml.pdf

[Italo Giurizzato Junior]

Boa tarde Widson,

Favor atualizar os fontes, reinstale o ACBr e faça novos testes.

Detalhe importante o campo Tipo não é mais string, veja no programa exemplo.

[widson]

Boa tarde

Atualizei o ACBR e os campos Tipo no meu programa foram alterados para o tipo  TTipodoc.tdNFSe ou Tipo:=TTipodoc.tdRPS

Agora tudo ok com a emissão da NFSe , a consulta e o cancelamento as 3 operações estão funcionando corretamente

 

porem o DANFE ( D:\COMPONENTES_D10.3_Rio\acbr\Fontes\ACBrDFe\ACBrNFSeX\Provedores\WebFisco.LerXml.pas)

voltou a dar o erro "with message "2022/08/19 98:54" is not valid date"

linhas:

 aValor:=StringReplace(aValor, '-', '/', [rfReplaceAll]);

    aValor := aValor + ' ' + ObterConteudo(ANode.Childrens.FindAnyNs('nfehora'), tcStr);
    DataEmissao := StrToDateTime(aValor);

 

anteriormente eu tinha tinha alterado para isto para não dar este probelama:

 aValor := ObterConteudo(ANode.Childrens.FindAnyNs('nfedata'), tcStr);

    aValor:=StringReplace(aValor, '-', '', [rfReplaceAll]);
    aValor:=RightStr(aValor,2)+'/'+Copy(aValor,5,2)+'/'+LeftStr(aValor,4);

    aValor := aValor + ' ' + ObterConteudo(ANode.Childrens.FindAnyNs('nfehora'), tcStr);
    DataEmissao := StrToDateTime(aValor);

 

obrigado

 

[Italo Giurizzato Junior]

Bom dia Widson,

Favor anexar o XML retornado para que eu possa analisar esse problema.

[widson]

xml em anexo

 

322918580001492022081900000000000257-nfse-env.xml

[Italo Giurizzato Junior]

Widson,

Substitui a unit pela que esta em anexo.

Reinstale o ACBr e faça novos testes.

WebFisco.LerXml.pas

[widson]

Boa tarde

agora tá tudo ok

está enviando, consultando, canelando e imprimindo o DANFE corretamente

 

Obrigado

[Italo Giurizzato Junior]

Boa tarde Widson,

Já esta no SVN.

[Italo Giurizzato Junior]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.