IF MESSAGEBOX("Confirma Zerar Fabricante   ",36,"Zerar") = 6

   cCodFab = 1
   nSelect = "SELECT CODIGO FROM Tslc003 WHERE CODFAB = ?cCodFab "
   TSEXEC("T",nSelect,"TMP_003")
   
   SELECT TMP_003
   GO TOP IN TMP_003
   DO WHILE ! EOF("TMP_003")
   
      cCodProd = TMP_003.CODIGO
      nSelect = "UPDATE Tslc003_es SET QTD = 0 WHERE COD003 = ?cCodProd AND COD008A = ?cCodEmp "
      TSEXEC("T",nSelect,"TMP_UPD")
   
      SKIP IN TMP_003
      LOOP

   ENDDO

   MESSAGEBOX("OK")

ENDIF 