tsexec("t","SELECT CODBAR,SUM(1) AS TOTAL FROM Tslc003 GROUP BY CODBAR ","TMP_P")
SELECT * FROM TMP_P WHERE TOTAL > 1 INTO CURSOR TMP2

SELECT TMP2
GO TOP IN TMP2
DO WHILE ! EOF("TMP2")
   
   cCodBar = TMP2.CODBAR
   nSelect = "SELECT CODIGO FROM TSLC003 WHERE CODBAR = ?cCodBar "
   TSEXEC("T",nSelect,"TMP_COD")

   SELECT TMP_COD
   GO BOTTOM
   cCodigo = TMP_COD.CODIGO
   cCodBar2 = "9" + SUBSTR(TMP2.CODBAR,2,15)
   nSelect = "UPDATE Tslc003 SET CODBAR = ?cCodBar2 WHERE CODIGO = ?cCodigo "
   TSEXEC("T",nSelect,"TMP_UPD")

   SKIP IN TMP2
   LOOP

ENDDO

MESSAGEBOX("OK")