Hot Fox

Tecnologia, programação e muito Visual FoxPro.

segunda-feira, 14 de setembro de 2015

Re: [usuarios_fox] SALUDOS

 

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) &&MICRO 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 1&&3
@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 7&&10
   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 7&&10
   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]" <usuarios_fox@yahoogrupos.com.mx> 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.


__._,_.___
Enviado por: jefferson reina <jrjefferson325@yahoo.com>
Responder mediante la Web • Responder a remitente • Responder a grupo • Crear un tema nuevo • Mensajes con este tema (4)
Comentarios, agregar archivos en el foro, observaciones o si deseas darte de baja avísame a: jamorquecho@hotmail.com


.

__,_._,___
Postado por às

Nenhum comentário:

Postar um comentário

Assinar: Postar comentários (Atom)

Arquivo do blog