Hola
Mi consulta es la siguiente tengo un grid con una base donde estoy haciendo unas pruebas cuando doy de alta con ALT-D un registro con las mismas caracteristicas de otro que ya existe no hay verificación alguna y lo toma igualmente.
Mi pregunta es: tengo que verificar yo si existe el registro o el Grid lo hace automatico?
Adjunto el codigo
Gracias
LA BASE ESTA INDEXADA POR CODE
Hello
My query is this I have a grid with a base where I am doing some tests when I register with ALT-D a record with the same characteristics of another that already exists there is no verification whatsoever and just take it.
My question is: I have to check myself if there is a record or the Grid makes it automatic?
Below is the code
Thanks
THE BASE FOR THIS CODE INDEX
Function Main
REQUEST DBFCDX , DBFFPT
RDDSETDEFAULT( "DBFCDX" )
SET DELETE ON
SET BROWSESYNC ON
* Grid Column Controls Definitions
aCtrl_1 := {'TEXTBOX','NUMERIC','9999999999'}
aCtrl_2 := {'TEXTBOX','CHARACTER'}
aCtrl_3 := {'TEXTBOX','CHARACTER'}
aCtrl_4 := {'DATEPICKER','UPDOWN'}
aCtrl_5 := { 'CHECKBOX' , 'Yes' , 'No' }
aCtrl_6 := { 'EDITBOX' }
IF FILE("Test.DBF") == .F.
msginfo("No existe la Base de Datos TEST","ERROR apertura")
Return Nil
ENDIF
IF FILE("TEST.CDX") == .F.
USE TEST NEW
INDEX ON CODE TAG CODIGOTEST TO TEST
CLOSE ALL
ENDIF
USE TEST NEW
SET ORDER TO TAG CODIGOTEST
Load Window Main
Main.Center
Main.Activate
Return
DEFINE GRID Grid_1
ROW 80
COL 40
WIDTH 680
HEIGHT 220
ITEMS { {""} }
VALUE { 1 , 1 }
WIDTHS {140,140,140,100,100,110}
HEADERS {'Código','Nombre','Apellido','F. Nacimiento','Casado','Varios'}
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
ONCHANGE Nil
ONGOTFOCUS Nil
ONLOSTFOCUS Nil
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
ONDBLCLICK Nil
ONHEADCLICK Nil
ONQUERYDATA Nil
MULTISELECT .F.
ALLOWEDIT .T.
VIRTUAL .F.
DYNAMICBACKCOLOR Nil
DYNAMICFORECOLOR Nil
COLUMNWHEN Nil
COLUMNVALID Nil
COLUMNCONTROLS { aCtrl_1 , aCtrl_2 , aCtrl_3 , aCtrl_4 , aCtrl_5 , aCtrl_6 }
SHOWHEADERS .T.
CELLNAVIGATION .F.
NOLINES .F.
HELPID Nil
IMAGE Nil
JUSTIFY Nil
ITEMCOUNT Nil
BACKCOLOR NIL
FONTCOLOR NIL
HEADERIMAGES Nil
ROWSOURCE "TEST"
COLUMNFIELDS { 'Code' , 'First' , 'Last' , 'Birth' , 'Married' , 'Bio' }
ALLOWAPPEND .T.
ALLOWDELETE .T.
BUFFERED .F.
DYNAMICDISPLAY Nil
ONSAVE Nil
LOCKCOLUMNS 0
END GRID
Consulta GRID HMG 3.0.34
Moderator: Rathinagiri