Xailer & OZ Software

El entorno de desarrollo definitivo en Xbase
https://forum.xailer.com/

Macro

https://forum.xailer.com/viewtopic.php?t=2755

Página 1 de 1

Macro

Publicado: Jue Jul 27, 2006 7:28 pm
por Rolando
Hola: tengo que hacer algo asi, alguna idea?. Gracias
METHOD MaxMod()
LOCAL cDia, cHoraIni, cHoraFin, a, lResp := .f.
for a := 1 to 6
cDia := {"LU", "MA", "MI","JU", "VI","SA" }[a]
cHoraIni := "::oDataProf:"+cDia+"HORAINI"
cHoraFin := "::oDataProf:"+cDia+"HORAFIN"
if &cHoraIni. <> "00:00" .and. ! empty( &cHoraIni. ) //Produce error:
variable SELF no existe
if val(::oMaskEdit1:value) <= ;
positur( &cHoraIni., &cHoraFin.,
val(substr(::oDataProf:lapso,4,2)))
lResp := .t.
exit
endif
endif
next
RETURN lResp
--
Rolando Sarrailh
Teléfono,
int. +54-221-489-1480
nac. 0221-489-1480
loc. 489-1480
rsarrailh@gmail.com

Macro

Publicado: Jue Jul 27, 2006 8:07 pm
por jose.luis
Rolando,
Una vez hice yo la misma cuestión a José Giménez y éste me respondió:
"Deberías saber que no se pueden usar variables locales con las macros"
Y efectivamente... no se pueden usar locales con macros.
Puedes hacer lo siguiente (es solo un ejemplo que puede tener fallos)
METHOD MaxMod()
LOCAL a, lResp := .f., cDia
#pragma ENABLEWARNINGS=OFF // para evitar warnings
PRIVATE cHoraIni, cHoraFin
for a := 1 to 6
cDia := {"LU", "MA", "MI","JU", "VI","SA" }[a]
cHoraIni := "::oDataProf:"+cDia+"HORAINI"
cHoraFin := "::oDataProf:"+cDia+"HORAFIN"
if &cHoraIni. <> "00:00" .and. ! empty( &cHoraIni. ) //Produce error:
variable SELF no existe
if val(::oMaskEdit1:value) <= ;
positur( &cHoraIni., &cHoraFin.,
val(substr(::oDataProf:lapso,4,2)))
lResp := .t.
exit
endif
endif
next
#pragma ENABLEWARNINGS=ON
RETURN lResp
Mira a ver si así te funciona.
Saludos,
José Luis Capel
"Rolando Sarrailh" <rsarrailh@gmail.com> escribió en el mensaje
news:[email=44c8f7ba@news.xailer.com...]44c8f7ba@news.xailer.com...[/email]
> Hola: tengo que hacer algo asi, alguna idea?. Gracias
>
> METHOD MaxMod()
> LOCAL cDia, cHoraIni, cHoraFin, a, lResp := .f.
> for a := 1 to 6
> cDia := {"LU", "MA", "MI","JU", "VI","SA" }[a]
> cHoraIni := "::oDataProf:"+cDia+"HORAINI"
> cHoraFin := "::oDataProf:"+cDia+"HORAFIN"
> if &cHoraIni. <> "00:00" .and. ! empty( &cHoraIni. ) //Produce error:
> variable SELF no existe
> if val(::oMaskEdit1:value) <= ;
> positur( &cHoraIni., &cHoraFin.,
> val(substr(::oDataProf:lapso,4,2)))
> lResp := .t.
> exit
> endif
> endif
> next
> RETURN lResp
>
>
>
> --
> Rolando Sarrailh
> Teléfono,
> int. +54-221-489-1480
> nac. 0221-489-1480
> loc. 489-1480
> rsarrailh@gmail.com
>

Macro

