PREGUNTAS CONTESTADAS - foxpro/visual foxpro

Hay un total de 1456 Preguntas.

<< >>

Pregunta:	60526 - COMO CAMBIAR LA PROPIEDAD DE UN TEXT BOX EN TIEMPO DE EJEC.
Autor:	GUILLERMO BALDOMERO CASTRO
Quiero cambiar la propiedad del Text Box durante la ejecucion, para que el dato se muestre con la máscara de edición que defina en ese momento para el dato numérico. Estoy con V.F.P 6.0 Esto, porque si defino la propiedad Input mask p.ej 99,999.99 antes de ingresar el dato, aparecen en la casilla los signos de separacion de miles y decimal, y quiero que la casilla aparezca en blanco. Gracias por la ayuda.

Respuesta:	Tony Rengifo del castillo
a ver si te sirve en el gofocus del textbox this.inputmask="99,999.99" espero ser de tu ayuda

Contestar

Pregunta:	60619 - EXPORTAR REPORTES A XLS DESDE FOXPRO 2.5
Autor:	LUPITA SEGURA
Hola: necesito exportar un reporte generado en foxpro 2.5, he metido códigos investigados pero no genera la hoja excel, donde se especifica la ruta destino, cabe mencionar que soy nueva en el campo. public xlapp, xlsheet &&var para manejo de excel xlapp=createobjet('excel.application') xlsheet=getobjet('','excel.sheet') xlapp.application.visible=.T. xlapp.workbooks.add() xlsheet=xla.activesheet

Respuesta:	Abraham Castillo
como yo lo hago es pasar la informacion a una base de datos temporal y luego le cambio el nombre asi: copy file base.dbf to nombre.xls pudes preguntar la direccion donde quiere grabar el archivo, que nombre le quiere poner, etc, etc,, espero que te ayude....

Contestar

Pregunta:	60662 - CONFIGURAR PAGINA LX300
Autor:	Ember Sanchez
Buenas noches programadores. Bueno, les cuento mi problema: Desarrollé en VFP9 una factura, cuya longitud es de ½ carta, para imprimir en una impresora Epson LX-300; todo iba muy bien hasta que se implementó otro punto de pago, pues las facturas elaboradas en éste salen tamaño carta. Configuré las propiedades del servidor para el tamaño de papel y nada. Borré la configuración de la impresora en el reporte y nada; lo único que me funciona es modificar el reporte, colocando la impresora de cada punto como predeterminada compilar y a cada estación colocar el .EXE que le corresponda. Sin embargo, cada vez que hago una actualización del programa y se me olvida este doble trabajo, uno de los puntos, el otro se desconfigura. Pase entonces a realizar mi factura por SAY, pero cuando inicializo la impresora con ???chr(64) o chr(12) la hoja avanza casi dos páginas para empezar a imprimir. Alguien me puede decir como: 1 Corregir el problema de mi reporte para que no se desconfigure el tamaño de papel. o 2 Cual seria la secuencia ESC para que no avance tanto papel Atentamente, Ember

Respuesta:	Alberto Sapoli
Estimado Ember. Te recomiendo que liberes del proyecto los formularios reportes (FRX) y los grabes en una carpeta predeterminada en la maquina de cada usuario. Cuando listes solo lee de dicha carpeta, asi los cambios que efectues en cada formulario reporte no afectara a los demas. Solo tienes que asegurate que no este dentro del proyecto.

Contestar

Pregunta:	60719 - SEPARAR NOMBRES COMPUESTOS
Autor:	abel martinez
Hola buenas tardes, necesito separar el campo nombre una base de datos DE VISUAL FOXPRO en apellido paterno, materno y nombre solo que tambien se encuentran nombres compuestos y de solo un apellido y nombre espero puedan ayudarme les dejo un ejemplo del tipo de nombres que exiten, gracias. JARAMILLO DE LOS REYES JORGE LUIS TORRES DE LOS ANGELES CYNTHIA NALLELY ALVAREZ LOPEZ JULIO

Respuesta:

ricardo soldini

mira es facil solo debes recorrer el campo nombre asignado los caracters a una variable para seprar las partes de nombre y cuando te encuentras con los espacios intermedios aplicas una funcion que evalue si lo que separaste es parte del apellido o nombre compuesto

