Power Builder - Impedir que se repitan mis nro de serie

String ls_codigo

Long ll_fila

this.AcceptText()

IF dwo.name = "serie" THEN

     ls_codigo = data

     ll_fila = dw_almacen.Find("serie = '"+ls_codigo+"'",1,dw_almacen.RowCount())

     IF ll_fila > 0 THEN

          Messagebox("Aviso", "El registro que ha digitado ya existe",Question!)

          RETURN 1

     END IF

END IF

Long ll_cnt

String ls_codigo

this.AcceptText()

IF dwo.name = "serie" THEN

     ls_codigo = data

     SELECT  count(codigo) INTO :ll_cnt FROM tabla WHERE codigo = :ls_codigo;

     IF ll_cnt > 0 THEN

          Messagebox("Aviso", "El registro que ha digitado ya existe",Question!)

          RETURN 1

     END IF

END IF