Código Delphi [-]EDIT37.Text:=Q_DET_APERTURA.FieldValues['TIPO'];//este campo es tipo varchar y su valor es CAJA IF NOT (EDIT37.Text.Trim='CAJA') THEN BEGIN SHOWMESSAGE('NO SE PUEDE EDITAR'); END;
EDIT37.Text:=Q_DET_APERTURA.FieldValues['TIPO'];//este campo es tipo varchar y su valor es CAJA IF NOT (EDIT37.Text.Trim='CAJA') THEN BEGIN SHOWMESSAGE('NO SE PUEDE EDITAR'); END;