45 lines
2.0 KiB
Plaintext
45 lines
2.0 KiB
Plaintext
FUNCTION borra_info()
|
|
DEFINE l_opc,xtipo_inventario,msg STRING,
|
|
cuenta_conteo INT
|
|
OPEN WINDOW w15 WITH FORM "descarga"
|
|
|
|
INPUT BY NAME xtipo_inventario
|
|
AFTER INPUT
|
|
IF int_flag THEN
|
|
LET int_flag = FALSE
|
|
EXIT INPUT
|
|
END IF
|
|
LET l_opc = fgl_winquestion("Borrar","Desea borrar conteo?","NO","NO|YES","QUESTION",0)
|
|
CALL fgl_winmessage("INFO",l_opc,"INFO")
|
|
IF l_opc = "YES" THEN
|
|
|
|
IF xtipo_inventario = "PRODUCTOS TERMINADOS" THEN
|
|
SELECT COUNT(*) INTO cuenta_conteo FROM iptb00012
|
|
|
|
DELETE FROM iptb00012
|
|
LET msg=SFMT("Registros Eliminados %1",cuenta_conteo)
|
|
CALL fgl_winmessage("INFO",msg,"INFO")
|
|
SELECT COUNT(*) INTO cuenta_conteo FROM desglose
|
|
DELETE FROM desglose
|
|
LET msg=SFMT("Registros Desglose %1 Eliminados ",cuenta_conteo)
|
|
CALL fgl_winmessage("INFO",msg,"INFO")
|
|
EXIT INPUT
|
|
END IF
|
|
IF xtipo_inventario = "MATERIA PRIMA" THEN
|
|
SELECT COUNT(*) INTO cuenta_conteo FROM intb00012
|
|
DELETE FROM intb00012
|
|
LET msg=SFMT("Registros Eliminados %1",cuenta_conteo)
|
|
CALL fgl_winmessage("INFO",msg,"INFO")
|
|
EXIT INPUT
|
|
END IF
|
|
IF xtipo_inventario = "REPUESTOS" THEN
|
|
SELECT COUNT(*) INTO cuenta_conteo FROM intb00012
|
|
DELETE FROM irtb00012
|
|
LET msg=SFMT("Registros Eliminados %1",cuenta_conteo)
|
|
CALL fgl_winmessage("INFO",msg,"INFO")
|
|
EXIT INPUT
|
|
END IF
|
|
END IF
|
|
END INPUT
|
|
CLOSE WINDOW w15
|
|
END FUNCTION |