Publicado: Jue Jul 27, 2006 8:13 pm
por jose.luis
Otra vez yo....
Mirando mejor el tema... Creo que podrías probar lo siguiente (no lo he
probado)
cHoraIni := __ObjSendMsg( Self, "oDataPRof" + cDia+"HORAINI" )
cHoraFin := __ObjSendMsg( Self, "oDataPRof" + cDia+"HORAFIN" )
Saludos,
José Luis Capel
"José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
news:44c900bd$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Rolando,
>
> Una vez hice yo la misma cuestión a José Giménez y éste me respondió:
>
> "Deberías saber que no se pueden usar variables locales con las macros"
>
> Y efectivamente... no se pueden usar locales con macros.
>
> Puedes hacer lo siguiente (es solo un ejemplo que puede tener fallos)
>
> METHOD MaxMod()
>
> LOCAL a, lResp := .f., cDia
> #pragma ENABLEWARNINGS=OFF // para evitar warnings
>
> PRIVATE cHoraIni, cHoraFin
> for a := 1 to 6
> cDia := {"LU", "MA", "MI","JU", "VI","SA" }[a]
> cHoraIni := "::oDataProf:"+cDia+"HORAINI"
> cHoraFin := "::oDataProf:"+cDia+"HORAFIN"
> if &cHoraIni. <> "00:00" .and. ! empty( &cHoraIni. ) //Produce error:
> variable SELF no existe
> if val(::oMaskEdit1:value) <= ;
> positur( &cHoraIni., &cHoraFin.,
> val(substr(::oDataProf:lapso,4,2)))
> lResp := .t.
> exit
> endif
> endif
> next
> #pragma ENABLEWARNINGS=ON
>
> RETURN lResp
>
> Mira a ver si así te funciona.
>
> Saludos,
> José Luis Capel
>
>
> "Rolando Sarrailh" <rsarrailh@gmail.com> escribió en el mensaje
> news:[email=44c8f7ba@news.xailer.com...]44c8f7ba@news.xailer.com...[/email]
>> Hola: tengo que hacer algo asi, alguna idea?. Gracias
>>
>> METHOD MaxMod()
>> LOCAL cDia, cHoraIni, cHoraFin, a, lResp := .f.
>> for a := 1 to 6
>> cDia := {"LU", "MA", "MI","JU", "VI","SA" }[a]
>> cHoraIni := "::oDataProf:"+cDia+"HORAINI"
>> cHoraFin := "::oDataProf:"+cDia+"HORAFIN"
>> if &cHoraIni. <> "00:00" .and. ! empty( &cHoraIni. ) //Produce error:
>> variable SELF no existe
>> if val(::oMaskEdit1:value) <= ;
>> positur( &cHoraIni., &cHoraFin.,
>> val(substr(::oDataProf:lapso,4,2)))
>> lResp := .t.
>> exit
>> endif
>> endif
>> next
>> RETURN lResp
>>
>>
>>
>> --
>> Rolando Sarrailh
>> Teléfono,
>> int. +54-221-489-1480
>> nac. 0221-489-1480
>> loc. 489-1480
>> rsarrailh@gmail.com
>>
>
>

Macro

Publicado: Jue Jul 27, 2006 9:07 pm
por Rolando
Desgraciadamente no funciona de ninguna forma, Gracias igual José Luis.
"José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
news:[email=44c9021f@news.xailer.com...]44c9021f@news.xailer.com...[/email]
> Otra vez yo....
>
> Mirando mejor el tema... Creo que podrías probar lo siguiente (no lo he
> probado)
>
> cHoraIni := __ObjSendMsg( Self, "oDataPRof" + cDia+"HORAINI" )
> cHoraFin := __ObjSendMsg( Self, "oDataPRof" + cDia+"HORAFIN" )
>
> Saludos,
> José Luis Capel
>
>
> "José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
> news:44c900bd$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> Rolando,
>>
>> Una vez hice yo la misma cuestión a José Giménez y éste me respondió:
>>
>> "Deberías saber que no se pueden usar variables locales con las macros"
>>
>> Y efectivamente... no se pueden usar locales con macros.
>>
>> Puedes hacer lo siguiente (es solo un ejemplo que puede tener fallos)
>>
>> METHOD MaxMod()
>>
>> LOCAL a, lResp := .f., cDia
>> #pragma ENABLEWARNINGS=OFF // para evitar warnings
>>
>> PRIVATE cHoraIni, cHoraFin
>> for a := 1 to 6
>> cDia := {"LU", "MA", "MI","JU", "VI","SA" }[a]
>> cHoraIni := "::oDataProf:"+cDia+"HORAINI"
>> cHoraFin := "::oDataProf:"+cDia+"HORAFIN"
>> if &cHoraIni. <> "00:00" .and. ! empty( &cHoraIni. ) //Produce error:
>> variable SELF no existe
>> if val(::oMaskEdit1:value) <= ;
>> positur( &cHoraIni., &cHoraFin.,
>> val(substr(::oDataProf:lapso,4,2)))
>> lResp := .t.
>> exit
>> endif
>> endif
>> next
>> #pragma ENABLEWARNINGS=ON
>>
>> RETURN lResp
>>
>> Mira a ver si así te funciona.
>>
>> Saludos,
>> José Luis Capel
>>
>>
>> "Rolando Sarrailh" <rsarrailh@gmail.com> escribió en el mensaje
>> news:[email=44c8f7ba@news.xailer.com...]44c8f7ba@news.xailer.com...[/email]
>>> Hola: tengo que hacer algo asi, alguna idea?. Gracias
>>>
>>> METHOD MaxMod()
>>> LOCAL cDia, cHoraIni, cHoraFin, a, lResp := .f.
>>> for a := 1 to 6
>>> cDia := {"LU", "MA", "MI","JU", "VI","SA" }[a]
>>> cHoraIni := "::oDataProf:"+cDia+"HORAINI"
>>> cHoraFin := "::oDataProf:"+cDia+"HORAFIN"
>>> if &cHoraIni. <> "00:00" .and. ! empty( &cHoraIni. ) //Produce error:
>>> variable SELF no existe
>>> if val(::oMaskEdit1:value) <= ;
>>> positur( &cHoraIni., &cHoraFin.,
>>> val(substr(::oDataProf:lapso,4,2)))
>>> lResp := .t.
>>> exit
>>> endif
>>> endif
>>> next
>>> RETURN lResp
>>>
>>>
>>>
>>> --
>>> Rolando Sarrailh
>>> Teléfono,
>>> int. +54-221-489-1480
>>> nac. 0221-489-1480
>>> loc. 489-1480
>>> rsarrailh@gmail.com
>>>
>>
>>
>
>