ej suponiendo que nombre este compesto de apellido pat, materno, nombres
store spaces(30) to nombres, paterno, materno, nom_prov
posicion=1
for i = 1 to len(mombre)
if substr(nombre,i,1) != " "
nom_prov =nom_prov + substr(nombre,i,1)
else
if !compuesto(nom_prov)
do case
case posicion= 1
paterno=nom_prov
posicion=2
nom_prov=space(30)
case posicion=2
materno=nom_prov
posicion=3
nom_prov=sace(30)
OTHERWISE
NOMBRES=NOMBRES+NOM_PROV
NOM_PROV=SPACE(30)
ENDCASE
ELSE
NOM_PROV=NOM_PROV+" " && PARA QUE QUEDE EL APELLIDO
COMO ES EJ 'DEL SOLAR'
ENDIF

FUNCTION COMPUESTO(NOMB)
ES_COMP=.F.
DO CASE
CASE UPPER(ALLTRIM(NOMB))="DE"
ES_COMP=.T.
CASE UPPER(ALLTRIM(NOMB))="DEL"
ES_COMP=.T.
CASE UPPER(ALLTRIM(NOMB))="LAS"
ES_COMP=.T.
CASE UPPER(ALLTRIM(NOMB))="MC"
ES_COMP=.T.
CASE UPPER(ALLTRIM(NOMB))="O'"
ES_COMP=.T.
CASE UPPER(ALLTRIM(NOMB))="LA"
ES_COMP=.T.
CASE UPPER(ALLTRIM(NOMB))="LOS"
ES_COMP=.T.
CASE UPPER(ALLTRIM(NOMB))="LO"
ES_COMP=.T.
CASE UPPER(ALLTRIM(NOMB))="<lo que necesites"
ES_COMP=.T.
ENCASE
RETURN(ES_COMP)

Contestar

Pregunta:	60812 - CONSULTAS LENTAS
Autor:	Gabriela
Hola a todos, espero que alguien me pueda ayudar con esto. Tengo mi sistema con sus reportes y consultas para mostrar por pantalla, realizados usando vistas locales o consultas select - sql into cursor. hasta hace un tiempo todo bien, pero mis tablas ya tienen alrededor de 600.000 registros y las consultas son LENTISIMAS.....Probe con un formularia cambiar por seek, found(), do while, etc y cambió notablemente la rapidez, pero eso significaría un trabajo enorme de cambiar codigo y crear cantidad de indices. Justamente yo use vista u consultas por que tenía entendido que era lo mas rápido. Mando un ejemplo para ver si alguien me puede ayudar a ver si estoy cometiendo algun error o hay alguna forma de optimizar este procedimiento *hago consulta de entradas menos salidas del dia que estoy consultando SELECT mov_stock.fecha_mov, mov_stock.id_proveed, mov_stock.cod_art,; SUM(mov_stock.entrada_u - mov_stock.salida_u) AS EXISTE,; SUM(mov_stock.entrada_k-mov_stock.salida_k) AS EXISTE_k; FROM gestion!mov_stock ; LEFT OUTER JOIN gestion!comprob ON mov_stock.cod_cpte = comprob.cod_cpte ; WHERE Comprob.mov_stock = 1 ; AND Comprob.afecta_ex = 1; and mov_stock.id_proveed =mprovee; AND mov_stock.fecha_mov =mFdesde ; group by mov_stock.cod_art INTO CURSOR cierre Agradeceré cualquier sugerencia o ayuda URGENTE!!!!

Respuesta:	Javier Caballero
Gabriela, consulta: vos estas trabajando con dbf o algun motor de base de datos? En ambos casos las vistas locales o remotas son lentas a partir de los 50mil registros +-. Mi recomendacion es que utilices sentencias sql. Y si estas usando dbf, ya tendrias que ir pensando en migrar a algun motor de base de datos. Espero tus comentarios para buscar una solucion a tu problema. Saludos

Respuesta:

Gabriela Gonzalez

Gracias por responderme. En efecto estoy usando dbf, o sea la base propia de visual 7.0 que es la versión que utilizo. Por ahora lo que estoy haciendo es usar consultas solo para aquellos casos que utiliza pocas relaciones y filtros. Después estoy cambiando por los casicos seek, found(), do while, etc. De esta manera se han super agilizado los resultados de los informes. No se a que te referis con usar sentencias sql. Acaso el ejemplo de la consulta que puse en la pregunta no es una sentencia sql?
Saludos
Gracias

