PC Toledo

Código: Selecionar todos

/*
ZE_SPEDCADASTROCLASS - CONSULTA CADASTRO SEFAZ

*/

#include "josequintas.ch"
#include "hbclass.ch"

CREATE CLASS ConsultaCadastroClass

   VAR  Versao        INIT ""
   VAR  VerAplic      INIT ""
   VAR  cStat         INIT ""
   VAR  cMotivo       INIT ""
   VAR  UF            INIT ""
   VAR  IE            INIT ""
   VAR  CNPJ          INIT {}
   VAR  CPF           INIT {}
   VAR  dhCons        INIT {}
   VAR  cUf           INIT {}
   VAR  InfCad        INIT {}

   ENDCLASS

CREATE CLASS InfCadClass

   VAR  IE            INIT ""
   VAR  CNPJ          INIT ""
   VAR  CPF           INIT ""
   VAR  UF            INIT ""
   VAR  cSit          INIT ""
   VAR  IndCredNfe    INIT ""
   VAR  IndCredCte    INIT ""
   VAR  xNome         INIT ""
   VAR  xFant         INIT ""
   VAR  xRegApur      INIT ""
   VAR  CNAE          INIT ""
   VAR  dIniAtiv      INIT ""
   VAR  dUltSit       INIT ""
   VAR  dBaixa        INIT ""
   VAR  IEUnica       INIT ""
   VAR  Ender
   METHOD Init()

   ENDCLASS

METHOD Init() CLASS InfCadClass

   ::Ender := EnderClass():New()

   RETURN SELF

CREATE CLASS EnderClass STATIC

   VAR  Logradouro      INIT ""
   VAR  Numero          INIT ""
   VAR  Complemento     INIT ""
   VAR  Bairro          INIT ""
   VAR  MunicipioIBGE   INIT ""
   VAR  Municipio       INIT ""
   VAR  CEP             INIT ""

   ENDCLASS

FUNCTION XmlToConsulta(cXml)

   LOCAL Consulta, oElement, cXmlInfCad, mTexto, cXmlEnder, mInfCad, mEnder

   Consulta := ConsultaCadastroClass():New()
   Consulta:Versao   := XmlNode( cXml, "versao" )
   Consulta:VerAplic := XmlNode( cXml, "verAplic" )
   Consulta:cStat    := XmlNode( cXml, "cStat" )
   Consulta:cMotivo  := XmlNode( cXml, "xMotivo" )
   Consulta:UF       := XmlNode( cXml, "UF" )
   Consulta:IE       := XmlNode( cXml, "IE" )
   Consulta:Cnpj     := XmlNode( cXml, "CNPJ" )
   Consulta:Cpf      := XmlNode( cXml, "CPF" )
   Consulta:dhCons   := XmlNode( cXml, "dhCons" )
   Consulta:cUf      := XmlNode( cXml, "cUF" )

   cXmlInfCad := {}
   mTexto := cXml
   DO WHILE .T.
      IF At( "<infCad", mTexto ) == 0
         EXIT
      ENDIF
      AAdd( cXmlInfCad, XmlNode( mTexto, "infCad" ) )
      IF "</infCad" $ mTexto
         mTexto := Substr( mTexto, At( "</infCad", mTexto ) + 5 )
      ELSE
         mTexto := ""
      ENDIF
   ENDDO
   FOR EACH oElement IN cXmlInfCad
      mInfCad := InfCadClass():New()
      mInfCad:IE           := XmlNode( oElement, "IE" )
      mInfCad:CNPJ         := XmlNode( oElement, "CNPJ" )
      mInfCad:CPF          := XmlNode( oElement, "CPF" )
      mInfCad:UF           := XmlNode( oElement, "UF" )
      mInfCad:cSit         := XmlNode( oElement, "cSit" )
      mInfCad:IndCredNfe   := XmlNode( oElement, "indCredNFe" )
      mInfCad:IndCredCte   := XmlNode( oElement, "indCredCTe" )
      mInfCad:xNome        := XmlNode( oElement, "xNome" )
      mInfCad:xFant        := XmlNode( oElement, "xFant" )
      mInfCad:xRegApur     := XmlNode( oElement, "xRegApur" )
      mInfCad:Cnae         := XmlNode( oElement, "CNAE" )
      mInfCad:dIniAtiv     := XmlNode( oElement, "dIniAtiv" )
      mInfCad:dUltSit      := XmlNode( oElement, "dUltSit" )
      mInfCad:dBaixa       := XmlNode( oElement, "dBaixa" )
      mInfCad:IEUnica      := XmlNode( oElement, "IEUnica" )
      cXmlEnder            := XmlNode( oElement, "ender" )
         mEnder               := EnderClass():New()
         mEnder:Logradouro    := XmlNode( cXmlEnder, "xLgr" )
         mEnder:Numero        := XmlNode( cXmlEnder, "nro" )
         mEnder:Complemento   := XmlNode( cXmlEnder, "xCpl" )
         mEnder:Bairro        := XmlNode( cXmlEnder, "xBairro" )
         mEnder:MunicipioIbge := XmlNode( cXmlEnder, "cMun" )
         mEnder:Municipio     := XmlNode( cXmlEnder, "xMun" )
         mEnder:CEP           := XmlNode( cXmlEnder, "CEP" )
      mInfCad:Ender        := mEnder
      AAdd( Consulta:InfCad, mInfCad )
   NEXT

   RETURN Consulta

