Ir para conteúdo
  • Cadastre-se

dev botao

  • Este tópico foi criado há 3249 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Fundadores
Postado

Já não estão lá ???  Quando criamos o componente, todo o XML foi mapeado...

sSecao    := 'ISSQN'+IntToStrZero(I,3) ;
sFim   := INIRec.ReadString( sSecao,'ValorBase',INIRec.ReadString(sSecao,'vBC'   ,'FIM')) ;
if (sFim = 'FIM') then
   sFim   := INIRec.ReadString( sSecao,'vBC','FIM');
if (sFim <> 'FIM') then
 begin
  with ISSQN do
   begin
     if StringToFloatDef( INIRec.ReadString(sSecao,'ValorBase',INIRec.ReadString(sSecao,'vBC','')) ,0) > 0 then
      begin
        vDeducISSQN := StringToFloatDef( INIRec.ReadString(sSecao,'vDeducISSQN','') ,0) ;
        vBC       := StringToFloatDef( INIRec.ReadString(sSecao,'ValorBase'   ,INIRec.ReadString(sSecao,'vBC'   ,'')) ,0);
        vAliq     := StringToFloatDef( INIRec.ReadString(sSecao,'Aliquota'    ,INIRec.ReadString(sSecao,'vAliq' ,'')) ,0);
        vISSQN    := StringToFloatDef( INIRec.ReadString(sSecao,'ValorISSQN'  ,INIRec.ReadString(sSecao,'vISSQN','')) ,0);
        cMunFG    := StrToInt( INIRec.ReadString(sSecao,'MunicipioFatoGerador',INIRec.ReadString(sSecao,'cMunFG','')));
        cListServ := INIRec.ReadInteger(sSecao,'CodigoServico',INIRec.ReadInteger(sSecao,'cListServ',0));
        cServTribMun := INIRec.ReadString(sSecao,'cServTribMun','');
        cNatOp    := INIRec.ReadInteger(sSecao,'cNatOp',0);
        indIncFisc:= StrToindIncentivo(OK,INIRec.ReadString(sSecao,'indIncFisc','0'));
      end;
   end;
 end;

 

imposto.jpg

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

  • Membros Pro
Postado
12 horas atrás, Daniel Simoes disse:

Já não estão lá ???  Quando criamos o componente, todo o XML foi mapeado...


sSecao    := 'ISSQN'+IntToStrZero(I,3) ;
sFim   := INIRec.ReadString( sSecao,'ValorBase',INIRec.ReadString(sSecao,'vBC'   ,'FIM')) ;
if (sFim = 'FIM') then
   sFim   := INIRec.ReadString( sSecao,'vBC','FIM');
if (sFim <> 'FIM') then
 begin
  with ISSQN do
   begin
     if StringToFloatDef( INIRec.ReadString(sSecao,'ValorBase',INIRec.ReadString(sSecao,'vBC','')) ,0) > 0 then
      begin
        vDeducISSQN := StringToFloatDef( INIRec.ReadString(sSecao,'vDeducISSQN','') ,0) ;
        vBC       := StringToFloatDef( INIRec.ReadString(sSecao,'ValorBase'   ,INIRec.ReadString(sSecao,'vBC'   ,'')) ,0);
        vAliq     := StringToFloatDef( INIRec.ReadString(sSecao,'Aliquota'    ,INIRec.ReadString(sSecao,'vAliq' ,'')) ,0);
        vISSQN    := StringToFloatDef( INIRec.ReadString(sSecao,'ValorISSQN'  ,INIRec.ReadString(sSecao,'vISSQN','')) ,0);
        cMunFG    := StrToInt( INIRec.ReadString(sSecao,'MunicipioFatoGerador',INIRec.ReadString(sSecao,'cMunFG','')));
        cListServ := INIRec.ReadInteger(sSecao,'CodigoServico',INIRec.ReadInteger(sSecao,'cListServ',0));
        cServTribMun := INIRec.ReadString(sSecao,'cServTribMun','');
        cNatOp    := INIRec.ReadInteger(sSecao,'cNatOp',0);
        indIncFisc:= StrToindIncentivo(OK,INIRec.ReadString(sSecao,'indIncFisc','0'));
      end;
   end;
 end;

 

imposto.jpg

bom dia Daniel, eu acredito que realmente deva ter já,mas eu abri um post anterior com um problema, onde eu coloco as tags de serviço no meu arquivo, porém pelo retorno do acbrmonitorplus elas não aparecem no xml, e devolve como erro desconhecido, já no emulador aparece o retorno de falta da tag de ICMS, se você puder dar uma analisada de repente está mais fácil que pensamos.

SAT.TXT

daniel caso queira dar uma olhada no post que estava aberto

http://www.projetoacbr.com.br/forum/topic/26984-erro-sat-cfe-de-serviço-issqn/?do=findComment&comment=175820

  • Moderadores
Postado

O ACBrMonitor está preparado para receber as tags, bastaria enviar:

[ISSQN???]
vDeducISSQN  = 
vBC          = 
vAliq        = 
vISSQN       = 
cMunFG       = 
cListServ    = 
cServTribMun = 
cNatOp       = 
indIncFisc   = 

O problema é que o SAT vai avaliar o XML enviado e aceitar ou não as tags, alterando o XML original, isso implica que mesmo você enviando corretamente, o SAT pode não aceitar, desconsiderar as tags e valores enviados e o XML então ficar inválido que aparentemente é o que ocorre visto a mensagem de erro apresentada.

Verifique o XML retornado pelo SAT, se nele as tags não existem mas você as enviou, então está ocorrendo o que descrevi acima.

Compare o XML enviado com o XML recebido e provavelmente verá que no XML enviado constam as tags e no recebido não.

Equipe ACBr

Régys Borges da Silveira

http://www.regys.com.br

certificacao delphicertificacao delphi
  • Membros Pro
Postado
1 hora atrás, Régys Silveira disse:

O ACBrMonitor está preparado para receber as tags, bastaria enviar:


[ISSQN???]
vDeducISSQN  = 
vBC          = 
vAliq        = 
vISSQN       = 
cMunFG       = 
cListServ    = 
cServTribMun = 
cNatOp       = 
indIncFisc   = 

O problema é que o SAT vai avaliar o XML enviado e aceitar ou não as tags, alterando o XML original, isso implica que mesmo você enviando corretamente, o SAT pode não aceitar, desconsiderar as tags e valores enviados e o XML então ficar inválido que aparentemente é o que ocorre visto a mensagem de erro apresentada.

Verifique o XML retornado pelo SAT, se nele as tags não existem mas você as enviou, então está ocorrendo o que descrevi acima.

Compare o XML enviado com o XML recebido e provavelmente verá que no XML enviado constam as tags e no recebido não.

no xml de envio, criado pelo acbrmonitorplus não consta as tags de issqn que coloquei no arquivo, acho que o problema está aí.

 

AD20151229093231-988441-env.xml

  • Membros Pro
Postado
49 minutos atrás, Régys Silveira disse:

Por favor poste o comando que está enviando.

SAT.CriarEnviarCfe("[infCFe]

segue em anexo o arquivo completo que estou gerando.

obs: Régys está muito chato no fórum essa trava que foi colocada, ao responder rapidamente mais de uma mensagem.

Novas mensagens dentro de um curto espaço de tempo são limitadas. Por favor, aguarde 93 segundos antes de enviar.

SAT.TXT

  • Este tópico foi criado há 3249 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.