...
Dim ResgistroEditado AS Map
RegistroEditado = Registros.Get(0)
...
Dim inp As ABMModalSheet
inp = page.ModalSheet("inp")
Dim InputAux As ABMInput
Dim CamposModificados As Map
CamposModificados.Initialize
Dim i As Int
For i = 0 To RegistroEditado.Size -1
'Log(RegistroEditado.GetKeyAt(i) & " - " & RegistroEditado.GetValueAt(i))
Try
InputAux = inp.Content.Component("inp"&RegistroEditado.GetKeyAt(i))
Catch
Log("No encontrado")
End Try
If (InputAux <> Null) Then
If ABMShared.NullToStr_(RegistroEditado.GetValueAt(i)) <> InputAux.Text Then
Log("Detectada diferencia: " & InputAux.Text)
CamposModificados.Put(RegistroEditado.GetKeyAt(i), InputAux.Text)
End If
End If
Next
If CamposModificados.Size > 0 Then ' Hubo campos modificados
Dim CamposClave As Map
CamposClave.Initialize
CamposClave.Put("codigo", RegistroEditado.Get("codigo"))
ModuloDatos.SQLUpdateRecord2(ModuloDatos.Sql1, "Cli$E", CamposModificados, CamposClave, ws)
End If