FUNCTION SituacaoCnpjMySql( lObrigatoria )

   LOCAL mXml, mSelect, mSitFaz, mSitNfe, mSitCnae, mOk, mCadastro, nCont, cUf, cCnpj, cnMySql := ADOClass():New( AppcnServerJPA() )

   hb_Default( @lObrigatoria, .F. )
   cCnpj        := jpcadas->cdCnpj
   cUf          := jpcadas->cdUF
   mXml         := ""
   mSelect      := Select()

   IF ! ( lObrigatoria .OR. LeCnf( "CLI CONSULTA MYSQL" ) == "SIM" )
      RETURN NIL
   ENDIF
   IF Len( Trim( cCnpj ) ) <> 18
      RETURN NIL
   ENDIF
   IF Len( Trim( cUf ) ) <> 2
      RETURN NIL
   ENDIF
   IF Time() > "20:00" .OR. Dow( Date() ) == DOW_DOMINGO .OR. Dow( Date() ) == DOW_SABADO
      RETURN NIL
   ENDIF

   cnMySql:cSql := "SELECT * FROM JPCADFAZ WHERE SFCNPJ=" + StringSql( cCnpj ) + " AND SFUF=" + StringSql( cUf )
   cnMySql:Execute()
   IF cnMySql:Eof()
      IF lObrigatoria .OR. LeCnf( "CLI CONSULTA SEFAZ" ) == "SIM"
         WITH OBJECT cnMySql
            :QueryCreate()
            :QueryAdd( "SFCNPJ",      cCnpj )
            :QueryAdd( "SFUF",        cUF )
            :QueryAdd( "SFINFINC",    LogInfo() )
            :QueryAdd( "SFCONSULTAR", "S" )
            :QueryExecuteInsert( "JPCADFAZ" )
         END WITH
      ENDIF
   ELSE
      mXml := cnMySql:StringSql( "SFXML" )
      IF mXml == NIL
         mXml := ""
      ENDIF
      IF LeCnf( "CLI CONSULTA SEFAZ" ) == "SIM"
         cnMySql:cSql := "UPDATE JPCADFAZ SET SFCONSULTAR='S', SFINFINC=" + StringSql( LogInfo() ) + " WHERE SFCNPJ=" + StringSql( cCnpj ) + " AND SFUF=" + StringSql( cUF )
         cnMySql:ExecuteCmd()
      ENDIF
   ENDIF
   cnMySql:CloseRecordset()
   mCadastro := XmlToConsulta( mXml )
   IF Len( mCadastro:InfCad ) > 0
      mSitFaz  := mCadastro:InfCad[ 1 ]:cSit
      mSitNfe  := mCadastro:InfCad[ 1 ]:IndCredNfe
      mSitCnae := mCadastro:InfCad[ 1 ]:Cnae
      mOk      := .F.
      FOR nCont = 1 TO Len( mCadastro:InfCad )
         IF SoNumeros( jpcadas->cdInsEst ) == mCadastro:InfCad[ nCont ]:IE
            mSitFaz := mCadastro:InfCad[ nCont ]:cSit
            mSitNfe := mCadastro:InfCad[ nCont ]:IndCredNfe
            mSitCnae:= mCadastro:InfCad[ nCont ]:Cnae
            mOk     := .T.
         ENDIF
      NEXT
      IF ! mOk // Isento que fechou IE ou Servicos
         mSitFaz := " "
      ENDIF
      SELECT jpcadas
      BEGIN SEQUENCE WITH __BreakBlock()
         RecLock()
         REPLACE jpcadas->cdSitFaz WITH mSitFaz, ;
                 jpcadas->cdSitNfe WITH mSitNfe
         IF ! Empty( mSitCnae )
            IF ! "88889" $ mSitCnae .AND. ! "MARINGA" $ AppEmpresaNome() // ANP nao aceita o 88889
               REPLACE jpcadas->cdCnae WITH mSitCnae
            ENDIF
         ENDIF
         RecUnlock()
      END SEQUENCE
      SELECT (mSelect)
   ENDIF

   RETURN NIL

FUNCTION SituacaoCnpjSefaz( cCnpj, cUf )

   LOCAL mXml, oSefaz, mQtd, aApelidos := { "CARBOLUB", "CORDEIRO", "MARINGA", "CRISPET" }
   LOCAL cnMySql := ADOClass():New( AppcnServerJPA() )
   STATIC nNumApelido := 0

   nNumApelido += 1
   IF nNumApelido > 3
      nNumApelido := 1
   ENDIF
   oSefaz := SefazClass():New()
   mXml := oSefaz:NfeConsultaCadastro( SoNumeros( cCnpj ), cUf, NomeCertificado( aApelidos[ nNumApelido ] ) )
   cnMySql:cSql := "SELECT COUNT(*) AS QTD FROM JPCADFAZ WHERE SFUF=" + StringSql( cUF ) + " AND SFCNPJ=" + StringSql( cCnpj )
   cnMySql:Execute()
   mQtd := cnMySql:NumberSql( "QTD" )
   cnMySql:CloseRecordset()

   WITH OBJECT cnMySql
      :QueryCreate()
      :QueryAdd( "SFCONSULTAR", "N" )
      :QueryAdd( "SFXML", mXml )
      :QueryAdd( "SFINFALT", LogInfo() )
      IF mQtd == 0
         :QueryAdd( "SFUF",     cUf )
         :QueryAdd( "SFCNPJ",   cCnpj )
         :QueryAdd( "SFINFINC", LogInfo() )
         :QueryExecuteInsert( "JPCADFAZ" )
      ELSE
         :QueryExecuteUpdate( "JPCADFAZ", "SFCNPJ=" + StringSql( cCnpj ) + " AND SFUF=" + StringSql( cUF ) )
      ENDIF
   END WITH

   RETURN mXml