comandos fox pro

***

CÓDIGOS FUENTES DE FOXPRO 6.0

PARA COPIAR TODOS LOS DATOS DE UNA TABLA A OTRA 

COPY TO c:\listac\listact_TIMO

PARA IMPORTAR EXL 5.0 A UNA TABLA DBF

IMPORT FROM "c:\listac\listact dbf\listact.xls" TYPE XL8 SHEET "listact"

PARA ABRIR CAMPOS QUE SOLO NECESITO

brow field hospital, descripcio, etq_old, fechapuesm,ano_garan

ABRIR UNA TABLA EN UNA DIRECCIÓN DE FORMA EXCLUSIVA: es decir puedo modificar datos de esta tabla.

USE "f:\proy-pcoman-infra\ejecucion\pry-pcoman infraestructura-beta 3\ficha.dbf" EXCLUSIVE

DESDE LA VENTANA DE COMANDOS; ABRIR TABLA
brow

ABRE TABLA SOLO CON LOS CAMPOS INDICADOS POR EL CRITERIO DEL CAMPO CORRELATIV Y DE SOLA LECTURA

BROW field HOSPITAL, correlativ,descripcio FOR correlativ=bX  noappe noedit nodele


brow field correlativ,etq_old, mseguridad

REEMPLAZO TODOS LOS DATOS EN EL CAMPO CODTALL CON 55 PARA EL CAMPO MARCA  QUE SEA IGUAL A "SIN MARCA ELEC"

replace all codtall with "55" for marca = "SIN MARCA ELEC"

replace all hrshomb with 0.40 descripcio = "TECNICO ELECTRICO"


REEMPLAZO TODOS LOS DATOS EN EL CAMPO DESCRIPCIO CON "TECNICO ELECTRICO"  PARA EL CAMPO DESCRIPCIO  QUE SEA IGUAL A "X" Y EL CAMPO HOSPITAL SEA IGUAL A "10"

REPLACE ALL DESCRIPCIO WITH "TECNICO ELECTRICO" FOR  DESCRIPCIO = "X".AND.HOSPITAL ="10"


BORRAR TODOS LOS DATOS PARA EL CAMPO HOSPITAL QUE SEAN IGUALES A "X"

DELET ALL FOR HOSPITAL="X"
todos los registros del campo hospital que cumplan la condicion se ponen en check listo para borrar

BORRA DEFINITIVAMENTE LOS REGISTROS SELECCIONADOS

PACK

RECUPERA LOS REGISTROS SELECCIONADOS CON DELET ALL

RECALL ALL


QUIERO ABRIR LA ESTRUCTURA DE UNA TABLA

MODI STRU

QUIERO ORDENAR MIS DATOS EN FORMA ASCENDENTE O DESCENDENTE EN EL CAMPO HOSPITAL

SET ORDER TO TAG HOSPITAL

QUE LAS FECHA DE MI CAMPO SEA DIA/MES/AÑO (02/06/2016)

SET DATE DMY

COPIAR TODOS LOS DATOS DE UNA TABLA A OTRA
1.-CREO UN FORMULARIO
2.-CLICK DERECHO EN FORMULARIO
    *DATA ENVIROMENT
    *CLICK DERECHO Y ADD...LAS TABLA "servicio___pry"  Y LA TABLA "servicio"
    *SELECCIONO LA TABLAS A LA TRANSACCION
3.-ESTE CODIGO EN UN COMMAND DEL FORMULARIO
4.-EJECUTAR

RESUTADO:

LOS DATOS DE LA TABLA "servicio___pry" PASAN A LA TABLA "servicio"

Select servicio___pry 
Go Top
Do While !eof()
scatter memvar
Select servicio
Append Blank
gather memvar
Select servicio___pry
Skip
Enddo

PARA PASAR INFORMACIÓN DE UNA TABLA A OTRA PERO NIDIFICANDO EN UN FORMULARIO

1.-DATOS VISUALIZADOS Y MODIFICADOS EN UN FORMULARIO DESDE UNA TABLA

THISFORM.Refresh
thisform.release

