Hola amigos
Como se pone PICTURE sin usar TRANSFOM ni oCol:cEditPicture:= "@!"
en: oCol:bStrData := { || DC_NAME }
Otra, en esta validación siempre me sale Codigo EXISTE / VACIO, al parecer graba el dato y luego lo busca no se donde esta la falla.
Gracias por la ayuda
Saludos,
Adhemar
Como se pone PICTURE sin usar TRANSFOM ni oCol:cEditPicture:= "@!"
en: oCol:bStrData := { || DC_NAME }
Otra, en esta validación siempre me sale Codigo EXISTE / VACIO, al parecer graba el dato y luego lo busca no se donde esta la falla.
oCol:=oBrw:AddCol()
oCol:cEditPicture:= "@9 9999"
oCol:bStrData:= { || DCODE }
oCol:nHeadStrAlign := AL_CENTER
oCol:cHeader:= "COD."
oCol:nEditType := EDIT_GET
oCol:nWidth:=38
oCol:bOnPostEdit := {|o, v, n | DEPCODE->DCODE:=v }
oCol:bEditValid:={ | o | nOldRec:= DEPCODE->( Recno() ), lExite:= DEPCODE->( dBSeek( o:value() ) ),DEPCODE->( dBGoTo( nOldRec ) ), ;
iif( lExiste .or. EMPTY( ALLTRIM( v:value() ) ) , (MsgStop( "Codigo EXISTE / VACIO","Error..." ),.F.),.T. ) }Gracias por la ayuda
Saludos,
Adhemar
Saludos,
Adhemar C.
Adhemar C.