Macro

Publicado: Jue Jul 27, 2006 9:48 pm
por jose.luis
Rolando,
¿Estás seguro?
Mira este proyecto y adáptalo a tus necesidades.
Saludos,
José Luis Capel
"Rolando Sarrailh" <rsarrailh@gmail.com> escribió en el mensaje
news:[email=44c90f0c@news.xailer.com...]44c90f0c@news.xailer.com...[/email]
> Desgraciadamente no funciona de ninguna forma, Gracias igual José Luis.
>
> "José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
> news:[email=44c9021f@news.xailer.com...]44c9021f@news.xailer.com...[/email]
>> Otra vez yo....
>>
>> Mirando mejor el tema... Creo que podrías probar lo siguiente (no lo he
>> probado)
>>
>> cHoraIni := __ObjSendMsg( Self, "oDataPRof" + cDia+"HORAINI" )
>> cHoraFin := __ObjSendMsg( Self, "oDataPRof" + cDia+"HORAFIN" )
>>
>> Saludos,
>> José Luis Capel
>>
>>
>> "José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
>> news:44c900bd$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> Rolando,
>>>
>>> Una vez hice yo la misma cuestión a José Giménez y éste me respondió:
>>>
>>> "Deberías saber que no se pueden usar variables locales con las macros"
>>>
>>> Y efectivamente... no se pueden usar locales con macros.
>>>
>>> Puedes hacer lo siguiente (es solo un ejemplo que puede tener fallos)
>>>
>>> METHOD MaxMod()
>>>
>>> LOCAL a, lResp := .f., cDia
>>> #pragma ENABLEWARNINGS=OFF // para evitar warnings
>>>
>>> PRIVATE cHoraIni, cHoraFin
>>> for a := 1 to 6
>>> cDia := {"LU", "MA", "MI","JU", "VI","SA" }[a]
>>> cHoraIni := "::oDataProf:"+cDia+"HORAINI"
>>> cHoraFin := "::oDataProf:"+cDia+"HORAFIN"
>>> if &cHoraIni. <> "00:00" .and. ! empty( &cHoraIni. ) //Produce error:
>>> variable SELF no existe
>>> if val(::oMaskEdit1:value) <= ;
>>> positur( &cHoraIni., &cHoraFin.,
>>> val(substr(::oDataProf:lapso,4,2)))
>>> lResp := .t.
>>> exit
>>> endif
>>> endif
>>> next
>>> #pragma ENABLEWARNINGS=ON
>>>
>>> RETURN lResp
>>>
>>> Mira a ver si así te funciona.
>>>
>>> Saludos,
>>> José Luis Capel
>>>
>>>
>>> "Rolando Sarrailh" <rsarrailh@gmail.com> escribió en el mensaje
>>> news:[email=44c8f7ba@news.xailer.com...]44c8f7ba@news.xailer.com...[/email]
>>>> Hola: tengo que hacer algo asi, alguna idea?. Gracias
>>>>
>>>> METHOD MaxMod()
>>>> LOCAL cDia, cHoraIni, cHoraFin, a, lResp := .f.
>>>> for a := 1 to 6
>>>> cDia := {"LU", "MA", "MI","JU", "VI","SA" }[a]
>>>> cHoraIni := "::oDataProf:"+cDia+"HORAINI"
>>>> cHoraFin := "::oDataProf:"+cDia+"HORAFIN"
>>>> if &cHoraIni. <> "00:00" .and. ! empty( &cHoraIni. ) //Produce
>>>> error:
>>>> variable SELF no existe
>>>> if val(::oMaskEdit1:value) <= ;
>>>> positur( &cHoraIni., &cHoraFin.,
>>>> val(substr(::oDataProf:lapso,4,2)))
>>>> lResp := .t.
>>>> exit
>>>> endif
>>>> endif
>>>> next
>>>> RETURN lResp
>>>>
>>>>
>>>>
>>>> --
>>>> Rolando Sarrailh
>>>> Teléfono,
>>>> int. +54-221-489-1480
>>>> nac. 0221-489-1480
>>>> loc. 489-1480
>>>> rsarrailh@gmail.com
>>>>
>>>
>>>
>>
>>
>
>


Attached files pep.zip (1.8 KB)Â

Macro

