Boa tarde.
Iiiiisso. No CD do VFP 7 tem, na parte onde crio um componente COM que trata este tipo de processamento. ;)
O exemplo que está no CD do VFP7, e que está me ajudando muito é este:
Procedure Salvar(xmlAcoes as String) as Boolean
lnRegUPD = Occurs("<updg:after>", xmlAcoes)
For lnReg = 1 to lnRegUPD
lcRegistro = StrExtract(xmlAcoes, "<updg:after>", "</updg:after>", lnReg)
lcCodigo = StrExtract(lcRegistro, "<i_codigo>", "</i_codigo>")
lcAcao = StrExtract(lcRegistro, "<c_acao>", "</c_acao>")
lcAbreviac = StrExtract(lcRegistro, "<c_abreviac>", "</c_abreviac>")
Update "c:\temp\acoes" ;
set c_acao = Iif(Empty(lcAcao), c_acao, lcAcao), ;
c_abreviac = Iif(Empty(lcAbreviac), c_abreviac, lcAbreviac) ;
where i_codigo = Val(lcCodigo)
EndFor
Return .t.
EndProc
