Power Builder - setitemstatus

dw_1.Insert(1)

dw_1.Object.Llave[1]='1'

dw_2.Object.Campo1[1]='INFORMACION'

dw_1.SetItemStatus(1, 'Llave', PRIMARY!, NotModified!)

dw_1.SetItemStatus(1, 'Campo1', PRIMARY!, NotModified!)

dw_1.SetItemStatus(1, 0, PRIMARY!, Modified!)

$PBExportHeader$f_recordgetitemstatus.srf

global type f_recordgetitemstatus from function_object

end type

forward prototypes

global subroutine f_recordgetitemstatus (ref datawindow adw_1, integer il_registro)

end prototypes

global subroutine f_recordgetitemstatus (ref datawindow adw_1, integer il_registro);Integer li_1

For li_1=1 to Integer(adw_1.object.DataWindow.Column.Count)

	Messagebox('Información', 'Campo('+String(adw_1.Describe('#'+String(li_1)+'.Name'))+') ItSt: '+String(f_GetItemStatusName(adw_1.GetItemStatus(il_registro, li_1, PRIMARY!))))

Next

end subroutine

$PBExportHeader$f_setitemstatus.srf

global type f_setitemstatus from function_object

end type

forward prototypes

global function integer f_setitemstatus (ref datawindow adw_referencia, integer ai_fila, string as_columna, dwbuffer ab_buffer, dwitemstatus adw_status)

end prototypes

global function integer f_setitemstatus (ref datawindow adw_referencia, integer ai_fila, string as_columna, dwbuffer ab_buffer, dwitemstatus adw_status);adw_referencia.SetItemStatus(ai_fila, as_columna, ab_buffer, DataModified!)

RETURN adw_referencia.SetItemStatus(ai_fila, as_columna, ab_buffer, adw_status)

end function