Private Sub SCGrid1_TextChange(ByVal Row As Integer, ByVal Col As Integer)
        blnFieldChanged = True
ver cdigo frmLiberaEmbarcaciones-validateRow.txt
    validateRow
    SCGrid1.Refresh
    initVariables
End Sub
