Benedito
26-Jun-2023, 09:06 AM
No Windows, faço assim:
Function ConfirmDeleteHeader Returns Boolean
Boolean bFail
Get Confirm "Delete Entire Header and all detail?" to bFail
Function_Return bFail
End_Function
// Only confirm on the saving of new records
Function ConfirmSaveHeader Returns Boolean
Boolean bNoSave bHasRecord
Handle hoSrvr
Get Server to hoSrvr
Get HasRecord of hoSrvr to bHasRecord
If not bHasRecord Begin
Get Confirm "Save this NEW header?" to bNoSave
End
Function_Return bNoSave
End_Function
// Define alternate confirmation Messages
Set Verify_Save_MSG to (RefFunc(ConfirmSaveHeader))
Set Verify_Delete_MSG to (RefFunc(ConfirmDeleteHeader))
// Saves in header should not clear the view
Set Auto_Clear_Deo_State to False
Como posso ter esta mesma função na cWebGrid?
Function ConfirmDeleteHeader Returns Boolean
Boolean bFail
Get Confirm "Delete Entire Header and all detail?" to bFail
Function_Return bFail
End_Function
// Only confirm on the saving of new records
Function ConfirmSaveHeader Returns Boolean
Boolean bNoSave bHasRecord
Handle hoSrvr
Get Server to hoSrvr
Get HasRecord of hoSrvr to bHasRecord
If not bHasRecord Begin
Get Confirm "Save this NEW header?" to bNoSave
End
Function_Return bNoSave
End_Function
// Define alternate confirmation Messages
Set Verify_Save_MSG to (RefFunc(ConfirmSaveHeader))
Set Verify_Delete_MSG to (RefFunc(ConfirmDeleteHeader))
// Saves in header should not clear the view
Set Auto_Clear_Deo_State to False
Como posso ter esta mesma função na cWebGrid?