SEGUNDO UPDATE PARA EL CODIGO DE TIMBRADO CON TIMBREFISCALMX
Esos de TimbreFiscalMx siguen haciendo de las suyas con los namespace, ahora el "Error Response" tiene un namespace de "ns15"
Solo para justificar que ES MUY MALO LO QUE ESTAN HACIENDO les comento, que precisamente el namespace sirve para diferenciar dos datos con el mismo nombre, por ejemplo si tuvieran :
Tabla="esto es una tabla de madera"
Tabla="esto es una tabla de multiplicar"
Como diferenciarian una de otra? muy simple, con un prefijo como en :
materiales:Tabla="esto es una tabla de madera"
matematicas:Tabla="esto es una tabla de multiplicar"
PERO SI TimbreFiscalMx un dia "me dice" que el error viene como
ns13:Error="No es un emisor valido"
y al "siguiente dia" (como hoy, que recibi una nota de un forista) me envia el error como
ns15:Error="No es un emisor valido"
POR DEFINICION ns13:Error NO TIENE NADA QUE VER CON ns15:Error, son dos objetos totalmente distintos !!!
En fin, despues de este choro mareador.......unidad TimbreFiscalMx, funcion Interpretamensaje, linea (aprox) 108, por favor quiten TODOS los namespace siguientes (ya estaban definidos quitar algunos, pa' no fallarle vamos a quitar del 1 al 20) :
Código: Seleccionar todo
else
begin
Msg := AnsiReplaceStr(Msg,'<S:','<'); Msg := AnsiReplaceStr(Msg,'</S:','</');
Msg := AnsiReplaceStr(Msg,'<ns1:','<'); Msg := AnsiReplaceStr(Msg,'</ns1:','</');
Msg := AnsiReplaceStr(Msg,'<ns2:','<'); Msg := AnsiReplaceStr(Msg,'</ns2:','</');
Msg := AnsiReplaceStr(Msg,'<ns3:','<'); Msg := AnsiReplaceStr(Msg,'</ns3:','</');
Msg := AnsiReplaceStr(Msg,'<ns4:','<'); Msg := AnsiReplaceStr(Msg,'</ns4:','</');
Msg := AnsiReplaceStr(Msg,'<ns5:','<'); Msg := AnsiReplaceStr(Msg,'</ns5:','</');
Msg := AnsiReplaceStr(Msg,'<ns6:','<'); Msg := AnsiReplaceStr(Msg,'</ns6:','</');
Msg := AnsiReplaceStr(Msg,'<ns7:','<'); Msg := AnsiReplaceStr(Msg,'</ns7:','</');
Msg := AnsiReplaceStr(Msg,'<ns8:','<'); Msg := AnsiReplaceStr(Msg,'</ns8:','</');
Msg := AnsiReplaceStr(Msg,'<ns9:','<'); Msg := AnsiReplaceStr(Msg,'</ns9:','</');
Msg := AnsiReplaceStr(Msg,'<ns10:','<'); Msg := AnsiReplaceStr(Msg,'</ns10:','</');
Msg := AnsiReplaceStr(Msg,'<ns11:','<'); Msg := AnsiReplaceStr(Msg,'</ns11:','</');
Msg := AnsiReplaceStr(Msg,'<ns12:','<'); Msg := AnsiReplaceStr(Msg,'</ns12:','</');
Msg := AnsiReplaceStr(Msg,'<ns13:','<'); Msg := AnsiReplaceStr(Msg,'</ns13:','</');
Msg := AnsiReplaceStr(Msg,'<ns14:','<'); Msg := AnsiReplaceStr(Msg,'</ns14:','</');
Msg := AnsiReplaceStr(Msg,'<ns15:','<'); Msg := AnsiReplaceStr(Msg,'</ns15:','</');
Msg := AnsiReplaceStr(Msg,'<ns16:','<'); Msg := AnsiReplaceStr(Msg,'</ns16:','</');
Msg := AnsiReplaceStr(Msg,'<ns17:','<'); Msg := AnsiReplaceStr(Msg,'</ns17:','</');
Msg := AnsiReplaceStr(Msg,'<ns18:','<'); Msg := AnsiReplaceStr(Msg,'</ns18:','</');
Msg := AnsiReplaceStr(Msg,'<ns19:','<'); Msg := AnsiReplaceStr(Msg,'</ns19:','</');
Msg := AnsiReplaceStr(Msg,'<ns20:','<'); Msg := AnsiReplaceStr(Msg,'</ns20:','</');
XMLDoc := TXMLDocument.Create(Application);
XMLDoc.XML.Text := Msg;
haha pero creo que lo de los namespace no tiene que ver, puesto que entre ellos se conectan por ip de manera local.