GNRE juntamente com a NFE

[runner]

Olá, Amigos.


Estou analisando todo o processo da geração da GNRE ( Guia Nacional de Recolhimento de Tributos Estaduais ), e na pratica o processo e interligado a geração da NFe em alguns casos, como os estados já estão disponibilizando o processo com webservice, gostaria de saber se alguém já esta mexendo com isso e se tem algum material para complementar.

[sygecom]

Olá, Amigos.


Estou analisando todo o processo da geração da GNRE ( Guia Nacional de Recolhimento de Tributos Estaduais ), e na pratica o processo e interligado a geração da NFe em alguns casos, como os estados já estão disponibilizando o processo com webservice, gostaria de saber se alguém já esta mexendo com isso e se tem algum material para complementar.

Runner, quais estados ? achei apenas do PE e RJ

[pedrocordista]

Eu estou desenvolvendo o projeto GNRE, para cada estado existe suas regras, mas eu empaquei num erro
que não consigo descobrir, nem por reza braba

Código: Selecionar todos

 TRY
          signedKey := xmldsig:sign(dsigKey, 2) // <---- se eu tiro o TRY surge este erro
                                                                   //E/10-7 Erro nos parƒmetros: SIGN [ERRO DOS -2147352562 ]
      CATCH
                  aRetorno[1 ]       := .F.
        MSGPOSTIT("Erro    : ao criar da chave do CSP.",;
            "Consulta as Regras Estaduais","LOGO_PGL",nil,RED,1000)
        oDomDoc:= nil
        XMLDSIG:= NIL
        RETURN(aRetorno)

       END


    if  (signedKey <> nil)
        XMLAssinado := oDOMDoc:xml
        XMLAssinado := STRTRAN( XMLAssinado, CHR(10), '' )
        XMLAssinado := STRTRAN( XMLAssinado, CHR(13), '' )
        PosIni := AT('<SignatureValue>',XMLAssinado)+len('<SignatureValue>')
        XMLAssinado := SUBS(XMLAssinado,1,PosIni-1)+;
        STRTRAN( SUBS(XMLAssinado,PosIni,len(XMLAssinado)), ' ', '' )
        PosIni := AT('<X509Certificate>',XMLAssinado)-1
        nP = AT('<X509Certificate>',XMLAssinado)
        nResult := 0
        DO WHILE nP<>0
            nResult := nP
            nP = AT('<X509Certificate>',XMLAssinado)  //,nP+1)
        ENDDO
        PosFim := nResult
*      MEMOWRIT('35canc5.xml',XMLAssinado,.F.)
        XMLAssinado := SUBS(XMLAssinado,1,PosIni)+;
                         SUBS(XMLAssinado,PosFim,len(XMLAssinado))
*      MEMOWRIT('35canc6.xml',XMLAssinado,.F.)

Obrigado

Harbour+minigui(2.3.0)+bcc5