Contestar

Pregunta:	60829 - EDITAR EL CONFIG.FPW
Autor:	Alejandro Enríquez
Buenas noches ojala que me puedan ayudar, se puede configurar el archivo Config.fpw para que foxpro2.6 corra mas rapido? y desearía saber mas de que tentas cosas se le pueden incluir a este archivo para agilizar la labor de FoxPro2.6

Respuesta:	erick teran
No se si este bien pero hasta donde yo se solo se le modifican las lines=88 y buffer=88 y funciona bien con los sistemas en dos que manejamos aqui suerte

Contestar

Pregunta:	60902 - ABRIR EXCEL 2007 DESDE VFP9
Autor:	Elsy Pitillo
Como se abre un libro u hoja de Excel 2007 desde VFP9? con Excel 2003 o inferiores no he tenido problemas con el siguiente codigo: loExcel=CREATEOBJECT("Excel.application") WITH loExcel .application.workbooks.open("c:alance.xls") .... .application.visible = .t. ENDWITH WAIT "Presione Enter para Salir" loexcel.quit() STORE .null. to loexcel,lolibro Pero con Excel 2007 no furula..!!

Respuesta:

Mario Rodriguez

**** te mando una rutina con la que esporto mis bases de datos y le da formato a mi informaicón

**** este es el codigo:

*** variables a crear

*xc_basexlf = "vact" && nombre de la base
*xc_fxlf = "vacaciones"
*xc_nhoja = "reporte"
*xc_title = "Reporte de vacaciones"
*xc_datf1 = "Empleado: " + "RODRIGUEZ VAZQUEZ MARIO"
*xc_datf2 = "Fecha de ingreso: " + DTOC({^2002-09-11})
*xc_foot1 = "Reporte de vacaciones por empleado"

xc_datf3 = "Reporte al dia: " + DTOC(DATE())
xc_foot2 = "Creado desde "+ ccredit

#DEFINE xlAutomatic -4105
#DEFINE xlCenter -4108
#DEFINE xlLeft -4131
#DEFINE xlMedium -4138
#DEFINE xlNone -4142
#DEFINE xlPrintNoComments -4142
#DEFINE xlContinuous 1
#DEFINE xlDownThenOver 1
#DEFINE xlPaperLetter 1
#DEFINE xlLandscape 2
#DEFINE xlThin 2
#DEFINE xlThick 4
#DEFINE xlDiagonalDown 5
#DEFINE xlPaperLegal 5
#DEFINE xlDiagonalUp 6
#DEFINE xlEdgeLeft 7
#DEFINE xlEdgeTop 8
#DEFINE xlEdgeBottom 9
#DEFINE xlEdgeRight 10
#DEFINE xlInsideVertical 11
#DEFINE xlColorRojo 3
#DEFINE xlColorAzul

LOCAL num_fil

SELECT &xc_basexlf
GOTO top
num_fil = RECCOUNT()+7
num_col = fcount()

DO CASE && PARA DETERMINAR COLUMNAS COMBINADAS si hay muchos campos

CASE FCOUNT() < 27
cColu = ALLTRIM(CHR(64+FCOUNT()))
CASE BETWEEN(FCOUNT(),27,52)
cColu = CHR(65)+ALLTRIM(CHR(64+(FCOUNT()-26)))
CASE BETWEEN(FCOUNT(),53,78)
cColu = CHR(66)+ALLTRIM(CHR(64+(FCOUNT()-52)))
CASE BETWEEN(FCOUNT(),79,104)
cColu = CHR(67)+ALLTRIM(CHR(64+(FCOUNT()-78)))

OTHERWISE
cColu = "AZ"

ENDCASE

cFile = '"'+xc_fxlf + '.xls"'
cFilr = xc_fxlf + '.xls'
cFilo = '"'+xc_fxlf +'"'

IF FILE(&cFile ) = .t.
answer = MESSAGEBOX("El archivo "+ cFilr + " ya existe" + CHR(13)+;
"Pulse reintentar para eliminar el archivo actual," + CHR(13)+;
" o cancelar el proceso",21,ccredit + " Archvo existente")

DO case
CASE answer = 2
RETURN

CASE answer = 4
ERASE &cFilr
COPY TO &cFilr TYPE xl5
otherwise
RETURN