a1 =alltrim(thisform.txtOrgano.value)
a2 =alltrim(thisform.txtHospital.value)
a3 =alltrim(thisform.txtCod_serv.value)
a4 =alltrim(thisform.txtCcostos.value)
a5 =alltrim(thisform.txtcorrelativ1.value)
a6 =alltrim(thisform.txtCodman.value)
*a7 =alltrim(thisform.txtCodant.value)
a8 =alltrim(thisform.txtTipoequipa.value)
a9 =alltrim(thisform.txtDescripcio.value)
b1 =alltrim(thisform.txtMarca.value)
b2 =alltrim(thisform.txtCodmarca.value)
b3 =alltrim(thisform.txtCmarca.value)
b4 =alltrim(thisform.txtModelo.value)
*b5 =alltrim(thisform.txtCodmodelo.value)
*b6 =alltrim(thisform.txtCmodelo.value)
b7 =alltrim(thisform.txtSerie.value)
b8 =thisform.txtAntiguedad.value
b9 =thisform.txtMeses.value
c1 =thisform.txtEstado.value
c2 =alltrim(thisform.txtCodtall.value)
c3 =alltrim(thisform.txtCodejecuto.value)
c4 =alltrim(thisform.txtNejecutor.value)
c5 =alltrim(thisform.txtAno_fabri.value)
c6 =thisform.txtFechapuesm.value
*c7 =thisform.txtCaractecni.value
c8 =thisform.txtCosto_adq.value
c9 =alltrim(thisform.txtAno_adq.value)
*d1 =alltrim(thisform.txtFicha_tec.value)
*d2 =alltrim(thisform.txtFabricante.value)
d3 =alltrim(thisform.txtAno_garan.value)
d4 =thisform.txtGarantia.value
d5 =thisform. txtVida_util.value
d6 =alltrim(thisform.txtArea_ubica.value)
*d7 =alltrim(thisform.txtZona.value)
d8 =alltrim(thisform.txtPiso.value)
d9 =alltrim(thisform.txtCodprov.value)
e1 =alltrim(thisform.txtProveedor.value)
e2=alltrim(thisform.txtDirecprov.value)
e3 =alltrim(thisform.txtTelefprov.value)
e4 =thisform. txtFec_recep.value
e5 =thisform.txtReq_mant.value
e6 =alltrim(thisform.txtNproceso.value)
*e7 =alltrim(thisform.txtNitem.value)
*e8 =alltrim(thisform.txtMseguridad.value)
e9 =alltrim(thisform.txtLibro.value)
f1 =thisform.txtEjemplares.value
f2=thisform.txtEstrategic.value
f3 =thisform.txtCapacidad.value
*f4 =alltrim(thisform.txtUmedida.value)
*f5 =alltrim(thisform.txtPotencia.value)
f6 =alltrim(thisform.txtVoltaje.value)
*f7 =alltrim(thisform.txtAmperaje.value)
*f8 =alltrim(thisform.txtFrecuencia.value)
*f9 =alltrim(thisform.txtFoto.value)
*g1 =alltrim(thisform.txtFlag.value)
*g2=alltrim(thisform. totano.value)
g3 =alltrim(thisform. txtArea.value)
g4 =alltrim(thisform.txtSubarea.value)
g5 =alltrim(thisform.txtEtq_old.value)
g6 =thisform.txtHora_aten1.value
g7 =thisform.txtHora_aten2.value
g8 =thisform.txtHora_pdia.value
g9 =thisform.txtCost_rep.value
h1 =thisform.txtFechact.value
h2 =thisform.txtRiesgo.value
h3 =thisform.txtCritico.value
h4 =thisform.txtAriesgo.value
h5 =thisform.txtFservicio.value
*h6 =alltrim(thisform.txtTseguido.value)
*h7 =alltrim(thisform.TxtNfallas.txtStandby.value)
*h8 =alltrim(thisform.txtTrepara.value)


*------------------------------------------------------------------------


clos all
*------------------------------------------------------------------------
*EN LA TABLA OTM MODIFICAMOS DATOS FINAL
*------------------------------------------------------------------------


*------------------------------------------------------------------------
*EN LA TABLA ACTIVIDAD INSERTAMOS DATOS INICIO
*------------------------------------------------------------------------
*abrimos la tabla
USE "f:\02-04-2014 siamco\siamco 04-04-14\pcoman 04-04-14\pcoman garantia\ficha.dbf" EXCLUSIVE
*nos bamos al fin del registro
GO BOTTOM
*alistamos un registro 
APPE BLANK
*insertamos datos en la tabla ficha