Publicado: Jue Jul 27, 2006 11:38 pm
por Rolando
Esta semivacio José Luis
"Jose Luis Capel" <jose.luis@capelsoft.com> escribió en el mensaje
news:44c91893$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Rolando,
>
> ¿Estás seguro?
>
> Mira este proyecto y adáptalo a tus necesidades.
>
> Saludos,
> José Luis Capel
>
> "Rolando Sarrailh" <rsarrailh@gmail.com> escribió en el mensaje
> news:[email=44c90f0c@news.xailer.com...]44c90f0c@news.xailer.com...[/email]
>> Desgraciadamente no funciona de ninguna forma, Gracias igual José Luis.
>>
>> "José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
>> news:[email=44c9021f@news.xailer.com...]44c9021f@news.xailer.com...[/email]
>>> Otra vez yo....
>>>
>>> Mirando mejor el tema... Creo que podrías probar lo siguiente (no lo he
>>> probado)
>>>
>>> cHoraIni := __ObjSendMsg( Self, "oDataPRof" + cDia+"HORAINI" )
>>> cHoraFin := __ObjSendMsg( Self, "oDataPRof" + cDia+"HORAFIN" )
>>>
>>> Saludos,
>>> José Luis Capel
>>>
>>>
>>> "José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
>>> news:44c900bd$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>>> Rolando,
>>>>
>>>> Una vez hice yo la misma cuestión a José Giménez y éste me respondió:
>>>>
>>>> "Deberías saber que no se pueden usar variables locales con las macros"
>>>>
>>>> Y efectivamente... no se pueden usar locales con macros.
>>>>
>>>> Puedes hacer lo siguiente (es solo un ejemplo que puede tener fallos)
>>>>
>>>> METHOD MaxMod()
>>>>
>>>> LOCAL a, lResp := .f., cDia
>>>> #pragma ENABLEWARNINGS=OFF // para evitar warnings
>>>>
>>>> PRIVATE cHoraIni, cHoraFin
>>>> for a := 1 to 6
>>>> cDia := {"LU", "MA", "MI","JU", "VI","SA" }[a]
>>>> cHoraIni := "::oDataProf:"+cDia+"HORAINI"
>>>> cHoraFin := "::oDataProf:"+cDia+"HORAFIN"
>>>> if &cHoraIni. <> "00:00" .and. ! empty( &cHoraIni. ) //Produce
>>>> error:
>>>> variable SELF no existe
>>>> if val(::oMaskEdit1:value) <= ;
>>>> positur( &cHoraIni., &cHoraFin.,
>>>> val(substr(::oDataProf:lapso,4,2)))
>>>> lResp := .t.
>>>> exit
>>>> endif
>>>> endif
>>>> next
>>>> #pragma ENABLEWARNINGS=ON
>>>>
>>>> RETURN lResp
>>>>
>>>> Mira a ver si así te funciona.
>>>>
>>>> Saludos,
>>>> José Luis Capel
>>>>
>>>>
>>>> "Rolando Sarrailh" <rsarrailh@gmail.com> escribió en el mensaje
>>>> news:[email=44c8f7ba@news.xailer.com...]44c8f7ba@news.xailer.com...[/email]
>>>>> Hola: tengo que hacer algo asi, alguna idea?. Gracias
>>>>>
>>>>> METHOD MaxMod()
>>>>> LOCAL cDia, cHoraIni, cHoraFin, a, lResp := .f.
>>>>> for a := 1 to 6
>>>>> cDia := {"LU", "MA", "MI","JU", "VI","SA" }[a]
>>>>> cHoraIni := "::oDataProf:"+cDia+"HORAINI"
>>>>> cHoraFin := "::oDataProf:"+cDia+"HORAFIN"
>>>>> if &cHoraIni. <> "00:00" .and. ! empty( &cHoraIni. ) //Produce
>>>>> error:
>>>>> variable SELF no existe
>>>>> if val(::oMaskEdit1:value) <= ;
>>>>> positur( &cHoraIni., &cHoraFin.,
>>>>> val(substr(::oDataProf:lapso,4,2)))
>>>>> lResp := .t.
>>>>> exit
>>>>> endif
>>>>> endif
>>>>> next
>>>>> RETURN lResp
>>>>>
>>>>>
>>>>>
>>>>> --
>>>>> Rolando Sarrailh
>>>>> Teléfono,
>>>>> int. +54-221-489-1480
>>>>> nac. 0221-489-1480
>>>>> loc. 489-1480
>>>>> rsarrailh@gmail.com
>>>>>
>>>>
>>>>
>>>
>>>
>>
>>
>
>
>

Macro

Publicado: Vie Jul 28, 2006 3:51 am
por zeasoftware
has esto:
ME......
MemVar oSelf := Self
cHoraIni := "oSelf:oDataProf:"+cDia+"HORAINI"
cHoraFin := "oSelf:oDataProf:"+cDia+"HORAFIN"
::::::
::::
Como Self esta definido como Local al ejecutar la macro marca error.
Saludos.
--
Ramón Zea
ramonzea@yahoo.com
http://www.paginasprodigy.com/zeasoft/
--

Macro

