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.