Estimados colisteros: Tengo que reemplazar un sistema que está utilizando
una Impresora Fiscal EPSON TM2000 AF+ ( tickeadora).
Por el momento no estoy logrando que me reconozca la IF. Estoy utilizando
las librerias de Torrillo y quisiera saber si hace falta alguna librería
adicional para conectarme.
Desde ya muchas gracias por la atención.
PABLO FERNANDO ALONSO
La Segunda Coop. Ltda. Seg. Gles
División Sistemas - Area Desarrollo
Responsable U.E.S.I Comunicaciones
TE. 54 - 0341 - 4201000 (Int. 202)
mailto:palonso@...
El presente y sus adjuntos son confidenciales y exclusivamente para el
titular de la dirección de correo electrónico destinataria.- No se
garantiza la inexistencia de virus, ni la seguridad o exactitud de la
información y anexos.- El contenido del mensaje es responsabilidad
exclusiva y excluyente del emisor.-
Subject: RE: [ifclipper] Urgente Windows 2000 Professional
Sí, es lo primero que me fijé, pero en los accesos a .exe no se puede determinar el tamaño de la pantalla, solo la letra que tampoco te da bola.Tuve que hacer un emparche, llamo un bat como sigue:
c:\winnt\system32\command.com exit
cd \ps\sis\212
gestion c
y al icono le puse las propiedades 80 x 24 ...pero hace un pantallazo que quisiera evitar
Subject: [ifclipper] Urgente Windows 2000 Professional
Para que me trabaje las pantallas en dos en 80 x 24 encontré en esta lista que tengo que crear un icono ejecutando cmd.exe y luego colocarle propiedad 80 x 24. Eso anda pero luego como hago para que me tome esa esa resolución en cualquier icono de acceso al sistema en dos que tenga?
Es claro que el problema es la "falta de definicion de la variable",
Ahora, el tema es ver si aparte del ejecutable, el programador dejo para vos los fuentes, o sea el codigo puro del sistema, pues seria la manera de solucionar el tema, ahora habria que saber con que herramienta se realizo el sistema, el Valkirie, te permite saber sobre e. archivo exe, en caso de haberse realizado en clipper, creo que lo + coherente sea que llames alguien con conociemiento y te de las respuestas.
Atte.
Cesar
luchiano25ar <luchiano25ar@...> wrote:
Hola, son varias mis consultas, tengo un negocio (ferreteria) con un programa realizado por un programador hace más de 4 años el cual no puedo ubicar. Recien compramos una impresora (HP deskjet 440), nunca antes habiamos impreso con este programa, la cuestion es que cuando quiero imprimir un presupuesto o cualquier otro comprobante me da el ERROR BASE 1003/ No existe la variable: M_SNLAPSIN. Pero si puedo imprimir sin problemas las lista de Precio. Como puedo hacer hacer para saber con que programa y que version esto hecho el programa y como puedo corregir el problema. Muchas Gracias.
Para los colisteros que tenian interes en el tema del Consejo Profesional de
Ciencias Informáticas de la Provincia de Buenos Aires.
----------------------------------------------------------------------------
----------------
Estimado Colega:
Cumplimos en informar que a partir del 1 de Marzo nuestro Consejo
Profesional estará funcionando en la Calle 54 N° 570 entre 6 y 7 de la
Ciudad de La Plata.
En nuestra sede se encuentra disponible la documentación
necesaria para matricularte, en el caso que no lo haya hecho, así como
también en nuestra página oficial www.cpciba.org y contestaremos a vuestras
inquietudes en nuestra dirección de mail info@...
De todas maneras, queremos comunicarle que a partir del martes 2
de Marzo y todos los martes subsiguientes, estaremos en nuestra sede para
responder a todas las inquietudes y compartir ideas sobre nuestro consejo
en el horario de 17 a 20 hs.
A posteriori y una vez finalizada nuestra organización inicial
procederemos a realizar reuniones con los colegas del interior de la
Provincia de Buenos Aires y conurbano bonaerense, las que serán debidamente
publicitadas con anterioridad.
Sin otro particular y esperando contar con tu presencia
saludamos con distinguida consideración.
Francisco Iribarren
----------------------------------------------------------------------------
-----------------
Sí, es lo primero que me fijé, pero en los accesos a .exe no se puede determinar el tamaño de la pantalla, solo la letra que tampoco te da bola.Tuve que hacer un emparche, llamo un bat como sigue:
c:\winnt\system32\command.com exit
cd \ps\sis\212
gestion c
y al icono le puse las propiedades 80 x 24 ...pero hace un pantallazo que quisiera evitar
Subject: [ifclipper] Urgente Windows 2000 Professional
Para que me trabaje las pantallas en dos en 80 x 24 encontré en esta lista que tengo que crear un icono ejecutando cmd.exe y luego colocarle propiedad 80 x 24. Eso anda pero luego como hago para que me tome esa esa resolución en cualquier icono de acceso al sistema en dos que tenga?
Subject: [ifclipper] Urgente Windows 2000 Professional
Para que me trabaje las pantallas en dos en 80 x 24 encontré en esta lista que tengo que crear un icono ejecutando cmd.exe y luego colocarle propiedad 80 x 24. Eso anda pero luego como hago para que me tome esa esa resolución en cualquier icono de acceso al sistema en dos que tenga?
Muchas gracias a todos por sus repuestas y sugerencias, al final no
encontre los .prg. Voy a tener que cambiar el programa, pero va a
tener que ser dentro de unos meses, el problema es que tengo más de
3500 artículos.
Saludos, desde Neuquén.
Para que me trabaje las pantallas en dos en 80 x 24 encontré en esta lista que tengo que crear un icono ejecutando cmd.exe y luego colocarle propiedad 80 x 24. Eso anda pero luego como hago para que me tome esa esa resolución en cualquier icono de acceso al sistema en dos que tenga?
De: luchiano25ar
[mailto:luchiano25ar@...] Enviado el: Martes, 24 de Febrero
de 2004 11:29 p.m. Para:ifclipper@... Asunto: [ifclipper] Sobre error
Base/1003
Hola, son varias mis consultas, tengo un negocio (ferreteria) con un programa realizado por un programador hace más de
4 años el cual no puedo ubicar. Recien compramos una impresora (HP
deskjet 440), nunca antes habiamos impreso con este programa, la
cuestion es que cuando quiero imprimir un presupuesto o cualquier otro
comprobante me da el ERROR BASE 1003/ No existe la variable:
M_SNLAPSIN. Pero si puedo imprimir sin problemas las lista de Precio. Como
puedo hacer hacer para saber con que programa y que version esto
hecho el programa y como puedo corregir el problema. Muchas Gracias.
De:Juan Francolino
[mailto:jfrancolino@...] Enviado el: Miércoles, 25 de
Febrero de 2004 10:32 a.m. Para: 'ifclipper@...' Asunto: [ifclipper] Tema de la
lista
Estimados amigos,
Me parece que la lista se está desvirtuando. El tema de la
lista es Clipper y su interacción con las Impresoras Fiscales.
Recordemos que esta lista nacio como una forma de
descongestionar la
lista TODOCLIPPER sacando de la misma el tema de la s Impresoras Fiscales
que era muy específico y solo le ineteresaba a los argentinos.
La lista
TODOCLIPPER era la lista para los temas
generales de CLIPPER.
Me parece que la lista se está desvirtuando. El tema de la lista es Clipper y su interacción con las Impresoras Fiscales.
Recordemos que esta lista nacio como una forma de descongestionar la lista TODOCLIPPER sacando de la misma el tema de la s Impresoras Fiscales que era muy específico y solo le ineteresaba a los argentinos.
La lista TODOCLIPPER era la lista para los temas generales de CLIPPER.
Me parece que la lista se está desvirtuando. El tema de la lista es Clipper y su interacción con las Impresoras Fiscales.
Recordemos que esta lista nacio como una forma de descongestionar la lista TODOCLIPPER sacando de la misma el tema de la s Impresoras Fiscales que era muy específico y solo le ineteresaba a los argentinos.
La lista TODOCLIPPER era la lista para los temas generales de CLIPPER.
Me parece que la lista se está desvirtuando. El tema de la lista es Clipper y su interacción con las Impresoras Fiscales.
Recordemos que esta lista nacio como una forma de descongestionar la lista TODOCLIPPER sacando de la misma el tema de la s Impresoras Fiscales que era muy específico y solo le ineteresaba a los argentinos.
La lista TODOCLIPPER era la lista para los temas generales de CLIPPER.
Asunto: [ifclipper] Consulta Importante Sobre aperturas de bases de datos
Estimados colegas:
Suponiendo que, por ejemplo, en un programa principal poseo 5 bases de datos abiertas (en los respectivos SELECT), ¿podría yo en un módulo que es llamado por el programa principal, abrir y cerrar bases sin que se cierren las bases que se abrieron en el programa principal?-
Si se puede hacer, agradeceria me digan como.
Un saludo cordial para todos.
Marcelo Luna
_________________________________________________________________ MSN Amor: busca tu ½ naranja http://latam.msn.com/amor/
Hola, son varias mis consultas, tengo un negocio (ferreteria) con un
programa realizado por un programador hace más de 4 años el cual no
puedo ubicar. Recien compramos una impresora (HP deskjet 440), nunca
antes habiamos impreso con este programa, la cuestion es que cuando
quiero imprimir un presupuesto o cualquier otro comprobante me da el
ERROR BASE 1003/ No existe la variable: M_SNLAPSIN. Pero si puedo
imprimir sin problemas las lista de Precio. Como puedo hacer hacer
para saber con que programa y que version esto hecho el programa y
como puedo corregir el problema.
Muchas Gracias.
Estimados colegas:
Suponiendo que, por ejemplo, en un programa principal poseo 5 bases de datos
abiertas (en los respectivos SELECT), ¿podría yo en un módulo que es llamado
por el programa principal, abrir y cerrar bases sin que se cierren las bases
que se abrieron en el programa principal?-
Si se puede hacer, agradeceria me digan como.
Un saludo cordial para todos.
Marcelo Luna
_________________________________________________________________
MSN Amor: busca tu ½ naranja http://latam.msn.com/amor/
Ambos usuarios son multados con un bloqueo
temporal
De 1 semana.
La próxima voy a ser más duro.
Muchachos por favor sean más ETICOS o por
lo menos hagan las cosas en privado.
Claudio Torrillo
The Owner
De: Sergio Cedrola
[mailto:sergio@...] Enviado el: Martes, 24 de Febrero
de 2004 02:01 p.m. Para: 'ifclipper@...' Asunto: RE: [ifclipper] off topic
WALKYRIE
Pedro: muchas gracias por tu pronta respuesta; desde
luego, enviame lo que tengas. Si necesitas algo, no dudes en pedirlo
--> -----Mensaje original----- --> De: Pedro M. T.
[mailto:pedromt@...] --> Enviado el: Martes, 24 de Febrero de 2004
01:48 p.m. --> Para: Sergio Cedrola --> Asunto: Re: [ifclipper] off topic WALKYRIE --> --> --> Estimado Sergio, --> --> Con fecha Martes, 24 de Febrero de 2004,
11:54:54 a.m., escribió: --> --> SC> Gente de la lista: --> --> SC> estoy buscando el de-compilador
Walkyrie; alguien me --> puede indicar como --> SC> conseguirlo- gratis? Hay algun lugar
donde se pueda --> bajar una copia full --> SC> featured- no una simple demo? --> SC> Desde ya muchas gracias a todos --> --> Yo lo tengo. Creo que es el Full. No soy
muy ducho en este --> decompilador. Lo estuve probando y no dio
ningun aviso de share o --> demo, etc. --> Si queres te lo puedo enviar. --> --> -- --> Saludos, -->
Pedro
mailto:pedromt@... --> --> --> --> --> Yahoo! Grupos Enlaces --> --> Para visitar tu grupo en Internet, vé a: --> http://ar.groups.yahoo.com/group/ifclipper/ --> --> Para cancelar tu suscripción a este grupo,
enviá un mensaje a: -->
ifclipper-unsubscribe@... --> --> El uso de Yahoo! Grupos se rige por: --> http://ar.docs.yahoo.com/info/utos.html -->
Pedro:
muchas gracias por tu pronta respuesta; desde luego, enviame lo que tengas.
Si necesitas algo, no dudes en pedirlo
--> -----Mensaje original-----
--> De: Pedro M. T. [mailto:pedromt@...]
--> Enviado el: Martes, 24 de Febrero de 2004 01:48 p.m.
--> Para: Sergio Cedrola
--> Asunto: Re: [ifclipper] off topic WALKYRIE
-->
-->
--> Estimado Sergio,
-->
--> Con fecha Martes, 24 de Febrero de 2004, 11:54:54 a.m., escribió:
-->
--> SC> Gente de la lista:
-->
--> SC> estoy buscando el de-compilador Walkyrie; alguien me
--> puede indicar como
--> SC> conseguirlo- gratis? Hay algun lugar donde se pueda
--> bajar una copia full
--> SC> featured- no una simple demo?
--> SC> Desde ya muchas gracias a todos
-->
--> Yo lo tengo. Creo que es el Full. No soy muy ducho en este
--> decompilador. Lo estuve probando y no dio ningun aviso de share o
--> demo, etc.
--> Si queres te lo puedo enviar.
-->
--> --
--> Saludos,
--> Pedro mailto:pedromt@...
-->
-->
-->
-->
--> Yahoo! Grupos Enlaces
-->
--> Para visitar tu grupo en Internet, vé a:
--> http://ar.groups.yahoo.com/group/ifclipper/
-->
--> Para cancelar tu suscripción a este grupo, enviá un mensaje a:
--> ifclipper-unsubscribe@...
-->
--> El uso de Yahoo! Grupos se rige por:
--> http://ar.docs.yahoo.com/info/utos.html
-->
Me parece que el tenor de estos mensajes es para tratarlo en forma privada y
no a traves de esta lista cuyo fin no es la pirateria.
Atentamente,
Juan Francolino
-----Mensaje original-----
De: Pedro M. T. [mailto:pedromt@...]
Enviado el: Martes 24 de Febrero de 2004 13:48
Para: Sergio Cedrola
Asunto: Re: [ifclipper] off topic WALKYRIE
Estimado Sergio,
Con fecha Martes, 24 de Febrero de 2004, 11:54:54 a.m., escribió:
SC> Gente de la lista:
SC> estoy buscando el de-compilador Walkyrie; alguien me puede indicar como
SC> conseguirlo- gratis? Hay algun lugar donde se pueda bajar una copia full
SC> featured- no una simple demo?
SC> Desde ya muchas gracias a todos
Yo lo tengo. Creo que es el Full. No soy muy ducho en este
decompilador. Lo estuve probando y no dio ningun aviso de share o
demo, etc.
Si queres te lo puedo enviar.
--
Saludos,
Pedro mailto:pedromt@...
Yahoo! Grupos Enlaces
Para visitar tu grupo en Internet, vé a:
http://ar.groups.yahoo.com/group/ifclipper/
Para cancelar tu suscripción a este grupo, enviá un mensaje a:
ifclipper-unsubscribe@...
El uso de Yahoo! Grupos se rige por:
http://ar.docs.yahoo.com/info/utos.html
Estimado Sergio,
Con fecha Martes, 24 de Febrero de 2004, 11:54:54 a.m., escribió:
SC> Gente de la lista:
SC> estoy buscando el de-compilador Walkyrie; alguien me puede indicar como
SC> conseguirlo- gratis? Hay algun lugar donde se pueda bajar una copia full
SC> featured- no una simple demo?
SC> Desde ya muchas gracias a todos
Yo lo tengo. Creo que es el Full. No soy muy ducho en este
decompilador. Lo estuve probando y no dio ningun aviso de share o
demo, etc.
Si queres te lo puedo enviar.
--
Saludos,
Pedro mailto:pedromt@...
Muchas gracias por el dato, pensé que clipper no verificaba los años
bisiestos.
Un saludo cordial.
Marcelo
_________________________________________________________________
MSN Amor: busca tu ½ naranja http://latam.msn.com/amor/
En otras palabras si hacemos DTOS() del 29
de febrero del año a consultar simplemente nos retorna la fecha en ANSI YYYYMMDD
si es válida, sino retorna una string vacía.
Claudio Torrillo
De: Juan
Francolino [mailto:jfrancolino@...] Enviado el: Sábado, 21 de Febrero
de 2004 06:18 p.m. Para: 'ifclipper@...' Asunto: RE: [ifclipper] consulta
sobre fechas
Realmente me han
dejado muy preocupado con este tema de los años bisiestos.
Ahora tengo que
ponerme a controlar si mis programas en CLIPPER para IMPRESORAS FISCALES
son año 2100 compatibles.
-----Mensaje original----- De: Eduardo Rizzolo
[mailto:fullpaint@...] Enviado el: Sábado 21 de Febrero
de 2004 09:05 Para: ifclipper@... Asunto: Re: [ifclipper] consulta
sobre fechas
Sorry aca esta
como corresponde despues de las sugerencias aca esta la correccion, perdon
por lo que mande antes, lo hice sin meditar mucho, pero me di cuenta despues
de enviar
func main()
local nYear
cls
FOR nYear := 1900 TO 2004
if
lBisiesto(nYear)
?? nYear
endif
NEXT
return NIL
func
lBisiesto(nYear)
local lBisiesto := .F.
if nYear %
4 == 0
if nYear % 100 == 0
if nYear % 400 == 0
lBisiesto := .T.
endif
else
lBisiesto := .T.
endif
endif
No tengo muy
claras las reglas de año bisiesto, ya que no lo uso, solo hice este ejemplo
para ayudar. Pero de todas formas segun lo mencionado hay que hacer la
siguiente correccion, si mal no entendi:
func main()
local i
FOR i :=
1900 TO 2004
if i % 4 == 0 .and. i % 4 == 400 .and. i % 4 == 100
Estimados
Colegas:
quisiera hacerles la siguiente consulta, ¿existe
alguna formula o procedimiento para saber, dado un año, si este mismo año es
bisiesto o no?, además, ¿existe alguna formula o procedimiento para calcula
los días de cada mes?. Va otra más, ¿existe alguna formula o procedimiento
para obtener la edad de una persona dada la fecha de nacimiento solamente?.
Agradeceré me ayuden con esto por favor.
Un saludo cordial para todos.
Marcelo Luna
_________________________________________________________________
MSN Amor: busca tu ½ naranja http://latam.msn.com/amor/
Estimados colegas:
Les agradezco mucho la ayuda con los años bisiestos y demas cuestiones con
el tema de fechas, veo el apoyo incondicional de todos, y esto es muy
importante.
Un saludo cordial para todos.
Marcelo Luna
Neuquen Capital
_________________________________________________________________
MSN Amor: busca tu ½ naranja http://latam.msn.com/amor/
PEDRO, MUCHAS GRACIAS POR TU AYUDA, Y ENCANTADO DE CONOCERTE.
UN SALUDO CORDIAL.
MARCELO
_________________________________________________________________
Charla con tus amigos en línea mediante MSN Messenger:
http://messenger.latam.msn.com/
Juan, desde ya muchas gracias por tu respuesta, muchas gracias.
Marcelo
_________________________________________________________________
Charla con tus amigos en línea mediante MSN Messenger:
http://messenger.latam.msn.com/
Realmente me han dejado muy preocupado con este tema de los años bisiestos.
Ahora tengo que ponerme a controlar si mis programas en CLIPPER para IMPRESORAS FISCALES son año 2100 compatibles.
-----Mensaje original----- De: Eduardo Rizzolo [mailto:fullpaint@...] Enviado el: Sábado 21 de Febrero de 2004 09:05 Para: ifclipper@... Asunto: Re: [ifclipper] consulta sobre fechas
Sorry aca esta como corresponde despues de las sugerencias aca esta la correccion, perdon por lo que mande antes, lo hice sin meditar mucho, pero me di cuenta despues de enviar
func main() local nYear
cls FOR nYear := 1900 TO 2004
if lBisiesto(nYear) ?? nYear endif
NEXT
return NIL
func lBisiesto(nYear) local lBisiesto := .F.
if nYear % 4 == 0 if nYear % 100 == 0 if nYear % 400 == 0 lBisiesto := .T. endif else lBisiesto := .T. endif endif
No tengo muy claras las reglas de año bisiesto, ya que no lo uso, solo hice este ejemplo para ayudar. Pero de todas formas segun lo mencionado hay que hacer la siguiente correccion, si mal no entendi:
func main()
local i
FOR i := 1900 TO 2004 if i % 4 == 0 .and. i % 4 == 400 .and. i % 4 == 100
Estimados Colegas: quisiera hacerles la siguiente consulta, ¿existe alguna formula o procedimiento para saber, dado un año, si este mismo año es bisiesto o no?, además, ¿existe alguna formula o procedimiento para calcula los días de cada mes?. Va otra más, ¿existe alguna formula o procedimiento para obtener la edad de una persona dada la fecha de nacimiento solamente?. Agradeceré me ayuden con esto por favor. Un saludo cordial para todos.
Marcelo Luna
_________________________________________________________________ MSN Amor: busca tu ½ naranja http://latam.msn.com/amor/
Estimado Marcelo y a todos!
Hace apenas unos dias me suscribi a esta lista. Hace mas de 5 años que
no programo en clipper. Espero recuperar conocimiento olvidado ;) y
ayudar cuando pueda.
Con fecha Viernes, 20 de Febrero de 2004, 03:01:18 p.m., escribió:
MFL> Estimados Colegas: quisiera hacerles la siguiente consulta,
MFL> ¿existe alguna formula o procedimiento para saber, dado un año,
MFL> si este mismo año es bisiesto o no?, además, ¿existe alguna
MFL> formula o procedimiento para calcula los días de cada mes?. Va
MFL> otra más, ¿existe alguna formula o procedimiento para obtener la
MFL> edad de una persona dada la fecha de nacimiento solamente?.
MFL> Agradeceré me ayuden con esto por favor. Un saludo cordial para
MFL> todos.
Sobre lo del año bisiesto ya te contestaron, agrego nomas....
Sobre los dias de cada mes, si lo que queres es saber la cantidad de
dias del mes actual, se me ocurre que tengas una array estatica con la
cantidad de dias de cada mes; y pensando que en la posicion 1 estara
los dias del mes 1, en la 2 del mes 2, etc.... asi:
STATIC aDiasDelMes := { 31, 28, 31, .... }
Tonces cuando queres saber los dias de un mes específico:
TieneDias := aDiasDelMes[month(date())]
En el caso anterior obviente la cantidad de dias del mes actual.
Mount() devuelve el mes actual en numero. Y date() la fecha actual
obviamente.
Sobre la edad... es mas complicado, porque hay que averiguar si ya
cumplió los años o no. Supongamos que tenes la fecha de nacimiento en
la variable FechaNac que esta en formato fecha...
Function QueEdad(FechaNac)
Local Edad
if Month(Fechanac) = Month(date())
if Day(FechaNac) <= Day(date())
Edad := Year(date()) - Year(FechaNac)
return(Edad)
endif
endif
Edad := if(Month(Fechanac) < Month(date()),;
Year(date()) - Year(FechaNac),;
(Year(date()) - 1) - Year(FechaNac))
Return(Edad)
Esta función QueEdad recibe de un procedimiento la fecha de nacimiento
y devuelve la edad.
--
Saludos,
Pedro mailto:pedromt@...
Segun mensaje recibido de Marcelo:
Estimados Colegas: Quisiera hacerles la siguiente consulta, ¿existe alguna
formula o procedimiento para saber, dado un año, si este
mismo año es bisiesto o no?, además, ¿existe alguna formula o procedimiento para
calcula los días de cada mes?. Va otra más,
¿existe alguna formula o procedimiento para obtener la edad de una persona dada
la fecha de nacimiento solamente?. Agradeceré me
ayuden con esto por favor. Un saludo cordial para todos.
RESPUESTA:
Para calcular los dias de cada mes, o saber cuantos tienen cada dia hay algo
simple
Function lesBisiesto(nYear)
if valtype(nYear)="D"
nYear:=year(nYear)
endif
RETURN !EMPTY(STOD(STRZERO(nYEAR,4)+"0229"))
Function DiasdelMes(dFecha)
LOCAL nYear:=0,nMonth:=0
If valtype(dFecha)="D"
nYear:=year(dFecha)
nMonth:=Month(dFecha)
elseIf valtype(dFecha)="N" ///SE PASO NUMERO DE MES
nYear:=year(DATE())
nMonth:=dFecha
endif
FOR I=31 TO 28 STEP -1
IF !EMPTY(STOD(STRZERO(NYEAR,4)+STRZERO(NMONTH,2)+STRZERO(I,2)))
RETURN (I)
ENDIF
NEXT
RETURN 0
*----------------------¦ FUNCION DE CALCULO DE LA EDAD +-----------------------*
* AEDAD(<desde fecha>,<hasta fecha>) -> Array con Años, meses y días.
FUNCTION aEDAD(dF1,dF2)
LOCAL AEDAD:={0,0,0},ZDANO,ZHANO
DEFAULT dF2:=XDATE()
IF EMPTY(DF1)
RETURN AEDAD
ENDIF
///CALCULO AÑOS...
TEMP=STOD(STR(YEAR(DF2),4)+RIGHT(DTOS(DF1),4))
IF EMPTY(TEMP) ///PUEDE SER VACIA, SI ES 29 DE FEBRERO, Y HOY NO ES BICIESTO !
TEMP=STOD(STR(YEAR(DF2),4)+RIGHT(DTOS(DF1-1),4))
ENDIF
IF TEMP>DF2
TEMP=STOD(STR(YEAR(DF2)-1,4)+RIGHT(DTOS(DF1),4))
IF EMPTY(TEMP) ///PUEDE SER VACIA, SI ES 29 DE FEBRERO, Y HOY NO ES BICIESTO
TEMP=STOD(STR(YEAR(DF2)-1,4)+RIGHT(DTOS(DF1-1),4))
ENDIF
ENDIF
AEDAD[1]=YEAR(TEMP)-YEAR(DF1) //AÑOS!
///CALCULO MESES
DO WHILE ADDMONTH(TEMP,1)<DF2
AEDAD[2]++
TEMP=ADDMONTH(TEMP,1)
ENDDO
AEDAD[3]=DF2-TEMP //DIAS !
RETURN AEDAD
/// Por si no tienen la función...
///CONVIERTE UNA CADENA FECHA TIPO YYYYMMDD -> 20031128 EN FECHA !
FUNC STOD(C)
LOCAL cANT:=SET(_SET_DATEFORMAT),DRET
SET(_SET_DATEFORMAT,'DD/MM/YYYY')
DRET:=CTOD(SUBSTR(C,7,2)+'/'+SUBSTR(C,5,2)+'/'+SUBSTR(C,1,4))
SET(_SET_DATEFORMAT,cANT)
RETURN DRET
Bueno espero te sirva y le sirva al resto del Foro...
SALUDOS !
DARIO IRIGARAY DE NEUQUEN ARGENTINA
Gracias Juan, tambien tengo los manuales de la ecr , el caso es que ando con escaso tiempo para desarrollar prg, pero bueno no queda otra, gracias igualmente.
Cesar
José Andres Tapia <ariesoft@...> wrote:
Conosco un par de aplicaciones, una se llama MAKET y otra FERRUM, en todo caso si te interesa, te puedo enviar alguna demo, y en otro caso, tengo manuales sobre el protocolo de comunicaciones para crear el driver. Saludos, y suerte Jose Andres Tapia
_________________________________________________________________ Charla con tus amigos en línea mediante MSN Messenger: http://messenger.latam.msn.com/
Enviar correo
Sin conexión 