Publicado: Vie Jul 28, 2006 7:21 am
por jose.luis
Rolando,
¿Qué está semivacío?
No entiendo nada...
Saludos,
José Luis Capel
"Rolando Sarrailh" <rsarrailh@gmail.com> escribió en el mensaje
news:[email=44c9326e@news.xailer.com...]44c9326e@news.xailer.com...[/email]
> Esta semivacio José Luis
>
> "Jose Luis Capel" <jose.luis@capelsoft.com> escribió en el mensaje
> news:44c91893$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> Rolando,
>>
>> ¿Estás seguro?
>>
>> Mira este proyecto y adáptalo a tus necesidades.
>>
>> Saludos,
>> José Luis Capel
>>
>> "Rolando Sarrailh" <rsarrailh@gmail.com> escribió en el mensaje
>> news:[email=44c90f0c@news.xailer.com...]44c90f0c@news.xailer.com...[/email]
>>> Desgraciadamente no funciona de ninguna forma, Gracias igual José Luis.
>>>
>>> "José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
>>> news:[email=44c9021f@news.xailer.com...]44c9021f@news.xailer.com...[/email]
>>>> Otra vez yo....
>>>>
>>>> Mirando mejor el tema... Creo que podrías probar lo siguiente (no lo he
>>>> probado)
>>>>
>>>> cHoraIni := __ObjSendMsg( Self, "oDataPRof" + cDia+"HORAINI" )
>>>> cHoraFin := __ObjSendMsg( Self, "oDataPRof" + cDia+"HORAFIN" )
>>>>
>>>> Saludos,
>>>> José Luis Capel
>>>>
>>>>
>>>> "José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
>>>> news:44c900bd$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>>>> Rolando,
>>>>>
>>>>> Una vez hice yo la misma cuestión a José Giménez y éste me respondió:
>>>>>
>>>>> "Deberías saber que no se pueden usar variables locales con las
>>>>> macros"
>>>>>
>>>>> Y efectivamente... no se pueden usar locales con macros.
>>>>>
>>>>> Puedes hacer lo siguiente (es solo un ejemplo que puede tener fallos)
>>>>>
>>>>> METHOD MaxMod()
>>>>>
>>>>> LOCAL a, lResp := .f., cDia
>>>>> #pragma ENABLEWARNINGS=OFF // para evitar warnings
>>>>>
>>>>> PRIVATE cHoraIni, cHoraFin
>>>>> for a := 1 to 6
>>>>> cDia := {"LU", "MA", "MI","JU", "VI","SA" }[a]
>>>>> cHoraIni := "::oDataProf:"+cDia+"HORAINI"
>>>>> cHoraFin := "::oDataProf:"+cDia+"HORAFIN"
>>>>> if &cHoraIni. <> "00:00" .and. ! empty( &cHoraIni. ) //Produce
>>>>> error:
>>>>> variable SELF no existe
>>>>> if val(::oMaskEdit1:value) <= ;
>>>>> positur( &cHoraIni., &cHoraFin.,
>>>>> val(substr(::oDataProf:lapso,4,2)))
>>>>> lResp := .t.
>>>>> exit
>>>>> endif
>>>>> endif
>>>>> next
>>>>> #pragma ENABLEWARNINGS=ON
>>>>>
>>>>> RETURN lResp
>>>>>
>>>>> Mira a ver si así te funciona.
>>>>>
>>>>> Saludos,
>>>>> José Luis Capel
>>>>>
>>>>>
>>>>> "Rolando Sarrailh" <rsarrailh@gmail.com> escribió en el mensaje
>>>>> news:[email=44c8f7ba@news.xailer.com...]44c8f7ba@news.xailer.com...[/email]
>>>>>> Hola: tengo que hacer algo asi, alguna idea?. Gracias
>>>>>>
>>>>>> METHOD MaxMod()
>>>>>> LOCAL cDia, cHoraIni, cHoraFin, a, lResp := .f.
>>>>>> for a := 1 to 6
>>>>>> cDia := {"LU", "MA", "MI","JU", "VI","SA" }[a]
>>>>>> cHoraIni := "::oDataProf:"+cDia+"HORAINI"
>>>>>> cHoraFin := "::oDataProf:"+cDia+"HORAFIN"
>>>>>> if &cHoraIni. <> "00:00" .and. ! empty( &cHoraIni. ) //Produce
>>>>>> error:
>>>>>> variable SELF no existe
>>>>>> if val(::oMaskEdit1:value) <= ;
>>>>>> positur( &cHoraIni., &cHoraFin.,
>>>>>> val(substr(::oDataProf:lapso,4,2)))
>>>>>> lResp := .t.
>>>>>> exit
>>>>>> endif
>>>>>> endif
>>>>>> next
>>>>>> RETURN lResp
>>>>>>
>>>>>>
>>>>>>
>>>>>> --
>>>>>> Rolando Sarrailh
>>>>>> Teléfono,
>>>>>> int. +54-221-489-1480
>>>>>> nac. 0221-489-1480
>>>>>> loc. 489-1480
>>>>>> rsarrailh@gmail.com
>>>>>>
>>>>>
>>>>>
>>>>
>>>>
>>>
>>>
>>
>>
>>
>
>

Macro

Publicado: Vie Jul 28, 2006 9:36 am
por Carlos Mora
Rolando,
Con la respuesta de Ramón ya deberí­as haber resuelto el tema, pero se me
ocurrió otra solución que no usa macros.
> cHoraIni := "::oDataProf:"+cDia+"HORAINI"
cHoraIni := OSend( ::oDataProf, cDia+"HORAINI" )
> cHoraFin := "::oDataProf:"+cDia+"HORAFIN"
cHoraFin := Osend( ::oDataProf, cDia+"HORAFIN" )
Entonces tendrás en las variables directamente el valor de los campos,
sin necesidad de las macros.
Saludos,
Carlos

Macro

Publicado: Vie Jul 28, 2006 12:08 pm
por jfgimenez
Rolando,
pruebalo así:
cHoraIni := __ObjSendMsg( ::oDataPRof, cDia+"HORAINI" )
cHoraFin := __ObjSendMsg( ::oDataPRof, cDia+"HORAFIN" )
--
Un saludo,
José F. Giménez
http://www.xailer.com

