RETURN .F.
cArq = GETFILE()

SELECT * FROM &cArq INTO CURSOR CDPRODUTOS
SET STEP ON 

SELECT CDPRODUTOS
GO TOP IN CDPRODUTOS
DO WHILE!EOF("CDPRODUTOS")
   WAIT WINDOW "AJUSTANDO PRODUTOS: " + ALLTRIM(STR(RECNO())) + "/" + ALLTRIM(STR(RECCOUNT())) NOWAIT
   
   PUBLIC ARRAY [cIns]
   DIMENSION cIns[14]
   
   cCodbar  = PADL(ALLTRIM(CDPRODUTOS.BARRA),16,'0')
   
   cTipoPisCof = CDPRODUTOS.PIS_COFINS
                  
   nSelect = "Update Tslc003 Set Seq052 = ?cTipoPisCof Where Codbar = ?cCodbar "
   TSEXEC("T",nSelect,"TMP_INS")
   
   SELECT CDPRODUTOS
   SKIP IN CDPRODUTOS
   LOOP
   
ENDDO
