|
|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - SUMANDO
Páginas: [1]
1
« en: Lunes 31 de Mayo de 2004, 03:48 »
Saludos Vendo Sistema de Consultorios Médicos completo Con su código fuente incluido para que puedan modificarlo. . Multiusuario . Multiples especialidades médicas . Permite crear Medicinas del médico . Maneja imagenes y videos . incluye ayuda en línea y manuales (en formato .doc) . Diagnósticos personalizados por el médico . Clasificación Internacional de enfermedades . Permite la creación de Cuestionarios con los que el médico crea sus informes médicos, reposos, constancias, y todos los informes que necesite. . Permite realizar respaldos, recuperaciones, editar informes, entre otros... Costo: 500 US$ Forma de pago: Western Union Pais de origen: Venezuela Contacto: Ing. Jesús Martínez Seijas integro_j@cantv.netCelular: 58 416 8482655
2
« en: Lunes 31 de Mayo de 2004, 03:30 »
Hola a todos los FOXEROS. He estado fuera de mi país por un tiempo y los he tenido un poco descuidados. Por fortuna, ya regresé y por fin pude enviar el codigo fuente a los que lo solicitaron a traves de jmartinezs@cantv.net. Sólo es a través de este correo que envio el código, ya que me es mucho más fácil de esa manera y que así puedo tener un control de los programadores que lo solicitaron. Espero lo mejor para todos, Jesús
3
« en: Sábado 13 de Marzo de 2004, 19:18 »
Vendo a precio muy económico Sistema muy completo para Consultorios Médicos. Se incluyen los fuentes. Desarrollado en Visual FoxPro 7. Lleva los datos personales del paciente, antecedentes configurables por el usuario, consultas, agenda de citas, agenda telefónica, imagenes & videos, facturación, cuentas por cobrar, informes médicos personalizados por el médico, listado de medicinas actualizadas. Presto asesoria postventa, por medio de correo electrónico. Precio: US$ 400 Se acepta pago por medio de depósito bancario o por Western Union. Para mayor información: softwarevenezuela.yahoo.com
4
« en: Jueves 11 de Marzo de 2004, 17:01 »
Para insertar un botón de comando dentro de un grid se hace click con el boton derecho del raton sobre el grid y se selecciona "modificar", después haces click sobre la columna en la que vas a insertar el "commandbutton", seleccionas el icono correspondiente al boton de comando en la persiana COntroles de formulario y luego haces cliock de nuevo sobre la columna en la que vas a insertarlo.
Si deseas eliminar el textbox original que se crea por defecto en la columna, en la persiana "Propiedades" ubicate sobre el control "Text1" que está dentro de la columna correspondiente, luego haz click de nuevo sobre la columna y pulsa la tecla "suprimir". Esto bastará para que ya no tengas el textbox en la columna.
Es recomendable que leas algo sobre las propiedades SPARSE y CURRENTCONTROL, estas propiedades son de la columna.
Cualquier cosa pega un grito...
5
« en: Jueves 9 de Octubre de 2003, 22:53 »
Saludos desde Venezuela. Pongo a sus ordenes el código fuente de un pequeño sistema administrativo que estoy desarrollando para uno de mis clientes. OJO: ES GRATIS. Pueden usarlo para aprender VFP o ganar algo de dinero en sus localidades. La aplicación está desarrollada en VFP 7 (no proveo soporte). Es muy simple, espero les agrade. Solicitar el archivo .ZIP a jmartinezs@cantv.net
6
« en: Jueves 28 de Agosto de 2003, 15:43 »
Hola, cambié un poco tu código, revisa si esto te sirve:
SELECT ALUMNOS
GO TOP
XFILTER = ""
IF !EMPTY(MPERIODOFIL)
XFILTER = "ALLTRIM(UPPER(PERIODO))=ALLTRIM(UPPER(MPERIODOFIL))"
ENDIF
IF !EMPTY(MCVE_ACTFIL)
XFILTER = IIF(EMPTY(XFILTER),""," AND ")+;
"ALLTRIM(UPPER(CVE_ACT))=ALLTRIM(UPPER(MCVE_ACTFIL))"
ENDIF
IF !EMPTY(MAÑOFIL)
XFILTER = IIF(EMPTY(XFILTER),""," AND ")+;
"AÑO=MAÑOFIL"
ENDIF
SET FILTER TO &XFILTER
THISFORM.RELEASE
=============================
PREGUNTA: ¿No te conviene más usar vistas?
7
« en: Jueves 28 de Agosto de 2003, 15:36 »
Saludos Vendo Sistema de Consultorios Médicos completo (ver características en www.integromed.web1000.com). Con su código fuente incluido para que puedan modificarlo. . Multiusuario . Multiples especialidades médicas . Permite crear Medicinas del médico . Maneja imagenes y videos . incluye ayuda en línea y manuales (en formato .doc) . Diagnósticos personalizados por el médico . Clasificación Internacional de enfermedades . Permite la creación de Cuestionarios con los qaue el médico crea sus informes médicos, reposos, constancias, y todos los informes que necesite. . Permite realizar respaldos, recuperaciones, editar informes, ... Costo: 1.500 US$ Forma de pago: Western Union Pais de origen: Venezuela Contacto: Ing. Jesús Martínez Seijas jmartinezs@cantv.netCelular: 58 416 8482655
8
« en: Jueves 28 de Agosto de 2003, 15:32 »
Hola,
Cuando yo necesito hacer eso creo un cursor temporal con:
CREATE CURSOR TEMP (EQUIS C(10))
SELECT TEMP
APPEND BLANK
Ya puede emitir el reporte, va a salir un sólo registro (en blanco). En el reporte puedes incorporar las variables que tengas definidas en el programa sin problema.
No estoy seguro que esto responda tu pregunta, espero que si.
Chao
9
« en: Jueves 28 de Agosto de 2003, 15:27 »
Ok, Aqui tye va el código:
Esta rutina la uso para imprimir cheques, por eso sale Bs. (Venezuela).
PARAMETER XNUM
DECLARE U(10),D(10),C(10),E(10)
U(1) = ""
U(2) = "UNO"
U(3) = "DOS"
U(4) = "TRES"
U(5) = "CUATRO"
U(6) = "CINCO"
U(7) = "SEIS"
U(8) = "SIETE"
U(9) = "OCHO"
U(10) = "NUEVE"
***----
D(1) = ""
D(2) = "DIEZ"
D(3) = "VEINTE"
D(4) = "TREINTA"
D(5) = "CUARENTA"
D(6) = "CINCUENTA"
D(7) = "SESENTA"
D(8) = "SETENTA"
D(9) = "OCHENTA"
D(10) = "NOVENTA"
***-----
C(1) = ""
C(2) = "CIENTO"
C(3) = "DOSCIENTOS"
C(4) = "TRESCIENTOS"
C(5) = "CUATROCIENTOS"
C(6) = "QUINIENTOS"
C(7) = "SEISCIENTOS"
C(8) = "SETECIENTOS"
C(9) = "OCHOCIENTOS"
C(10) = "NOVECIENTOS"
***-------
E(1) = "DIEZ"
E(2) = "ONCE"
E(3) = "DOCE"
E(4) = "TRECE"
E(5) = "CATORCE"
E(6) = "QUINCE"
E(7) = "DIECISEIS"
E(8) = "DIECISIETE"
E(9) = "DIECIOCHO"
E(10) = "DIECINUEVE"
***-------
M4 = INT(XNUM / 1000000000)
M3 = INT(XNUM / 1000000) - (M4 * 1000)
M2 = INT(XNUM / 1000) - (M3 * 1000) - (M4 * 1000000)
M1 = INT(XNUM) - (M2 * 1000) - (M3 * 1000000) - (M4 * 1000000000)
XCS = INT((XNUM - INT(XNUM))*100)
XR2 = ""
IF !EMPTY(M4)
XR2 = XR2 + TRIO(M4,.F.) + " MIL "
ENDIF
IF !EMPTY(M3)
XR2 = XR2 + TRIO(M3,.F.) + IIF(M3=1," MILLON "," MILLLONES ")
ENDIF
IF !EMPTY(M2)
XR2 = XR2 + TRIO(M2,.F.) + " MIL "
ENDIF
IF !EMPTY(M1)
XR2 = XR2 + TRIO(M1,.T.)
ENDIF
* ANEXAR LOS CENTIMOS
XR2 = XR2 + " BOLIVARES CON " + STRTRAN(STR(XCS,2,0)," ","0") + "/100 CENTIMOS"
DO WHILE AT(" ",XR2) > 0
XR2 = STRTRAN(XR2," "," ")
ENDDO
RETURN XR2
FUNCTION TRIO
PARAMETER NUMERO,XUNO
U(2) = IIF(XUNO,"UNO","UN")
X3 = INT(NUMERO / 100)
X2 = INT(NUMERO / 10) - X3*10
X1 = NUMERO - X3*100 - X2*10
XR = ""
*****
DO CASE
CASE NUMERO = 100
XR = "CIEN"
OTHER
XR = C(X3+1) + " "
IF X2 = 1
XR = XR + E(X1+1)
ELSE
XR = XR + D(X2+1) + IIF(X1>0 AND X2>0," Y ","") + U(X1+1)
ENDIF
ENDCASE
RETURN XR
10
« en: Jueves 28 de Agosto de 2003, 15:25 »
Ok. Aquí te va el código:
PARAMETERS XNUM
* CONVIERTE NUMERO DECIMAL A ROMANOS
DIMENSION NUMEROS(13),ROMANOS(13)
NUMEROS(1) = 1
NUMEROS(2) = 4
NUMEROS(3) = 5
NUMEROS(4) = 9
NUMEROS(5) = 10
NUMEROS(6) = 40
NUMEROS(7) = 50
NUMEROS(8) = 90
NUMEROS(9) = 100
NUMEROS(10) = 400
NUMEROS(11) = 500
NUMEROS(12) = 900
NUMEROS(13) = 1000
ROMANOS(1) = "I"
ROMANOS(2) = "IV"
ROMANOS(3) = "V"
ROMANOS(4) = "IX"
ROMANOS(5) = "X"
ROMANOS(6) = "XL"
ROMANOS(7) = "L"
ROMANOS(8) = "XC"
ROMANOS(9) = "C"
ROMANOS(10) = "CD"
ROMANOS(11) = "D"
ROMANOS(12) = "CM"
ROMANOS(13) = "M"
XROM = ""
FOR I = 13 TO 1 STEP -1
DO WHILE XNUM >= NUMEROS(I)
XNUM = XNUM - NUMEROS(I)
XROM = XROM + ROMANOS(I)
ENDDO
NEXT I
RETURN XROM
11
« en: Jueves 28 de Agosto de 2003, 15:24 »
Ok. Aquí te va el código
PARAMETERS XNUM
XBIN = ""
DO WHILE XNUM > 0
XRES = MOD(XNUM,2)
XBIN = STR(XRES,1,0) + XBIN
XNUM = INT(XNUM/2)
ENDDO
RETURN XBIN
Páginas: [1]
|
|
|
Mostrar Mensajes