Macro

Publicado: Vie Jul 28, 2006 3:58 pm
por Rolando
Hola: El proyecto, Jose Luis, aqui pongo lo que hay en los dos .prg y falta
el .xfm, de todas formas muchas gracias y lo que me mando Jose funciono
perfectamente.
Saludos Rolando.
/*
* Proyecto: pep
* Fichero: pep.prg
* Descripción: Módulo de entrada a la aplicación
* Autor:
* Fecha: 27/07/2006
*/
#include "Xailer.ch"
Procedure Main()
Application:cTitle := "pep"
TForm2():New( Application ):Show()
Application:Run()
Return
/*
* Proyecto: pep
* Fichero: Form2.prg
* Descripción:
* Autor:
* Fecha: 27/07/2006
*/
#include "Xailer.ch"
CLASS TForm2 FROM TForm
METHOD CreateForm()
ENDCLASS
#include "Form2.xfm"
"Jose Luis Capel" <jose.luis@capelsoft.com> escribió en el mensaje
news:[email=44c99ecf@news.xailer.com...]44c99ecf@news.xailer.com...[/email]
> Rolando,
>
> ¿Qué está semivacío?
>
> No entiendo nada...
>
> Saludos,
> José Luis Capel
>
> "Rolando Sarrailh" <rsarrailh@gmail.com> escribió en el mensaje
> news:[email=44c9326e@news.xailer.com...]44c9326e@news.xailer.com...[/email]
>> Esta semivacio José Luis
>>
>> "Jose Luis Capel" <jose.luis@capelsoft.com> escribió en el mensaje
>> news:44c91893$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> Rolando,
>>>
>>> ¿Estás seguro?
>>>
>>> Mira este proyecto y adáptalo a tus necesidades.
>>>
>>> Saludos,
>>> José Luis Capel
>>>
>>> "Rolando Sarrailh" <rsarrailh@gmail.com> escribió en el mensaje
>>> news:[email=44c90f0c@news.xailer.com...]44c90f0c@news.xailer.com...[/email]
>>>> Desgraciadamente no funciona de ninguna forma, Gracias igual José Luis.
>>>>
>>>> "José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
>>>> news:[email=44c9021f@news.xailer.com...]44c9021f@news.xailer.com...[/email]
>>>>> Otra vez yo....
>>>>>
>>>>> Mirando mejor el tema... Creo que podrías probar lo siguiente (no lo
>>>>> he
>>>>> probado)
>>>>>
>>>>> cHoraIni := __ObjSendMsg( Self, "oDataPRof" + cDia+"HORAINI" )
>>>>> cHoraFin := __ObjSendMsg( Self, "oDataPRof" + cDia+"HORAFIN" )
>>>>>
>>>>> Saludos,
>>>>> José Luis Capel
>>>>>
>>>>>
>>>>> "José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
>>>>> news:44c900bd$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>>>>> Rolando,
>>>>>>
>>>>>> Una vez hice yo la misma cuestión a José Giménez y éste me respondió:
>>>>>>
>>>>>> "Deberías saber que no se pueden usar variables locales con las
>>>>>> macros"
>>>>>>
>>>>>> Y efectivamente... no se pueden usar locales con macros.
>>>>>>
>>>>>> Puedes hacer lo siguiente (es solo un ejemplo que puede tener fallos)
>>>>>>
>>>>>> METHOD MaxMod()
>>>>>>
>>>>>> LOCAL a, lResp := .f., cDia
>>>>>> #pragma ENABLEWARNINGS=OFF // para evitar warnings
>>>>>>
>>>>>> PRIVATE cHoraIni, cHoraFin
>>>>>> for a := 1 to 6
>>>>>> cDia := {"LU", "MA", "MI","JU", "VI","SA" }[a]
>>>>>> cHoraIni := "::oDataProf:"+cDia+"HORAINI"
>>>>>> cHoraFin := "::oDataProf:"+cDia+"HORAFIN"
>>>>>> if &cHoraIni. <> "00:00" .and. ! empty( &cHoraIni. ) //Produce
>>>>>> error:
>>>>>> variable SELF no existe
>>>>>> if val(::oMaskEdit1:value) <= ;
>>>>>> positur( &cHoraIni., &cHoraFin.,
>>>>>> val(substr(::oDataProf:lapso,4,2)))
>>>>>> lResp := .t.
>>>>>> exit
>>>>>> endif
>>>>>> endif
>>>>>> next
>>>>>> #pragma ENABLEWARNINGS=ON
>>>>>>
>>>>>> RETURN lResp
>>>>>>
>>>>>> Mira a ver si así te funciona.
>>>>>>
>>>>>> Saludos,
>>>>>> José Luis Capel
>>>>>>
>>>>>>
>>>>>> "Rolando Sarrailh" <rsarrailh@gmail.com> escribió en el mensaje
>>>>>> news:[email=44c8f7ba@news.xailer.com...]44c8f7ba@news.xailer.com...[/email]
>>>>>>> Hola: tengo que hacer algo asi, alguna idea?. Gracias
>>>>>>>
>>>>>>> METHOD MaxMod()
>>>>>>> LOCAL cDia, cHoraIni, cHoraFin, a, lResp := .f.
>>>>>>> for a := 1 to 6
>>>>>>> cDia := {"LU", "MA", "MI","JU", "VI","SA" }[a]
>>>>>>> cHoraIni := "::oDataProf:"+cDia+"HORAINI"
>>>>>>> cHoraFin := "::oDataProf:"+cDia+"HORAFIN"
>>>>>>> if &cHoraIni. <> "00:00" .and. ! empty( &cHoraIni. ) //Produce
>>>>>>> error:
>>>>>>> variable SELF no existe
>>>>>>> if val(::oMaskEdit1:value) <= ;
>>>>>>> positur( &cHoraIni., &cHoraFin.,
>>>>>>> val(substr(::oDataProf:lapso,4,2)))
>>>>>>> lResp := .t.
>>>>>>> exit
>>>>>>> endif
>>>>>>> endif
>>>>>>> next
>>>>>>> RETURN lResp
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>> --
>>>>>>> Rolando Sarrailh
>>>>>>> Teléfono,
>>>>>>> int. +54-221-489-1480
>>>>>>> nac. 0221-489-1480
>>>>>>> loc. 489-1480
>>>>>>> rsarrailh@gmail.com
>>>>>>>
>>>>>>
>>>>>>
>>>>>
>>>>>
>>>>
>>>>
>>>
>>>
>>>
>>
>>
>
>

