× Linguagem de Programação ADVPL

Perguntas Validar XML

Mais
11 anos 9 meses atrás #10422 por pcassio23
Validar XML foi criado por pcassio23
Boa noite,

Eu estou desenvolvendo uma rotina para importação do XML, na verdade modificando uma que peguei aqui no fórum conforme minha ncecessidade.
Alguém tem ou já fez uma rotina que valide o xml de entrada junto à receita federal, para verificar se a nota está autorizada, cancelada, etc?

Se alguém puder enviar para eu ter uma ideia de como fazer, ficarei agradecido.

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 9 meses atrás #10456 por lalberto
Respondido por lalberto no tópico Validar XML
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³COMMI010 ºAutor ³Microsiga º Data ³ 01/30/12 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc. ³ º±±
±±º ³ º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso ³ AP º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
Static Function ConsNFeChave(cChaveNFe,cIdEnt,lWeb)

Local cURL := PadR(GetNewPar("MV_SPEDURL","http://"),250)
Local cMensagem:= ""
Local oWS
Local lErro := .F.


If ValType(lWeb) == 'U'
lWeb := .F.
EndIf

oWs:= WsNFeSBra():New()
oWs:cUserToken := "TOTVS"
oWs:cID_ENT := cIdEnt
ows:cCHVNFE := cChaveNFe
oWs:_URL := AllTrim(cURL)+"/NFeSBRA.apw"

If oWs:ConsultaChaveNFE()
cMensagem := ""
If !Empty(oWs:oWSCONSULTACHAVENFERESULT:cVERSAO)
cMensagem += "Versão da Mensagem"+": "+oWs:oWSCONSULTACHAVENFERESULT:cVERSAO+CRLF
EndIf
cMensagem += "Ambiente"+": "+IIf(oWs:oWSCONSULTACHAVENFERESULT:nAMBIENTE==1,"Produção","Homologação")+CRLF //"Produção"###"Homologação"
cMensagem += "Cod.Ret.NFe"+": "+oWs:oWSCONSULTACHAVENFERESULT:cCODRETNFE+CRLF
cMensagem += "Msg.Ret.NFe"+": "+oWs:oWSCONSULTACHAVENFERESULT:cMSGRETNFE+CRLF
If !Empty(oWs:oWSCONSULTACHAVENFERESULT:cPROTOCOLO)
cMensagem += "Protocolo"+": "+oWs:oWSCONSULTACHAVENFERESULT:cPROTOCOLO+CRLF
EndIf
//QUANDO NAO ESTIVER OK NAO IMPORTA, CODIGO DIFERENTE DE 100
If oWs:oWSCONSULTACHAVENFERESULT:cCODRETNFE # "100"
lErro := .T.
EndIf

If !lWeb
Aviso("Consulta NF",cMensagem,{"Ok"},3)
Else
Return({lErro,cMensagem})
EndIf
Else
Aviso("SPED",IIf(Empty(GetWscError(3)),GetWscError(1),GetWscError(3)),{"Ok"},3)
EndIf
Return(lErro)

Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 9 meses atrás #10461 por pcassio23
Respondido por pcassio23 no tópico Validar XML
Muito Obrigado!!!!

Não tenho palavras pra te agradecer Luiz.

Desejo todo sucesso em dobro.

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 9 meses atrás #10462 por lalberto
Respondido por lalberto no tópico Validar XML
Blz Meu Brother, estou aqui pra isso.

Abraços.

Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.116 segundos
Joomla templates by a4joomla