ENDCASE
else
COPY TO &cFilr TYPE xl5
ENDIF

***Ahora vamos a trabajar con una planilla ya creada. Creamos nuevamente el objeto Excel:
loExcel=CREATEOBJECT("Excel.application")
loExcel.APPLICATION.VISIBLE=.T.

**Abrimos el libro Excel que ya existe:
loExcel.APPLICATION.workbooks.OPEN(&cFilo)

**Cambiamos el nombre de la hoja activa:
loExcel.APPLICATION.activesheet.NAME = "Reporte"

**Hacemos referencia directamente a "Reporte", y ponemos valores en una celda y le damos formato:
loExcel.APPLICATION.Sheets("Reporte").Rows("1:5").Insert

**loExcel.APPLICATION.Sheets("Reporte").cells(1,1).NumberFormat = "0.00%"

XLSheet = loExcel.APPLICATION.ActiveSheet

* .LineStyle = xlContinuous
* .Weight = xlThin
* .ColorIndex = xlAutomatic

lcRango= "A1:"+ccolu+ALLTRIM(STR(num_fil))

range_s2 = "A7:"+ccolu++ALLTRIM(STR(num_fil))
range_s2r = '"'+range_s2+'"'

*range_s3 = "F7:S"+ALLTRIM(STR(num_fil))
*range_s3r = '"'+range_s3+'"'

WITH XLSheet.Range(&range_s2r)
.Font.Size= 9
.Interior.ColorIndex = 2 && 19 amarillo
.borders(4).LineStyle= 2
.borders(4).Weight = 1
.borders(4).Colorindex= 1
ENDWITH

loExcel.APPLICATION.Sheets("Reporte").cells(1,3).VALUE = xc_title
* .HorizontalAlignment=xlCenter &&Aliniar al centro *
* .VerticalAlignment=xlCenter
**** formato del encabezado principal
xc_titrg = '"c1:'+ccolu+'1"'
WITH XLSheet.Range(&xc_titrg )
.Merge
.Font.Bold=.t.
.Font.Size=16
.HorizontalAlignment=xlCenter
.Interior.ColorIndex = 20

ENDWITH

*** configurando encabezado **
xc_rhead = '"a6:'+ccolu+'6"'

WITH XLSheet.Range(&xc_rhead)
.borders(9).LineStyle= 3
.borders(9).Weight = 3
.borders(9).Colorindex= 1
.Font.Bold=.t.
.Font.Size= 9
.HorizontalAlignment=xlCenter
.Interior.ColorIndex = 15
ENDWITH

For i = 1 TO num_col
xc_headv = loExcel.APPLICATION.Sheets("Reporte").cells(6,i).VALUE
loExcel.APPLICATION.Sheets("Reporte").cells(6,i).VALUE = UPPER(ALLTRIM(xc_headv))
ENDFOR

range_sq = "A6:"+ccolu+ALLTRIM(STR(num_fil))
range_sqr = '"'+range_sq+'"'

WITH XLSheet.Range(&range_sqr).Borders(3)&&xlEdgeLeft
XLSheet.Columns().AutoFit
ENDWITH

*** .Interior.ColorIndex = 15 GRIS 10 VERDE 1 NEGRO 2 BLANCO 3 ROJO 4 VERDE CLARO
** 5 AZUL INTENSO 6 AMARILLO 7 FUISHA 8 CYAN 9 MARRON 11 AZUL FUERTE12 AMARILLO OBSCURO
** 13 MORADO 14 VERDE AZUL 16 GRIS 17 LILA 19 AMARILLO CLARO 20 AZUL

loExcel.APPLICATION.Sheets("Reporte").cells(2,4).VALUE = xc_datf1
**loExcel.APPLICATION.Sheets("Reporte").cells(1,1).NumberFormat = "#,##0.00"
loExcel.APPLICATION.Sheets("Reporte").cells(3,4).VALUE = xc_datf2
loExcel.APPLICATION.Sheets("Reporte").cells(4,4).VALUE = xc_datf3

LOCAL lcImagen, lcPlanilla, lo
*-- Selecciono imagen y nombre de planilla (xls)
lcImagen = MYPATH+"SALIDAGRAFICA.BMP" &&&GETPICT() obvio debes tener el archivo salidagrafica.bmp
*-- Selecciono la celda donde estará la posición de la imagen