Macro

Publicado: Vie Jul 28, 2006 3:59 pm
por Rolando
Hola Jose: Funciona perfectamente, muchas gracias.
un saludo
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:44c9e22e$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Rolando,
>
> pruebalo así:
>
> cHoraIni := __ObjSendMsg( ::oDataPRof, cDia+"HORAINI" )
> cHoraFin := __ObjSendMsg( ::oDataPRof, cDia+"HORAFIN" )
>
>
> --
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
>

Macro

Publicado: Vie Jul 28, 2006 4:00 pm
por Rolando
Hola: Muchas gracias a todos por su colaboracion.
Un saludo.
"Carlos Mora" <carlosmora@iespana.es> escribió en el mensaje
news:[email=44c9be8c@news.xailer.com...]44c9be8c@news.xailer.com...[/email]
> Rolando,
> Con la respuesta de Ramón ya deberías haber resuelto el tema, pero se me
> ocurrió otra solución que no usa macros.
>
>> cHoraIni := "::oDataProf:"+cDia+"HORAINI"
> cHoraIni := OSend( ::oDataProf, cDia+"HORAINI" )
>
>> cHoraFin := "::oDataProf:"+cDia+"HORAFIN"
> cHoraFin := Osend( ::oDataProf, cDia+"HORAFIN" )
>
> Entonces tendrás en las variables directamente el valor de los campos, sin
> necesidad de las macros.
>
> Saludos,
>
> Carlos

Macro

