DRAG AND DROP

  // EN LA VENTANA

TABLE_Fortaleza..DndTarget = dndInactive

TABLE_Fortaleza..DndSource = dndProgram

TABLE_FichaFortaleza..DndTarget = dndProgram

TABLE_FichaFortaleza..DndSource = dndInactive

DnDEvent("Fortaleza_Suelta", "Table_FichaFortaleza", dndDragLeave)

DnDEvent("Fortaleza_Toma", "Table_Fortaleza", dndBeginDrag)

 

 // PROCEDIMIENTOS LOCALES

PROCEDURE Fortaleza_Toma()

gxFortalezaID = TABLE_Fortaleza.COL_FortalezaID

RETURN

PROCEDURE Fortaleza_Suelta()

HReset(FichaFortaleza)

FichaFortaleza.IdFicha = gsIdFicha

FichaFortaleza.FortalezaID = gxFortalezaID

HAdd(FichaFortaleza)

TableDisplay(TABLE_FichaFortaleza)

RETURN