Hot Fox: Re: [usuarios

Yo tenia un sistrma hecho en foxpro lineal como el tuyo y lo tuve que rehacer todo en visualfox. El lenguaje es el mismo pero en la version visual se agregan muchas cosas nuevas y principalmente cambia la FORMA de programar. No le veo otra que rehacerlo.
Saludos.

El 14/09/2015 21:17, "Jose Alfonso Morquecho Paniagua jamorquecho@yahoo.com [usuarios_fox]" <usuarios_fox@yahoogrupos.com.mx> escribió:

Es que Fox 9 ya no funciona así, desde la versión 3 se cambió a un formato de objetos y visual.

Aca todo son objetos y propiedades, si puedes busca la ayuda del vfox 6 ahí trae completa la explicación de esto

Y esta el ejemplo de solution que viene en la ayuda del fox 9

Saludos Cordiales Josè Alfonso

El Lunes, 14 de septiembre, 2015 18:20:56, "jefferson reina jrjefferson325@yahoo.com [usuarios_fox]" escribió:

SIEMPRE E PROGRAMADO SOLO EN PRG ME ATRASE NUNCA ACEPTE LAS NUEVAS MODIFICACIONES DE IMÁGENES FORMULARIOS EVENTOS ETC.
EJEMPLO:EL SIGUIENTE CÓDIGO ES EL BORRADOR DE UN PROGRAMA QUE YA DISEÑE YA TENGO LA VERSIÓN FINAL PERO ME GUSTARÍA QUE SE VEAS MODERNO COMO UN FORMULARIO.
*CLEAR
@ 6,3 CLEAR TO 43,210
CLOSE ALL
CLOSE DATABASES
CLEAR GETS
SET TALK OFF
SET ECHO ON
SET SAFETY OFF
SET DATE TO GERMAN
*? DATETIME(1998, 02, 16, 12, 34, 56) Displays 02/16/1998 12:34:56 Pm
*TTT=TIME()
SET HOURS TO 24
SET CLOCK TO 4,187
*@ 5,180 SAY TTT
*?HOUR(DATETIME( ))
STORE DATETIME() TO TTT45
*@ 6,100 SAY 'FECHA Y HORA DE RECIVIDO ' FONT 'ARIAL ',14 COLOR RGB(0,255,0)255'0, 255, 0
*@ 6,148 SAY TTT45 FONT 'ARIAL ',14 COLOR RGB(0,255,0)255'
@2,5 SAY 'RUNNING LLENAR1'&RUNNING
STORE DATE( ) TO gdDayNum
STORE DATE( ) TO gdDayNum
DO case
CASE DOW(gddaynum)=1
STORE 'DOMINGO'TO cv
@ 4,5 SAY CV FONT 'ARIAL ',14 COLOR RGB(255,0,0)255
CASE DOW(gddaynum)=2
STORE 'LUNES'TO cv
@ 4,5 SAY CV FONT 'ARIAL ',14 COLOR RGB(255,0,0)255
CASE DOW(gddaynum)=3
STORE 'MARTES'TO cv
@ 4,5 SAY CV FONT 'ARIAL ',14 COLOR RGB(255,0,0)255
CASE DOW(gddaynum)=4
STORE 'MIERCOLES'TO cv
@ 4,5 SAY CV FONT 'ARIAL ',14 COLOR RGB(255,0,0)255
CASE DOW(gddaynum)=5
STORE 'JUEVES'TO cv
@ 4,5 SAY CV FONT 'ARIAL ',14 COLOR RGB(255,0,0)255
CASE DOW(gddaynum)=6
STORE 'VIERNES'TO cv
@ 4,5 SAY CV FONT 'ARIAL ',14 COLOR RGB(255,0,0)255
CASE DOW(gddaynum)=7
STORE 'SABADO'TO cv
@ 4,5 SAY CV FONT 'ARIAL ',14 COLOR RGB(255,0,0)255
ENDCASE
*? CDOW(gdDayNum)
tToday = DATE( )
*@ 4,5 SAY 'HOY ES' FONT 'ARIAL ',13 COLOR RGB(0,0,128)
@ 4,24SAY TTODAY FONT 'ARIAL ',14 COLOR RGB(255,0,0)255
FF= YEAR(DATE( ))
@ 4,52 SAY FF FONT 'ARIAL ',14 COLOR RGB(255,0,0)255 RESPONSABLE DEL AÑO 48
DO case
CASE MONTH(DATE( ))=1
STORE ' DE ENERO DE'TO MES
@ 4,28 SAY MES FONT 'ARIAL ',14 COLOR RGB(255,0,0)255
CASE MONTH(DATE( ))=2
STORE ' DE FEBRERO DE'TO MES
@ 4,28 SAY MES FONT 'ARIAL ',14 COLOR RGB(255,0,0)255
CASE MONTH(DATE( ))=3
STORE ' DE MARZO DE'TO MES
@ 4,28 SAY MES FONT 'ARIAL ',14 COLOR RGB(255,0,0)255
CASE MONTH(DATE( ))=4
STORE ' DE ABRIL DE'TO MES
@ 4,28 SAY MES FONT 'ARIAL ',14 COLOR RGB(255,0,0)255
CASE MONTH(DATE( ))=5
STORE ' DE MAYO DE'TO MES
@ 4,28 SAY MES FONT 'ARIAL ',14 COLOR RGB(255,0,0)255
CASE MONTH(DATE( ))=6
STORE ' DE JUNIO DE'TO MES
@ 4,28 SAY MES FONT 'ARIAL ',14 COLOR RGB(255,0,0)255
CASE MONTH(DATE( ))=7
STORE ' DE JULIO DE'TO MES
@ 4,28 SAY MES FONT 'ARIAL ',14 COLOR RGB(255,0,0)255
CASE MONTH(DATE( ))=8
STORE ' DE AGOSTO DE'TO MES
@ 4,28 SAY MES FONT 'ARIAL ',14 COLOR RGB(255,0,0)255
CASE MONTH(DATE( ))=9
STORE ' DE SEPTIEMBRE DE'TO MES
@ 4,28 SAY MES FONT 'ARIAL ',14 COLOR RGB(255,0,0)255
CASE MONTH(DATE( ))=10
STORE ' DE OCTUBRE DE'TO MES
@ 4,28 SAY MES FONT 'ARIAL ',14 COLOR RGB(255,0,0)255
CASE MONTH(DATE( ))=11
STORE ' DE NOVIEMBRE DE'TO MES
@ 4,28 SAY MES FONT 'ARIAL ',14 COLOR RGB(255,0,0)255
CASE MONTH(DATE( ))=12
STORE ' DE DICIEMBRE DE'TO MES
@ 4,28 SAY MES FONT 'ARIAL ',14 COLOR RGB(255,0,0)255
ENDCASE
*WAIT
nitem = 0
NOM=SPACE(35)
CORR=SPACE(30)
CIU=SPACE(30)
MA=SPACE(8) &MARCA
MODELO=SPACE(14)
TP=SPACE(8)&TIPO COMPUTADOR
CL=SPACE(8) &COLOR
DD=SPACE(14) &DISCO DURO
DD1=SPACE(14) &DISCO DURO 2
CP=SPACE(4) &CAPACIDAD DISCO
CP1=SPACE(4) &CAPACIDAD DISCO DURO 1
MM=SPACE(4) &MEMORIA
BD=SPACE(10) &BOARD
SO=SPACE(10)&SISTEMA OPERACIONAL
MP=SPACE(12) µ PROCESADOR
*FECHA=FECHA
DIRR=SPACE(12) &DIRECCION 1
TEL1=SPACE(11)&TELEFONO1
TEL2=SPACE(11) &TELEFONO 2
YU=0
serie=SPACE(12)
COLOR1=SPACE(10)
&ORDEN DE SERVICIO
LIN1=SPACE(75) &LINEAS DE TEXTOS
LIN2=SPACE(75) &LINEAS DE TEXTOS
LIN3=SPACE(75) &LINEAS DE TEXTOS
LIN4=SPACE(75) &LINEAS DE TEXTOS
LIN5=SPACE(75)
*USE FOTO2
*GO 4
USE FOTO
GO 13
@2,160 say F'NUEVA CHILLER' FONT'CHILLER ',24 COLOR RGB(255,255,255,0,0,255)
CLOSE ALL
@1,211 FILL TO 44, 212 COLOR GR+/B&complemento de fill la parte que se borra con el logo
@41,1 FILL TO 48,212 COLOR GR+/B 41,1,48,212
*@ 45,45 FILL TO 45, 212 COLOR GR+/B
*@2,160 say PH'NUEVA CHILLER' FONT'CHILLER ',24 COLOR RGB(255,255,255,0,0,255)158
CLOSE ALL
@ 6,110 SAY 'RECIVIDO =>' FONT 'ARIAL ',14 COLOR RGB(0,255,0)255'0, 255, 0
@ 6,130 SAY TTT45 FONT 'ARIAL ',14 COLOR RGB(0,255,0)255'
SET BELL ON
USE FECHA
STORE FEDA TO TTT3
STORE FECHA TO FECHA1
STORE FECHACOMPR TO FECHA2
STORE FECHACUMPL TO FECHA3
TY=TIME()
STORE HORA TO HORAS
CLOSE ALL
USE LISTA
GO BOTTOM
OSF=OSFJ+1
CLOSE ALL
USE lista
SORT TO LISTA1 ON NVALUE
CLOSE ALL
USE LISTA1
INDEX ON NVALUE TO COMPLICE
*DO WHILE EOF()
DO WHILE .T.
@ 6,5 SAY 'NUMERO DE CEDULA O NIT 'font'ARIAL ',16 COLOR RGB(0,0,128)255MUESTRA UNA RAYA STYLE 'NU'
@ 6,62 get NITEM FONT 'ARIAL ',16 COLOR RGB(0,0,128)255
&COLOR GR+/B
READ
SEEK NITEM
DO CASE
CASE NITEM=1
QUIT
CASE NITEM=2
MODIFY COMMAND LLENAR1
ENDCASE
IF EOF()
EXIT
endif
*CLEAR
SET READBORDER ON
*@ 6,3 CLEAR TO 43,210
@ 6,3 FILL TO 43, 210 COLOR RGB(192,192,255)
@ 8,50 SAY NITEM FONT 'ARIAL ',16 COLOR RGB(255,0,0)
@ 8,5 SAY 'CEDULA O NIT ' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
STORE NOMBRE TO VC
STORE CORREO TO CS
STORE FECHACUMPL TO GATO
@ 12,50 SAY CS FONT 'ARIAL ',16 COLOR RGB(255,0,0)
@ 10,50 SAY VC FONT 'ARIAL ',16 COLOR RGB(255,0,0)
STORE CIUDAD TO CD
@ 10,5 SAY 'PERSONA Y/O EMPRESA ' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 12,5 SAY 'CORREO ELECTRONICO ' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 12,97 SAY 'CIUDAD' FONT 'ARIAL ',16 COLOR RGB(0,0,128)7
@ 12,113 SAY cd FONT 'ARIAL ',16 COLOR RGB(255,0,0)
@ 12,97 SAY 'CIUDAD' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 14,5 SAY 'TIPO DE PC' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
**********
*************+
*RUTINA DE ELEGIR COMPUTAFOR
USE PC&customer Open customer tablE
RECNO()
*BROWSE PARTITION 20 REDIT
&DEFINE WINDOW wBrowse FROM 7,167 TO 13,187 ;
DEFINE WINDOW wBrowse FROM 7,137 TO 13,157;
CLOSE ;
GROW ;
COLOR SCHEME 10
&CLOSE DATABASES
*OPEN DATABASE (HOME(2) + 'data\testdata')
USE PC Open customer table
BROWSE WINDOW wBrowse ;
FIELDS PCS :H = 'EQUIPO:' , ;
NOMBRE :H = 'NOMBRE:' ;
TIMEOUT 710
STORE PCS TO TP&XX
RELEASE WINDOW wBrowse
*?XX
*WAIT
*********
*************
*************
@ 14,5 SAY 'TIPO DE PC' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 14,50 SAY TP FONT 'ARIAL ',16 COLOR RGB(255,0,0)
@ 14,97 SAY 'COLOR DEL PC' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 14,123 GET COLOR1 FONT 'ARIAL ',16 COLOR RGB(255,0,0)
@ 16,5 SAY 'MARCA PC' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 16,50 GET MA FONT 'ARIAL ',16 COLOR RGB(255,0,0)
@ 16,97 SAY 'MODELO PC' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 16,123 GET MODELO FONT 'ARIAL ',16 COLOR RGB(255,0,0)
@18,5 SAY 'NUMERO SERIE DEL EQUIPO' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 18,50 GET SERIE FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@20,5 SAY 'DISCO DURO 1' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 20,50 GET DD FONT 'ARIAL ',16 COLOR RGB(0,0,128)&DD
@ 22,5 SAY 'DISCO DURO 2' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 22,50 GET DD1 FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 24,5 SAY 'MEMORIA' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 24,50 GET MM FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 26,5 SAY 'BOARD' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 26,50 GET BD FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 28,5 SAY 'SISTEMA OPERACIONAL' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 28,50 GET SO FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 30,5 SAY 'MICRO PROCESADOR' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 30,50 GET MP FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 32,5 SAY 'DIRECCION' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 32,50 GET DIRR FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 34,5 SAY 'TELEFONO' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 34,50 GET TEL1 FONT 'ARIAL ',16 COLOR RGB(0,0,128)
*WAIT
@ 36,5 SAY 'TELEFONO' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 36,50 GET TEL2 FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 38,5 SAY 'FACTURA Y/O ORDEN' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 38,50 SAY OSF FONT 'ARIAL ',16 COLOR RGB(0,0,128)
USE FECHA
REPLACE HORA WITH TTT45
@ 20,97 SAY 'HORA DE RECIVO DEL EQUIPO' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 20,150 GET HORA FONT 'ARIAL ',16 COLOR RGB(255,0,0)
@ 22,97 SAY 'FECHA DE COMPRA DEL PC ' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 22,150 GET FECHA2 FONT 'ARIAL ',16 COLOR RGB(255,0,0)
@ 24,97 SAY 'FECHA DE NACIMIENTO CLIENTE ' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 24,150 SAY GATO FONT 'ARIAL ',16 COLOR RGB(255,0,0)
@ 28,105 SAY 'DIAGNOSTICO Y SERVICIO' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 30,75 GET LIN1 FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 32,75 GET LIN2 FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 34,75 GET LIN3 FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 36,75 GET LIN4 FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 38,75 GET LIN5 FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 12,97 SAY'CIUDAD'FONT 'ARIAL ',16 COLOR RGB(0,0,128)
READ
@ 12,97 SAY 'CIUDAD' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
RECNO()
@ 8,96 SAY 'REGISTRO NUMERO'FONT 'ARIAL ',16 COLOR RGB(0,255,0)
@ 8,128 SAY RECNO() FONT 'ARIAL ',16 COLOR RGB(0,255,0)
@ 23,5 say ' '
STORE VC TO VCII
STORE CS TO CSII
STORE CD TO CDII
COLOR1=SPACE(10)
CLOSE ALL
USE LISTA
APPEND BLANK
REPLACE NVALUE WITH NITEM
REPLACE NOMBRE WITH VCII
REPLACE CORREO WITH CSII
REPLACE CIUDAD WITH CDII
REPLACE SERIEJ WITH SERIE
REPLACE MAJ WITH MA
REPLACE TPJ WITH TP
REPLACE DDJ WITH DD
REPLACE DD1J WITH DD1
REPLACE MMJ WITH MM
REPLACE BDJ WITH BD
REPLACE SOJ WITH SO
REPLACE MPJ WITH MP
REPLACE DIJJ WITH DIRR&DIRECCION
REPLACE TELJ WITH TEL1
REPLACE TEL2J WITH TEL2
REPLACE OSFJ WITH OSF
REPLACE LIN1J WITH LIN1
REPLACE LIN2J WITH LIN2
REPLACE LIN3J WITH LIN3
REPLACE LIN4J WITH LIN4
REPLACE LIN5J WITH LIN5
REPLACE FECHA WITH FECHA1&TTODAY&tToday = DATE()
REPLACE HORA WITH TTT45
REPLACE FECHACOMPR WITH FECHA2
REPLACE FECHACUMPL WITH FECHA3
REPLACE COLLO WITH COLOR1
REPLACE MODEL WITH MODELO
CLOSE ALL
DO OBJETO
ENDDO
*@ 6,3 CLEAR TO 43,210
@ 6,3 FILL TO 43, 210 COLOR RGB(128,128,128)
@ 8,50 SAY NITEM FONT 'ARIAL ',16 COLOR RGB(255,0,0)
@ 8,5 SAY 'CEDULA O NIT ' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 10,5 SAY 'PERSONA Y/O EMPRESA ' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 10,50 GET NOM FONT 'ARIAL ',16 COLOR RGB(0,0,128) &CLASS TextBox &NAME
@ 12,5 SAY 'CORREO ELECTRONICO ' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 12,50 get CORR FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 12,97 SAY 'CIUDAD' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 12,123 GET CIU FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 14,5 SAY 'TIPO DE PC' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 12,97 SAY 'CIUDAD' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
********************************************
*RUTINA DE ELEGIR COMPUTAFOR
USE PC&customer Open customer table
RECNO()
*BROWSE PARTITION 20 REDIT
DEFINE WINDOW wBrowse FROM 7,137 TO 13,157;
CLOSE ;
GROW ;
COLOR SCHEME 10
CLOSE DATABASES
*OPEN DATABASE (HOME(2) + 'data\testdata')
USE PC Open customer table
BROWSE WINDOW wBrowse ;
FIELDS PCS :H = 'EQUIPO:' , ;
NOMBRE :H = 'NOMBRE:' ;
TIMEOUT 710
STORE PCS TO TP&XX
RELEASE WINDOW wBrowse
*?XX
*WAIT
*********

@ 14,5 SAY 'TIPO DE PC' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 14,50 say tp FONT 'ARIAL ',16 COLOR RGB(255,0,0)
@ 14,97 SAY 'COLOR DEL PC' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 14,123 GET COLOR1 FONT 'ARIAL ',16 COLOR RGB(255,0,0)
@16,5 SAY 'MARCA PC' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 16,50 GET MA FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 16,97 SAY 'MODELO PC' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 16,123 GET MODELO FONT 'ARIAL ',16 COLOR RGB(255,0,0)
@ 18,5 SAY 'NUMERO SERIE DEL EQUIPO' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 18,50 GET SERIE FONT 'ARIAL ',16 COLOR RGB(255,0,0)
@20,5 SAY 'DISCO DURO 1' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 20,50 GET DD FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 22,5 SAY 'DISCO DURO 2' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 22,50 GET DD1 FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 24,5 SAY 'MEMORIA' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
*SET READBORDER ON
@ 24,50 GET MM FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 26,5 SAY 'BOARD' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 26,50 GET BD FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 28,5 SAY 'SISTEMA OPERACIONAL' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 28,50 GET SO FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 30,5 SAY 'MICRO PROCESADOR' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 30,50 GET MP FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 32,5 SAY 'DIRECCION' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 32,50 GET DIRR FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 34,5 SAY 'TELEFONO' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 34,50 GET TEL1 FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 12,97 SAY 'CIUDAD' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
*WAIT
@ 36,5 SAY 'TELEFONO' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 36,50 GET TEL2 FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 38,5 SAY 'FACTURA Y/O ORDEN' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 38,50 SAY OSF FONT 'ARIAL ',16 COLOR RGB(0,0,128)
USE FECHA
REPLACE HORA WITH TTT45
@ 20,97 SAY 'HORA DE RECIVO DEL EQUIPO' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 20,150 GET HORA FONT 'ARIAL ',16 COLOR RGB(255,0,0)
@ 22,97 SAY 'FECHA DE COMPRA DEL PC ' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 22,150 GET FECHA2 FONT 'ARIAL ',16 COLOR RGB(255,0,0)
@ 24,97 SAY 'FECHA DE NACIMIENTO CLIENTE ' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 24,150 GET FECHA3 FONT 'ARIAL ',16 COLOR RGB(255,0,0)
@ 28,105 SAY 'DIAGNOSTICO Y SERVICIO' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 30,75 GET LIN1 FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 32,75 GET LIN2 FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 34,75 GET LIN3 FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 36,75 GET LIN4 FONT 'ARIAL ',16 COLOR RGB(0,0,128)
@ 38,75 GET LIN5 FONT 'ARIAL ',16 COLOR RGB(0,0,128)
*@ 6,3 FILL TO 43, 210 COLOR RGB(128,128,128)
@ 12,97 SAY 'CIUDAD' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
READ
@ 12,97 SAY 'CIUDAD' FONT 'ARIAL ',16 COLOR RGB(0,0,128)
CLOSE ALL
USE LISTA
GO BOTTOM
APPEND BLANK
REPLACE nValue WITH NITEM
REPLACE NOMBRE WITH NOM
REPLACE CORREO WITH CORR
REPLACE CIUDAD WITH CIU
REPLACE SERIEJ WITH SERIE
REPLACE MAJ WITH MA
REPLACE TPJ WITH TP
REPLACE DDJ WITH DD
REPLACE DD1J WITH DD1
REPLACE MMJ WITH MM
REPLACE BDJ WITH BD
REPLACE SOJ WITH SO
REPLACE MPJ WITH MP
REPLACE DIJJ WITH DIRR&DIRECCION
REPLACE TELJ WITH TEL1
REPLACE TEL2J WITH TEL2
REPLACE OSFJ WITH OSF
REPLACE LIN1J WITH LIN1
REPLACE LIN2J WITH LIN2
REPLACE LIN3J WITH LIN3
REPLACE LIN4J WITH LIN4
REPLACE LIN5J WITH LIN5
REPLACE FECHA WITH FECHA1&TTODAY&tToday = DATE()
REPLACE HORA WITH TTT45
REPLACE FECHACOMPR WITH FECHA2
REPLACE FECHACUMPL WITH FECHA3
REPLACE COLLO WITH COLOR1
REPLACE MODEL WITH MODELO
CLOSE ALL
CLOSE DATABASES
*g
*BROWSE
DO IMAGEN

El Lunes, 14 de septiembre, 2015 17:17:22, "Jose Alfonso Morquecho jamorquecho@hotmail.com [usuarios_fox]" escribió:

Bueno el cambio principal es k se trabaja en forma visual. Pero debes tener un prg de arranque al final lanzas un formulario (por ejemplo) y abajo debe ir
Read events

Enviado desde mi iPhone

El 14/09/2015, a las 14:59, "jefferson reina jrjefferson325@yahoo.com [usuarios_fox]" <usuarios_fox@yahoogrupos.com.mx> escribió:

EN LOS AÑOS 90 -93 USE DE BASEIII Plus Y IV; AÑOS MAS TARDE USE VISUAL FOXPRO ACTUALMENTE USO LA VERSIÓN 9 PERO AUN NO SE COMO SE HACE UN EJECUTABLE.