loExcel.Cells(1,1).Select
loExcel.ActiveSheet.Pictures.Insert(lcImagen).Select
loExcel.Selection.ShapeRange.LockAspectRatio = 0
loExcel.Selection.ShapeRange.Height = 58 && pixeles
loExcel.Selection.ShapeRange.Width = 90 && pixeles

*** configurar area de impresion

with loExcel.APPLICATION.ActiveSheet.PageSetup
.TopMargin = 60
.BottomMargin = 80
.RightMargin = 30
.LeftMargin = 30
.LeftFooter = cempresa + " " + xc_foot1 + " - " + xc_foot2
.PrintHeadings = .f.
IF xc_land = .t. && esta variable la asigno cuando tengo muchos campos
.Orientation = xlLandscape
ENDIF
***.Orientation = xlLandscape
.PaperSize = xlPaperLetter
.PrintArea = lcRango

ENDWITH

loExcel.Cells(6,1).Select

loExcel.APPLICATION.activeworkbook.SAVE
**loExcel.APPLICATION.QUIT && las desactive para que el usuairo pueda ver archivo
**RELEASE loExcel

espero te sirva de algo
saludos : -

Respuesta:

erick teran

select cliente
go bottom
declare INTEGER ShellExecute in shell32 INTEGER handle, STRING @ oper, ;
STRING @ ifile, STRING @ iparam, STRING @ ipath, INTEGER showcmd
lcFileName = cliente.imagen
=shellexecute(0,"open",lcFileName,"","c:",1)

con ese codigo abro imagenes
solo reemplaza el nombre del archivo por el que tu quieras
te abre cualquier archivo bueno ami me lo hace
sea de excel de word de acrobat etc etc
espero te sirva
suerte

Contestar

Pregunta:	60971 - DAÑO ESTRUCTURA TABLAS FOXPRO
Autor:	Alberto Sapolin
Favor alguien me puede indicar cómo evitar que la estructura de tablas dbf se dañen por el problema baja de energia eléctrica. Existe algun comando que pueda utilizar o algun manejador de base de datos que protega la estructura de las tablas dbf. Yo utilizaba Base de Datos (DBC) pero los pase a Libres. Disminuyo los problemas de indices, pero aun tengo problemas.

Respuesta:	Javier Caballero
Este es uno de los motivos mas fuertes por lo que los DBF no son buenos para producciones de alto standart, te recomendaria una buana UPS, o migrar tu sistema a un motor de base de datos (MySQL o MS SQL) Saludos, JavierC Asunción - Paraguay

Contestar

Pregunta:	60994 - PROBLEMAS CON ACTULIZACION DE VALORES DE UN FORMULARIO A OTR
Autor:	angel silva
buenas mi problema es el siguiente: yo tengo dos formularios, uno donde se introducen datos del producto y su cantidad, y en el segundo donde se procede a retirar cierta cantidad de ese producto. El detalle es q cuando se retira cierta cantidad de algun producto en el segundo formulario la cantidad restante se tiene que reflejar en el primer formulario como cantidad existente, pero eso no sucede, el primer formulario no se esta actualizando con el monto restante, simpre muestra la primera cantidad total introducida al principio. espero puedan ayudarme con ete prioblema ya que es un trabajo para enseñar en la universidad pronto y no consigo como reparar eso.. gracias.

Respuesta:	simon ottenwarde
eso es sensillo hacerlo solamente desde el segundo formulario debe poner la siguiente intrucion en el botton para salvar datos y actualizar. select svrarart thisform.txtcanart.value=thisform.txtcanart.value-thisform.cantart.value replace svrarart.canart with thisform.txtcanart.value tableupdate(.t.) thisform.refresh

Contestar

Pregunta:	61024 - ¿COMO CREO UN FORMULARIO CIRCULAR?
Autor:	Rebe Fortín
Hola a Todos! Resulta que estoy haciendo un pequeño programa pero deseo que el formulario sea en forma circular.. Hay alguna sugerencia? Por Favor..!! Les agradecer mucho!

Respuesta:	Alejandro krawczuk
hola si estas trabajando con visual basic 6.0 existe un programa que se llama vb shaped form creator. es muy bueno yo lo uso siempre

Contestar

|< << 127 128 129 130 131 132 133 134 135 136 137 >> >|