*replace ORGANO with a1,HOSPITAL with a2,COD_SERV with a3,CCOSTOS with a4,CORRELATIV with a5,CODMAN with a6,TIPOEQUIPA with a8,DESCRIPCIO with a9,MARCA with b1,CODMARCA with b2,CMARCA with b3,MODELO with b4,SERIE with b7,ANTIGUEDAD with b8,MESES with b9,ESTADO with c1,CODTALL with c2,CODEJECUTO with c3,NEJECUTOR with c4,ANO_FABRI with c5,FECHAPUESM with c6,CARACTECNI with thisform.txtCaractecni.value,COSTO_ADQ with c8,ANO_ADQ with c9,ANO_GARAN with d3,GARANTIA with d4,VIDA_UTIL with d5,AREA_UBICA with d6,PISO with d8,CODPROV with d9, PROVEEDOR with e1,DIRECPROV with e2,TELEFPROV with e3,FEC_RECEP with e4,REQ_MANT with e5,NPROCESO with e6,MSEGURIDAD with thisform.txtMseguridad.value,LIBRO with e9,EJEMPLARES with f1,ESTRATEGIC with f2,CAPACIDAD with f3,VOLTAJE with f6,AREA with g3,SUBAREA with g4,ETQ_OLD with g5,HORA_ATEN1 with g6,HORA_ATEN2 with g7,HORA_PDIA with g8,COST_REP with g9,FECHACT with h1,RIESGO with h2,CRITICO with h3,ARIESGO with h4,FSERVICIO with h5
replace ORGANO with a1,HOSPITAL with a2,COD_SERV with a3,CCOSTOS with a4,CORRELATIV with a5,CODMAN with a6,TIPOEQUIPA with a8,DESCRIPCIO with a9,MARCA with b1,CODMARCA with b2,CMARCA with b3,MODELO with b4,SERIE with b7,ANTIGUEDAD with b8,MESES with b9,ESTADO with c1,CODTALL with c2,CODEJECUTO with c3,NEJECUTOR with c4,ANO_FABRI with c5,FECHAPUESM with c6,COSTO_ADQ with c8,ANO_ADQ with c9,ANO_GARAN with d3,GARANTIA with d4,VIDA_UTIL with d5,AREA_UBICA with d6,PISO with d8,CODPROV with d9, PROVEEDOR with e1,DIRECPROV with e2,TELEFPROV with e3,FEC_RECEP with e4,REQ_MANT with e5,NPROCESO with e6,LIBRO with e9,EJEMPLARES with f1,ESTRATEGIC with f2,CAPACIDAD with f3,VOLTAJE with f6,AREA with g3,SUBAREA with g4,ETQ_OLD with g5,HORA_ATEN1 with g6,HORA_ATEN2 with g7,HORA_PDIA with g8,COST_REP with g9,FECHACT with h1,RIESGO with h2,CRITICO with h3,ARIESGO with h4,FSERVICIO with h5

clos all


*------------------------------------------------------------------------
*EN LA TABLA ACTIVIDAD INSERTAMOS DATOS FINAL
*------------------------------------------------------------------------

NUEVAMENTE EJECUTAMOS EL FORMULARIO
DO FORM c:\mant_essalud\ficha_garantia\frmficha.scx

REALIZAR IMPRESIONES PRE-DISEÑADOS DATOS DE UNA TABLA

1.-ANTES CREAMOS UN REPORTE Y LE DISEÑAMOS A NUESTRA NECESIDAD
2.-CREAMOS UN FORMULARIO
3.-CLICK DERECHO EN FORMULARIO
    *DATA ENVIROMENT
    *CLICK DERECHO Y ADD...
    *SELECCIONO LA TABLAS A LA TRANSACCION
4.-ESTE CODIGO EN UN COMMAND DEL FORMULARIO
5.-EJECUTAR

thisform.refresh
thisform.release
*CLOS ALL
*wdato= trim(upper(this.value))
c=alltrim(thisform.txtetiqueta.value)
REPORT FORM "c:\mant_essalud\reportes\notificaciones.frx" PREVIEW FOR correlativ=c
*REPORT FORM "c:\mant_essalud\reportes\notificaciones.frx" PREVIEW FOR correlativ="00185516"


CLOS ALL
DO FORM c:\mant_essalud\ficha_garantia\frmnotificar.scx

SIGUIENTE