Power Builder - Obtener datos después de cambiarlos...resuelto y aqui esta el código

dwItemStatus dwIstatus

long nUpperBound,nNext

string sTag,sValorOriginal,sNuevoValor

string sColType

nUpperBound = UpperBound(asColumnas)

for nNext = 1 to nUpperBound

	dwIstatus = GetItemStatus(asDataWindow,1,asColumnas[nNext], Primary!)

	sColType = Lower(Left(asDataWindow.Describe(asColumnas[ nNext ]+ ".ColType"),4))

		if dwIstatus = DataModified! then

			sTag = Describe(asDataWindow,asColumnas[nNext]+'.tag')

			Choose case sColType

				case 'long'

					sValorOriginal = String(GetItemNumber (asDataWindow,1,asColumnas[nNext], Primary!, True))

					sNuevoValor = String(GetItemNumber (asDataWindow,1,asColumnas[nNext], Primary!, False))

				case 'char'

					sValorOriginal = GetItemString (asDataWindow,1,asColumnas[nNext], Primary!, True)

					sNuevoValor = GetItemString (asDataWindow,1,asColumnas[nNext], Primary!, False)

				case 'deci'

					sValorOriginal = String(GetItemDecimal (asDataWindow,1,asColumnas[nNext], Primary!, True))

					sNuevoValor = String(GetItemDecimal (asDataWindow,1,asColumnas[nNext], Primary!, False))

				case 'date'

					sValorOriginal = String(GetItemDateTime (asDataWindow,1,asColumnas[nNext], Primary!, True))

					sNuevoValor = String(GetItemDateTime (asDataWindow,1,asColumnas[nNext], Primary!, False))

			end choose

			if sTag <> '?' then f_Registra_Modificaciones(asModulo,sTag,sValorOriginal,sNuevoValor)

		end if

next