Eu fiz um teste com o meu código do jeito que ta, e funcionou no A3 tbm ! na máquina do financeiro
E o que teve de diferente? alguma coisa que mencionei?
Nota: Eu apenas fui organizando, e na organização algumas coisas chamaram a atenção e postei.
Moderador: Moderadores
Eu fiz um teste com o meu código do jeito que ta, e funcionou no A3 tbm ! na máquina do financeiro
está bem mais bonito o código assim !
METHOD MDFeStatusServico( cUF, cCertificado, cAmbiente ) CLASS SefazClass
::Setup( cUF, cCertificado, cAmbiente, WS_MDFE_STATUSSERVICO )
::cSoapVersion := "1.00"
::cXmlEnvio := [<consStatServMDFe versao="] + ::cSoapVersion + [" xmlns="http://www.portalfiscal.inf.br/mdfe">]
::cXmlEnvio += XmlTag( "tpAmb", ::cAmbiente )
::cXmlEnvio += XmlTag( "cUF", ::UFCodigo( ::cUF ) )
::cXmlEnvio += XmlTag( "xServ", "STATUS" )
::cXmlEnvio += [</consStatServMDFe>]
::XmlSoapPost()
RETURN ::cXmlRetorno
JoséQuintas escreveu:Um primeiro protótipo.
https://github.com/JoseQuintas/nfse-sp-eduardo/blob/master/NFSEClass.prg
STATIC FUNCTION AssinaAjustaInformacao( cTxtXml, cXmlTagInicial, cXmlTagFinal, cRetorno, lComURI )
LOCAL aDelimitadores, nPos, nPosIni, nPosFim, cURI
aDelimitadores := { ;
{ "<enviMDFe", "</MDFe></enviMDFe>" }, ;
{ "<eventoMDFe", "</eventoMDFe>" }, ;
{ "<eventoCTe", "</eventoCTe>" }, ;
{ "<infMDFe", "</MDFe>" }, ;
{ "<infCte", "</CTe>" }, ;
{ "<infNFe", "</NFe>" }, ;
{ "<infDPEC", "</envDPEC>" }, ;
{ "<infInut", "<inutNFe>" }, ;
{ "<infCanc", "</cancNFe>" }, ;
{ "<infInut", "</inutNFe>" }, ;
{ "<infInut", "</inutCTe>" }, ;
{ "<infEvento", "</evento>" }, ;
{ "<evtInfoEmpregador", "</eSocial>" }, ;
{ "<PedidoEnvioLoteRPS", "</RPS>" }, ;
{ "<PedidoEnvioRPS", "</RPS>" }, ;
{ "<infPedidoCancelamento", "</Pedido>" }, ; // NFSE ABRASF Cancelamento
{ "<LoteRps", "</EnviarLoteRpsEnvio>" }, ; // NFSE ABRASF Lote
{ "<infRps", "</Rps>" } } // NFSE ABRASF RPS
FUNCTION CapicomAssinaXml( cTxtXml, cCertCN, lRemoveAnterior, cPassword, lComURI )
STATIC FUNCTION AssinaBlocoAssinatura( cURI, lComURI )
LOCAL cSignatureNode := ""
IF lComURI
cURI := "#" + cURI
ENDIF
FUNCTION CapicomAssinaXml( cTxtXml, cCertCN, lRemoveAnterior, cPassword, lComURI )
cXmlNota := "xxxxxx"
cXmlAssinado := ze_assinaXml( cXmlNota, "nomecertificado", .T.,"senha se precisar" )
cXmlLote := "xxxx" + cXmlAssinado + "xxxx"
cXmlTransmite := ze_AssinaXml( cXmlNota, "nomecertificado", .F., "senha se precisar", .F. )
Usuários vendo este fórum: Nenhum usuário registrado online e 5 visitantes