Publicado: Vie Jul 28, 2006 4:03 pm
por jose.luis
Rolando,
Si crees que el fichero .zip es incompleto... bueno... entonces lo estará.
Saludos,
José Luis Capel
"Rolando Sarrailh" <rsarrailh@gmail.com> escribió en el mensaje
news:[email=44ca1803@news.xailer.com...]44ca1803@news.xailer.com...[/email]
> Hola: El proyecto, Jose Luis, aqui pongo lo que hay en los dos .prg y
> falta el .xfm, de todas formas muchas gracias y lo que me mando Jose
> funciono perfectamente.
> Saludos Rolando.
>
>
> /*
> * Proyecto: pep
> * Fichero: pep.prg
> * Descripción: Módulo de entrada a la aplicación
> * Autor:
> * Fecha: 27/07/2006
> */
>
> #include "Xailer.ch"
>
> Procedure Main()
>
> Application:cTitle := "pep"
> TForm2():New( Application ):Show()
> Application:Run()
>
> Return
>
> /*
> * Proyecto: pep
> * Fichero: Form2.prg
> * Descripción:
> * Autor:
> * Fecha: 27/07/2006
> */
>
> #include "Xailer.ch"
>
> CLASS TForm2 FROM TForm
>
> METHOD CreateForm()
>
> ENDCLASS
>
> #include "Form2.xfm"
>
>
>
> "Jose Luis Capel" <jose.luis@capelsoft.com> escribió en el mensaje
> news:[email=44c99ecf@news.xailer.com...]44c99ecf@news.xailer.com...[/email]
>> Rolando,
>>
>> ¿Qué está semivacío?
>>
>> No entiendo nada...
>>
>> Saludos,
>> José Luis Capel
>>
>> "Rolando Sarrailh" <rsarrailh@gmail.com> escribió en el mensaje
>> news:[email=44c9326e@news.xailer.com...]44c9326e@news.xailer.com...[/email]
>>> Esta semivacio José Luis
>>>
>>> "Jose Luis Capel" <jose.luis@capelsoft.com> escribió en el mensaje
>>> news:44c91893$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>>> Rolando,
>>>>
>>>> ¿Estás seguro?
>>>>
>>>> Mira este proyecto y adáptalo a tus necesidades.
>>>>
>>>> Saludos,
>>>> José Luis Capel
>>>>
>>>> "Rolando Sarrailh" <rsarrailh@gmail.com> escribió en el mensaje
>>>> news:[email=44c90f0c@news.xailer.com...]44c90f0c@news.xailer.com...[/email]
>>>>> Desgraciadamente no funciona de ninguna forma, Gracias igual José
>>>>> Luis.
>>>>>
>>>>> "José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
>>>>> news:[email=44c9021f@news.xailer.com...]44c9021f@news.xailer.com...[/email]
>>>>>> Otra vez yo....
>>>>>>
>>>>>> Mirando mejor el tema... Creo que podrías probar lo siguiente (no lo
>>>>>> he
>>>>>> probado)
>>>>>>
>>>>>> cHoraIni := __ObjSendMsg( Self, "oDataPRof" + cDia+"HORAINI" )
>>>>>> cHoraFin := __ObjSendMsg( Self, "oDataPRof" + cDia+"HORAFIN" )
>>>>>>
>>>>>> Saludos,
>>>>>> José Luis Capel
>>>>>>
>>>>>>
>>>>>> "José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
>>>>>> news:44c900bd$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>>>>>> Rolando,
>>>>>>>
>>>>>>> Una vez hice yo la misma cuestión a José Giménez y éste me
>>>>>>> respondió:
>>>>>>>
>>>>>>> "Deberías saber que no se pueden usar variables locales con las
>>>>>>> macros"
>>>>>>>
>>>>>>> Y efectivamente... no se pueden usar locales con macros.
>>>>>>>
>>>>>>> Puedes hacer lo siguiente (es solo un ejemplo que puede tener
>>>>>>> fallos)
>>>>>>>
>>>>>>> METHOD MaxMod()
>>>>>>>
>>>>>>> LOCAL a, lResp := .f., cDia
>>>>>>> #pragma ENABLEWARNINGS=OFF // para evitar warnings
>>>>>>>
>>>>>>> PRIVATE cHoraIni, cHoraFin
>>>>>>> for a := 1 to 6
>>>>>>> cDia := {"LU", "MA", "MI","JU", "VI","SA" }[a]
>>>>>>> cHoraIni := "::oDataProf:"+cDia+"HORAINI"
>>>>>>> cHoraFin := "::oDataProf:"+cDia+"HORAFIN"
>>>>>>> if &cHoraIni. <> "00:00" .and. ! empty( &cHoraIni. ) //Produce
>>>>>>> error:
>>>>>>> variable SELF no existe
>>>>>>> if val(::oMaskEdit1:value) <= ;
>>>>>>> positur( &cHoraIni., &cHoraFin.,
>>>>>>> val(substr(::oDataProf:lapso,4,2)))
>>>>>>> lResp := .t.
>>>>>>> exit
>>>>>>> endif
>>>>>>> endif
>>>>>>> next
>>>>>>> #pragma ENABLEWARNINGS=ON
>>>>>>>
>>>>>>> RETURN lResp
>>>>>>>
>>>>>>> Mira a ver si así te funciona.
>>>>>>>
>>>>>>> Saludos,
>>>>>>> José Luis Capel
>>>>>>>
>>>>>>>
>>>>>>> "Rolando Sarrailh" <rsarrailh@gmail.com> escribió en el mensaje
>>>>>>> news:[email=44c8f7ba@news.xailer.com...]44c8f7ba@news.xailer.com...[/email]
>>>>>>>> Hola: tengo que hacer algo asi, alguna idea?. Gracias
>>>>>>>>
>>>>>>>> METHOD MaxMod()
>>>>>>>> LOCAL cDia, cHoraIni, cHoraFin, a, lResp := .f.
>>>>>>>> for a := 1 to 6
>>>>>>>> cDia := {"LU", "MA", "MI","JU", "VI","SA" }[a]
>>>>>>>> cHoraIni := "::oDataProf:"+cDia+"HORAINI"
>>>>>>>> cHoraFin := "::oDataProf:"+cDia+"HORAFIN"
>>>>>>>> if &cHoraIni. <> "00:00" .and. ! empty( &cHoraIni. ) //Produce
>>>>>>>> error:
>>>>>>>> variable SELF no existe
>>>>>>>> if val(::oMaskEdit1:value) <= ;
>>>>>>>> positur( &cHoraIni., &cHoraFin.,
>>>>>>>> val(substr(::oDataProf:lapso,4,2)))
>>>>>>>> lResp := .t.
>>>>>>>> exit
>>>>>>>> endif
>>>>>>>> endif
>>>>>>>> next
>>>>>>>> RETURN lResp
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>> --
>>>>>>>> Rolando Sarrailh
>>>>>>>> Teléfono,
>>>>>>>> int. +54-221-489-1480
>>>>>>>> nac. 0221-489-1480
>>>>>>>> loc. 489-1480
>>>>>>>> rsarrailh@gmail.com
>>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>
>>>>>>
>>>>>
>>>>>
>>>>
>>>>
>>>>
>>>
>>>
>>
>>
>
>
Todos los horarios son UTC+02:00
Página 1 de 1

Desarrollado por phpBB® Forum Software © phpBB Limited

Traducción al español por phpBB España