Como se compila o no hay necesidad

Tengo una duda y es que cuando modifico un formulario de vfp 7 es necesario guardar y compilar o solo guardado ya función correctamente.

El problema también es que un día abrí un archivo .scx y cuando quise correr el programa me dio errores y no se que se modifico.ademas nunca guarde cambios ni nada.

1 respuesta

Respuesta
1

Haber explicame un poco mas sobre tu pregunta, tal vez te puedo ayudar!

lo que pasa es que en java cuando se modifica algo se necesita compilar y luego correr el programa. quería saber si en visual fox pro es igual.

-------------------------------------------------------------------------------------------------------------------

y tengo un error: Alias 'XPROD' not found. el formulario es el siguiente:

kdfech=thisform.txtdfech.Value
khfech=thisform.txthfech.Value
ksalida=thisform.option.value
kubica = thisform.txtubica.Value
fparas = "N"
SELECT 0
CREATE CURSOR xparas ( item c(6), ditem c(50), horas n(10,2), causa n(3), dcausa c(20),fecha d)
SELECT xprod
GO TOP
APPEND FROM plan FOR !DELETED()
DELETE ALL FOR !BETWEEN(fecha,kdfech,khfech)
SELECT 0
CREATE CURSOR xrprod ( item c(6), ditem c(50), capa n(12), cant n(10,2), npers n(5),cantpr n(10,2),;
fecha d, causa n(6), dcausa c(20),días n(5), porc n(10,2), porct n(10,2),;
factor n(10,2),prodh n(10,2), horasp n(10,2))
CREATE CURSOR xitem ( codi c(6), dprod c(50), unid c(10), capa n(6,2), linea c(3), prodh n(5,2), npers n(10))
APPEND FROM prod FOR !DELETED()
SUSP
SELECT Xitem
go top
DO WHILE .t.
IF EOF()
exit
ENDIF
kitem = ALLTRIM(xitem.CODI)
SELECT xprod
SUM ALL cant FOR kitem = ALLTRIM(item) TO kcant
SUM ALL cantpr FOR kitem = ALLTRIM(item) TO kcantpr
count TO kdias FOR kitem = ALLTRIM(item)
SUM ALL npers FOR kitem = ALLTRIM(item) TO knpers
IF kcant> 0
kporc = kcantpr/kcant
ELSE
kporc = 0
endif
kfactor = kdias * knpers
SELECT xrprod
APPEND BLANK
replace item WITH kitem,;
cant WITH kcant,;
cantpr with kcantpr,;
días with kdias,;
porc WITH kporc,;
FACTOR WITH KFACTOR
SELECT Xitem
skip
ENDDO
*SELECT 0
*DO USE WITH "PROD ORDE K1"
SELECT XRPROD
SUM ALL factor TO ktfactor
REPLACE ALL porct WITH (porc*factor)/ktfactor for ktfactor >0
SELECT 0
DO USE WITH "prod ORDE K1"
SELECT xRPROD
SET RELATION TO item INTO prod
REPLACE ALL ditem WITH prod.dprod
REPLACE ALL capa WITH prod.capa
REPLACE ALL npers WITH prod.npers
REPLACE ALL prodh WITH prod.prodh
SELECT prod
USE
sele xrprod
IF thisform.chECK1.Value = 1
kthorasp1 = 0
kthorasp2 = 0
kthorasp3 = 0
fparas = "S"
SELECT 0
CREATE CURSOR xparas ( fecha d, item c(6), ditem c(30),horas n(4,2), causa c(50),detalle c(100))
APPEND FROM paras FOR !DELETED()
DELETE ALL FOR !BETWEEN(fecha,kdfech,khfech)
SELECT xrprod
INDEX ON item TAG k1
SET ORDER TO k1
GO top
DO WHILE .t.
IF EOF()
exit
ENDIF
kitem = ALLTRIM(xrprod.item)
SELECT xparas
SUM ALL HORAS FOR kitem = ALLTRIM(item).and.causa = "01" TO khorasp1
SUM ALL HORAS FOR kitem = ALLTRIM(item).and.causa = "02" TO khorasp2
SUM ALL HORAS FOR kitem = ALLTRIM(item).and.causa = "02" TO khorasp3
SELECT xrprod
SEEK(kitem)
IF FOUND()
replace horasp WITH Khorasp1
kthorasp1 = kthorasp1 + khorasp1
kthorasp2 = kthorasp2 + khorasp2
kthorasp3 = kthorasp3 + khorasp3
endif
SELECT Xrprod
skip
ENDDO
endif
KSALIDA = THISFORM.OPTION.Value
DO case
CASE ksalida = 1
REPORT FORM produlis to print preview
CASE ksalida = 2
EXPORT FIELDS ITEM, DITEM,capa, CANT, CANTPR, PORC, NPERS, DIAS, PORCT TO &kubica TYPE xls
*CASE thisform.option.option1.value=2
* EXPORT TO &kubica TYPE xls
endcase
*******************
DECLARE INTEGER ShellExecute IN shell32.dll ;
INTEGER hndWin, STRING cAction, STRING cFileName, ;
STRING cParams, STRING cDir, INTEGER nShowWin
ShellExecute(0,"open","c:\tmp\listado.txt","","",1)
*******************

Me puedes decir por donde comienzo a buscar el error.

Bueno en vfp no es necesario compilar, solo creas el archivo lo guardas y listo...

Bueno en el error que tienes.

El error que tienes es que estas intentando llamar o abrir un cursor antes de crearlo y por ende vfp no lo encontrará porque no existe...


Si te fijas bien el cursor lo creas después!

Saludos. Cualquier duda, estoy para ayudarte!

Gracias por su pronta respuesta.

Sabe que como el programa no es mio y me puse a modificar le cambie en vez de xprod le puse xparas del cursor, pero cuando ejecuto el programa me sale un do suspend en un pequeño cuadro y luego desaparece...

Como encuentro el error o porque sale ese mensaje..???

Gracias

Si tu deseas enviarme el proyecto para darle una miradita..

Este es mi dirección de e-mail: [email protected]

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas