Hola a todos:
En una aplicación que estoy desarrollando, le doy valor al "cargo" de un
Form externo, el cual conserva sin ningún problema DENTRO DE LA CLASE donde
le he dado el valor, pero cuando llamo a este Form, y quiero recuperar el
valor de ::cargo, me da NIL.
Es que tengo que llamar a "Cargo" de una manera especial que no sea, por
ejemplo, cMenVar := ::Cargo?
Muchas gracias.
Ramón Torreblanca
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Problemas con Cargo
Problemas con Cargo
Ramón,
Muéstranos como haces la asignación de la data cargo y como quieres
recuperar su valor.
Saludos,
José Luis Capel
"Ramón Torreblanca" <la_pirata@hotmail.com> escribió en el mensaje
news:44c9b8e1$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Hola a todos:
>
> En una aplicación que estoy desarrollando, le doy valor al "cargo" de un
> Form externo, el cual conserva sin ningún problema DENTRO DE LA CLASE
> donde
> le he dado el valor, pero cuando llamo a este Form, y quiero recuperar el
> valor de ::cargo, me da NIL.
>
> Es que tengo que llamar a "Cargo" de una manera especial que no sea, por
> ejemplo, cMenVar := ::Cargo?
>
> Muchas gracias.
>
>
> Ramón Torreblanca
>
>
Muéstranos como haces la asignación de la data cargo y como quieres
recuperar su valor.
Saludos,
José Luis Capel
"Ramón Torreblanca" <la_pirata@hotmail.com> escribió en el mensaje
news:44c9b8e1$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Hola a todos:
>
> En una aplicación que estoy desarrollando, le doy valor al "cargo" de un
> Form externo, el cual conserva sin ningún problema DENTRO DE LA CLASE
> donde
> le he dado el valor, pero cuando llamo a este Form, y quiero recuperar el
> valor de ::cargo, me da NIL.
>
> Es que tengo que llamar a "Cargo" de una manera especial que no sea, por
> ejemplo, cMenVar := ::Cargo?
>
> Muchas gracias.
>
>
> Ramón Torreblanca
>
>
Problemas con Cargo
Perdón por tan torpe olvido:
Para darle valor y llamar al Form:
METHOD AddNewP() CLASS FrmFicha
LOCAL oFrmP
WITH OBJECT oFrmP := FrmEdiPag():New( Self )
:Cargo := "Añadir"
::oDataSetP:AddNew()
:ShowModal()
IF :nModalResult == mrOK
::oDataSetP:Update()
::oBrwP:Refresh()
ELSE
::oDataSetP:Cancel()
ENDIF
END WITH
RETURN NIL
Para Recuperarlo:------------------------------------------
METHOD FormInitialize( oSender ) CLASS FrmEdiPag
Local nFor, nLen, nValor, nPvp
logdisplay(::cargo, ::oParent:cText)
IF ::Cargo = "Añadir"
::oParent:oDataSetP:SaveState()
::oParent:oDataSetP:gotop()
::oParent:oDataSetP:RestoreState()
ENDIF
RETURN Nil
Ramón Torreblanca
"José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
news:44c9ba4b$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Ramón,
>
> Muéstranos como haces la asignación de la data cargo y como quieres
> recuperar su valor.
>
> Saludos,
> José Luis Capel
>
> "Ramón Torreblanca" <la_pirata@hotmail.com> escribió en el mensaje
> news:44c9b8e1$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> > Hola a todos:
> >
> > En una aplicación que estoy desarrollando, le doy valor al "cargo" de un
> > Form externo, el cual conserva sin ningún problema DENTRO DE LA CLASE
> > donde
> > le he dado el valor, pero cuando llamo a este Form, y quiero recuperar
el
> > valor de ::cargo, me da NIL.
> >
> > Es que tengo que llamar a "Cargo" de una manera especial que no sea, por
> > ejemplo, cMenVar := ::Cargo?
> >
> > Muchas gracias.
> >
> >
> > Ramón Torreblanca
> >
> >
>
>
Para darle valor y llamar al Form:
METHOD AddNewP() CLASS FrmFicha
LOCAL oFrmP
WITH OBJECT oFrmP := FrmEdiPag():New( Self )
:Cargo := "Añadir"
::oDataSetP:AddNew()
:ShowModal()
IF :nModalResult == mrOK
::oDataSetP:Update()
::oBrwP:Refresh()
ELSE
::oDataSetP:Cancel()
ENDIF
END WITH
RETURN NIL
Para Recuperarlo:------------------------------------------
METHOD FormInitialize( oSender ) CLASS FrmEdiPag
Local nFor, nLen, nValor, nPvp
logdisplay(::cargo, ::oParent:cText)
IF ::Cargo = "Añadir"
::oParent:oDataSetP:SaveState()
::oParent:oDataSetP:gotop()
::oParent:oDataSetP:RestoreState()
ENDIF
RETURN Nil
Ramón Torreblanca
"José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
news:44c9ba4b$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Ramón,
>
> Muéstranos como haces la asignación de la data cargo y como quieres
> recuperar su valor.
>
> Saludos,
> José Luis Capel
>
> "Ramón Torreblanca" <la_pirata@hotmail.com> escribió en el mensaje
> news:44c9b8e1$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> > Hola a todos:
> >
> > En una aplicación que estoy desarrollando, le doy valor al "cargo" de un
> > Form externo, el cual conserva sin ningún problema DENTRO DE LA CLASE
> > donde
> > le he dado el valor, pero cuando llamo a este Form, y quiero recuperar
el
> > valor de ::cargo, me da NIL.
> >
> > Es que tengo que llamar a "Cargo" de una manera especial que no sea, por
> > ejemplo, cMenVar := ::Cargo?
> >
> > Muchas gracias.
> >
> >
> > Ramón Torreblanca
> >
> >
>
>
-
- Mensajes: 532
- Registrado: Mié Feb 09, 2005 6:20 pm
Problemas con Cargo
Creo que el Forminitialize se ejecuta antes de tu :Cargo := "Añadir", con lo
que tu cargo estaria vacio. Podrias hacer esto :
WITH OBJECT oFrmP := FrmEdiPag()
:Cargo := "Añadir"
:New( Self )
........
Asi tu cargo si tendria algo dentro cuando se ejecute el forminitialize
Un saludo
que tu cargo estaria vacio. Podrias hacer esto :
WITH OBJECT oFrmP := FrmEdiPag()
:Cargo := "Añadir"
:New( Self )
........
Asi tu cargo si tendria algo dentro cuando se ejecute el forminitialize
Un saludo
Problemas con Cargo
Ramón,
Una vez has hecho el FrmEdiPag:New(Self) ya se ha disparado el Initialize de
FrmEdiPag.
Prueba esto:
> METHOD AddNewP() CLASS FrmFicha
>
> LOCAL oFrmP
>
> WITH OBJECT oFrmP := FrmEdiPag()
>
> :Cargo := "Añadir"
> ::oDataSetP:AddNew()
> :New( Self )
> :ShowModal()
>
> IF :nModalResult == mrOK
>
> ::oDataSetP:Update()
> ::oBrwP:Refresh()
>
> ELSE
>
> ::oDataSetP:Cancel()
>
> ENDIF
>
> END WITH
>
> RETURN NIL
>
Saludos,
José Luis Capel
PD: puede que no sea la forma más ortodoxa... pero funciona
"Ramón Torreblanca" <la_pirata@hotmail.com> escribió en el mensaje
news:44c9bff7$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Perdón por tan torpe olvido:
>
> Para darle valor y llamar al Form:
>
> METHOD AddNewP() CLASS FrmFicha
>
> LOCAL oFrmP
>
> WITH OBJECT oFrmP := FrmEdiPag():New( Self )
>
> :Cargo := "Añadir"
> ::oDataSetP:AddNew()
> :ShowModal()
>
> IF :nModalResult == mrOK
>
> ::oDataSetP:Update()
> ::oBrwP:Refresh()
>
> ELSE
>
> ::oDataSetP:Cancel()
>
> ENDIF
>
> END WITH
>
> RETURN NIL
>
> Para Recuperarlo:------------------------------------------
>
> METHOD FormInitialize( oSender ) CLASS FrmEdiPag
> Local nFor, nLen, nValor, nPvp
>
> logdisplay(::cargo, ::oParent:cText)
>
> IF ::Cargo = "Añadir"
> ::oParent:oDataSetP:SaveState()
> ::oParent:oDataSetP:gotop()
> ::oParent:oDataSetP:RestoreState()
>
> ENDIF
>
> RETURN Nil
>
> Ramón Torreblanca
>
>
> "José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
> news:44c9ba4b$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> Ramón,
>>
>> Muéstranos como haces la asignación de la data cargo y como quieres
>> recuperar su valor.
>>
>> Saludos,
>> José Luis Capel
>>
>> "Ramón Torreblanca" <la_pirata@hotmail.com> escribió en el mensaje
>> news:44c9b8e1$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> > Hola a todos:
>> >
>> > En una aplicación que estoy desarrollando, le doy valor al "cargo" de
>> > un
>> > Form externo, el cual conserva sin ningún problema DENTRO DE LA CLASE
>> > donde
>> > le he dado el valor, pero cuando llamo a este Form, y quiero recuperar
> el
>> > valor de ::cargo, me da NIL.
>> >
>> > Es que tengo que llamar a "Cargo" de una manera especial que no sea,
>> > por
>> > ejemplo, cMenVar := ::Cargo?
>> >
>> > Muchas gracias.
>> >
>> >
>> > Ramón Torreblanca
>> >
>> >
>>
>>
>
>
Una vez has hecho el FrmEdiPag:New(Self) ya se ha disparado el Initialize de
FrmEdiPag.
Prueba esto:
> METHOD AddNewP() CLASS FrmFicha
>
> LOCAL oFrmP
>
> WITH OBJECT oFrmP := FrmEdiPag()
>
> :Cargo := "Añadir"
> ::oDataSetP:AddNew()
> :New( Self )
> :ShowModal()
>
> IF :nModalResult == mrOK
>
> ::oDataSetP:Update()
> ::oBrwP:Refresh()
>
> ELSE
>
> ::oDataSetP:Cancel()
>
> ENDIF
>
> END WITH
>
> RETURN NIL
>
Saludos,
José Luis Capel
PD: puede que no sea la forma más ortodoxa... pero funciona

"Ramón Torreblanca" <la_pirata@hotmail.com> escribió en el mensaje
news:44c9bff7$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Perdón por tan torpe olvido:
>
> Para darle valor y llamar al Form:
>
> METHOD AddNewP() CLASS FrmFicha
>
> LOCAL oFrmP
>
> WITH OBJECT oFrmP := FrmEdiPag():New( Self )
>
> :Cargo := "Añadir"
> ::oDataSetP:AddNew()
> :ShowModal()
>
> IF :nModalResult == mrOK
>
> ::oDataSetP:Update()
> ::oBrwP:Refresh()
>
> ELSE
>
> ::oDataSetP:Cancel()
>
> ENDIF
>
> END WITH
>
> RETURN NIL
>
> Para Recuperarlo:------------------------------------------
>
> METHOD FormInitialize( oSender ) CLASS FrmEdiPag
> Local nFor, nLen, nValor, nPvp
>
> logdisplay(::cargo, ::oParent:cText)
>
> IF ::Cargo = "Añadir"
> ::oParent:oDataSetP:SaveState()
> ::oParent:oDataSetP:gotop()
> ::oParent:oDataSetP:RestoreState()
>
> ENDIF
>
> RETURN Nil
>
> Ramón Torreblanca
>
>
> "José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
> news:44c9ba4b$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> Ramón,
>>
>> Muéstranos como haces la asignación de la data cargo y como quieres
>> recuperar su valor.
>>
>> Saludos,
>> José Luis Capel
>>
>> "Ramón Torreblanca" <la_pirata@hotmail.com> escribió en el mensaje
>> news:44c9b8e1$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> > Hola a todos:
>> >
>> > En una aplicación que estoy desarrollando, le doy valor al "cargo" de
>> > un
>> > Form externo, el cual conserva sin ningún problema DENTRO DE LA CLASE
>> > donde
>> > le he dado el valor, pero cuando llamo a este Form, y quiero recuperar
> el
>> > valor de ::cargo, me da NIL.
>> >
>> > Es que tengo que llamar a "Cargo" de una manera especial que no sea,
>> > por
>> > ejemplo, cMenVar := ::Cargo?
>> >
>> > Muchas gracias.
>> >
>> >
>> > Ramón Torreblanca
>> >
>> >
>>
>>
>
>
Problemas con Cargo
José Luis,
Es la forma correcta. Otros lenguajes como VB tienen eventos cuando se
instancia y se destruye un objeto y es posible que tengamos algo de uso en
el futuro, pero la instanciación de objetos sin llamar a ningún constructor
funciona correctamente.
Un saludo,
"José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
news:44c9c183$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Ramón,
>
> Una vez has hecho el FrmEdiPag:New(Self) ya se ha disparado el Initialize
> de FrmEdiPag.
>
> Prueba esto:
>
>> METHOD AddNewP() CLASS FrmFicha
>>
>> LOCAL oFrmP
>>
>> WITH OBJECT oFrmP := FrmEdiPag()
>>
>> :Cargo := "Añadir"
>> ::oDataSetP:AddNew()
>> :New( Self )
>> :ShowModal()
>>
>> IF :nModalResult == mrOK
>>
>> ::oDataSetP:Update()
>> ::oBrwP:Refresh()
>>
>> ELSE
>>
>> ::oDataSetP:Cancel()
>>
>> ENDIF
>>
>> END WITH
>>
>> RETURN NIL
>>
>
> Saludos,
> José Luis Capel
> PD: puede que no sea la forma más ortodoxa... pero funciona
>
>
>
> "Ramón Torreblanca" <la_pirata@hotmail.com> escribió en el mensaje
> news:44c9bff7$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> Perdón por tan torpe olvido:
>>
>> Para darle valor y llamar al Form:
>>
>> METHOD AddNewP() CLASS FrmFicha
>>
>> LOCAL oFrmP
>>
>> WITH OBJECT oFrmP := FrmEdiPag():New( Self )
>>
>> :Cargo := "Añadir"
>> ::oDataSetP:AddNew()
>> :ShowModal()
>>
>> IF :nModalResult == mrOK
>>
>> ::oDataSetP:Update()
>> ::oBrwP:Refresh()
>>
>> ELSE
>>
>> ::oDataSetP:Cancel()
>>
>> ENDIF
>>
>> END WITH
>>
>> RETURN NIL
>>
>> Para Recuperarlo:------------------------------------------
>>
>> METHOD FormInitialize( oSender ) CLASS FrmEdiPag
>> Local nFor, nLen, nValor, nPvp
>>
>> logdisplay(::cargo, ::oParent:cText)
>>
>> IF ::Cargo = "Añadir"
>> ::oParent:oDataSetP:SaveState()
>> ::oParent:oDataSetP:gotop()
>> ::oParent:oDataSetP:RestoreState()
>>
>> ENDIF
>>
>> RETURN Nil
>>
>> Ramón Torreblanca
>>
>>
>> "José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
>> news:44c9ba4b$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> Ramón,
>>>
>>> Muéstranos como haces la asignación de la data cargo y como quieres
>>> recuperar su valor.
>>>
>>> Saludos,
>>> José Luis Capel
>>>
>>> "Ramón Torreblanca" <la_pirata@hotmail.com> escribió en el mensaje
>>> news:44c9b8e1$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> > Hola a todos:
>>> >
>>> > En una aplicación que estoy desarrollando, le doy valor al "cargo" de
>>> > un
>>> > Form externo, el cual conserva sin ningún problema DENTRO DE LA CLASE
>>> > donde
>>> > le he dado el valor, pero cuando llamo a este Form, y quiero recuperar
>> el
>>> > valor de ::cargo, me da NIL.
>>> >
>>> > Es que tengo que llamar a "Cargo" de una manera especial que no sea,
>>> > por
>>> > ejemplo, cMenVar := ::Cargo?
>>> >
>>> > Muchas gracias.
>>> >
>>> >
>>> > Ramón Torreblanca
>>> >
>>> >
>>>
>>>
>>
>>
>
>
Es la forma correcta. Otros lenguajes como VB tienen eventos cuando se
instancia y se destruye un objeto y es posible que tengamos algo de uso en
el futuro, pero la instanciación de objetos sin llamar a ningún constructor
funciona correctamente.
Un saludo,
"José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
news:44c9c183$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Ramón,
>
> Una vez has hecho el FrmEdiPag:New(Self) ya se ha disparado el Initialize
> de FrmEdiPag.
>
> Prueba esto:
>
>> METHOD AddNewP() CLASS FrmFicha
>>
>> LOCAL oFrmP
>>
>> WITH OBJECT oFrmP := FrmEdiPag()
>>
>> :Cargo := "Añadir"
>> ::oDataSetP:AddNew()
>> :New( Self )
>> :ShowModal()
>>
>> IF :nModalResult == mrOK
>>
>> ::oDataSetP:Update()
>> ::oBrwP:Refresh()
>>
>> ELSE
>>
>> ::oDataSetP:Cancel()
>>
>> ENDIF
>>
>> END WITH
>>
>> RETURN NIL
>>
>
> Saludos,
> José Luis Capel
> PD: puede que no sea la forma más ortodoxa... pero funciona

>
>
>
> "Ramón Torreblanca" <la_pirata@hotmail.com> escribió en el mensaje
> news:44c9bff7$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> Perdón por tan torpe olvido:
>>
>> Para darle valor y llamar al Form:
>>
>> METHOD AddNewP() CLASS FrmFicha
>>
>> LOCAL oFrmP
>>
>> WITH OBJECT oFrmP := FrmEdiPag():New( Self )
>>
>> :Cargo := "Añadir"
>> ::oDataSetP:AddNew()
>> :ShowModal()
>>
>> IF :nModalResult == mrOK
>>
>> ::oDataSetP:Update()
>> ::oBrwP:Refresh()
>>
>> ELSE
>>
>> ::oDataSetP:Cancel()
>>
>> ENDIF
>>
>> END WITH
>>
>> RETURN NIL
>>
>> Para Recuperarlo:------------------------------------------
>>
>> METHOD FormInitialize( oSender ) CLASS FrmEdiPag
>> Local nFor, nLen, nValor, nPvp
>>
>> logdisplay(::cargo, ::oParent:cText)
>>
>> IF ::Cargo = "Añadir"
>> ::oParent:oDataSetP:SaveState()
>> ::oParent:oDataSetP:gotop()
>> ::oParent:oDataSetP:RestoreState()
>>
>> ENDIF
>>
>> RETURN Nil
>>
>> Ramón Torreblanca
>>
>>
>> "José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
>> news:44c9ba4b$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> Ramón,
>>>
>>> Muéstranos como haces la asignación de la data cargo y como quieres
>>> recuperar su valor.
>>>
>>> Saludos,
>>> José Luis Capel
>>>
>>> "Ramón Torreblanca" <la_pirata@hotmail.com> escribió en el mensaje
>>> news:44c9b8e1$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> > Hola a todos:
>>> >
>>> > En una aplicación que estoy desarrollando, le doy valor al "cargo" de
>>> > un
>>> > Form externo, el cual conserva sin ningún problema DENTRO DE LA CLASE
>>> > donde
>>> > le he dado el valor, pero cuando llamo a este Form, y quiero recuperar
>> el
>>> > valor de ::cargo, me da NIL.
>>> >
>>> > Es que tengo que llamar a "Cargo" de una manera especial que no sea,
>>> > por
>>> > ejemplo, cMenVar := ::Cargo?
>>> >
>>> > Muchas gracias.
>>> >
>>> >
>>> > Ramón Torreblanca
>>> >
>>> >
>>>
>>>
>>
>>
>
>
Problemas con Cargo
Muchas Gracias.
Funciona Perfectamente.
Ramón Torreblanca.
"Ignacio Ortiz de Zúñiga" <_support_@xailer.com> escribió en el mensaje
news:[email=44c9cabc@news.xailer.com...]44c9cabc@news.xailer.com...[/email]
> José Luis,
>
> Es la forma correcta. Otros lenguajes como VB tienen eventos cuando se
> instancia y se destruye un objeto y es posible que tengamos algo de uso en
> el futuro, pero la instanciación de objetos sin llamar a ningún
constructor
> funciona correctamente.
>
> Un saludo,
>
> "José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
> news:44c9c183$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> > Ramón,
> >
> > Una vez has hecho el FrmEdiPag:New(Self) ya se ha disparado el
Initialize
> > de FrmEdiPag.
> >
> > Prueba esto:
> >
> >> METHOD AddNewP() CLASS FrmFicha
> >>
> >> LOCAL oFrmP
> >>
> >> WITH OBJECT oFrmP := FrmEdiPag()
> >>
> >> :Cargo := "Añadir"
> >> ::oDataSetP:AddNew()
> >> :New( Self )
> >> :ShowModal()
> >>
> >> IF :nModalResult == mrOK
> >>
> >> ::oDataSetP:Update()
> >> ::oBrwP:Refresh()
> >>
> >> ELSE
> >>
> >> ::oDataSetP:Cancel()
> >>
> >> ENDIF
> >>
> >> END WITH
> >>
> >> RETURN NIL
> >>
> >
> > Saludos,
> > José Luis Capel
> > PD: puede que no sea la forma más ortodoxa... pero funciona
> >
> >
> >
> > "Ramón Torreblanca" <la_pirata@hotmail.com> escribió en el mensaje
> > news:44c9bff7$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> >> Perdón por tan torpe olvido:
> >>
> >> Para darle valor y llamar al Form:
> >>
> >> METHOD AddNewP() CLASS FrmFicha
> >>
> >> LOCAL oFrmP
> >>
> >> WITH OBJECT oFrmP := FrmEdiPag():New( Self )
> >>
> >> :Cargo := "Añadir"
> >> ::oDataSetP:AddNew()
> >> :ShowModal()
> >>
> >> IF :nModalResult == mrOK
> >>
> >> ::oDataSetP:Update()
> >> ::oBrwP:Refresh()
> >>
> >> ELSE
> >>
> >> ::oDataSetP:Cancel()
> >>
> >> ENDIF
> >>
> >> END WITH
> >>
> >> RETURN NIL
> >>
> >> Para Recuperarlo:------------------------------------------
> >>
> >> METHOD FormInitialize( oSender ) CLASS FrmEdiPag
> >> Local nFor, nLen, nValor, nPvp
> >>
> >> logdisplay(::cargo, ::oParent:cText)
> >>
> >> IF ::Cargo = "Añadir"
> >> ::oParent:oDataSetP:SaveState()
> >> ::oParent:oDataSetP:gotop()
> >> ::oParent:oDataSetP:RestoreState()
> >>
> >> ENDIF
> >>
> >> RETURN Nil
> >>
> >> Ramón Torreblanca
> >>
> >>
> >> "José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
> >> news:44c9ba4b$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> >>> Ramón,
> >>>
> >>> Muéstranos como haces la asignación de la data cargo y como quieres
> >>> recuperar su valor.
> >>>
> >>> Saludos,
> >>> José Luis Capel
> >>>
> >>> "Ramón Torreblanca" <la_pirata@hotmail.com> escribió en el mensaje
> >>> news:44c9b8e1$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> >>> > Hola a todos:
> >>> >
> >>> > En una aplicación que estoy desarrollando, le doy valor al "cargo"
de
> >>> > un
> >>> > Form externo, el cual conserva sin ningún problema DENTRO DE LA
CLASE
> >>> > donde
> >>> > le he dado el valor, pero cuando llamo a este Form, y quiero
recuperar
> >> el
> >>> > valor de ::cargo, me da NIL.
> >>> >
> >>> > Es que tengo que llamar a "Cargo" de una manera especial que no sea,
> >>> > por
> >>> > ejemplo, cMenVar := ::Cargo?
> >>> >
> >>> > Muchas gracias.
> >>> >
> >>> >
> >>> > Ramón Torreblanca
> >>> >
> >>> >
> >>>
> >>>
> >>
> >>
> >
> >
>
>
Funciona Perfectamente.
Ramón Torreblanca.
"Ignacio Ortiz de Zúñiga" <_support_@xailer.com> escribió en el mensaje
news:[email=44c9cabc@news.xailer.com...]44c9cabc@news.xailer.com...[/email]
> José Luis,
>
> Es la forma correcta. Otros lenguajes como VB tienen eventos cuando se
> instancia y se destruye un objeto y es posible que tengamos algo de uso en
> el futuro, pero la instanciación de objetos sin llamar a ningún
constructor
> funciona correctamente.
>
> Un saludo,
>
> "José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
> news:44c9c183$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> > Ramón,
> >
> > Una vez has hecho el FrmEdiPag:New(Self) ya se ha disparado el
Initialize
> > de FrmEdiPag.
> >
> > Prueba esto:
> >
> >> METHOD AddNewP() CLASS FrmFicha
> >>
> >> LOCAL oFrmP
> >>
> >> WITH OBJECT oFrmP := FrmEdiPag()
> >>
> >> :Cargo := "Añadir"
> >> ::oDataSetP:AddNew()
> >> :New( Self )
> >> :ShowModal()
> >>
> >> IF :nModalResult == mrOK
> >>
> >> ::oDataSetP:Update()
> >> ::oBrwP:Refresh()
> >>
> >> ELSE
> >>
> >> ::oDataSetP:Cancel()
> >>
> >> ENDIF
> >>
> >> END WITH
> >>
> >> RETURN NIL
> >>
> >
> > Saludos,
> > José Luis Capel
> > PD: puede que no sea la forma más ortodoxa... pero funciona

> >
> >
> >
> > "Ramón Torreblanca" <la_pirata@hotmail.com> escribió en el mensaje
> > news:44c9bff7$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> >> Perdón por tan torpe olvido:
> >>
> >> Para darle valor y llamar al Form:
> >>
> >> METHOD AddNewP() CLASS FrmFicha
> >>
> >> LOCAL oFrmP
> >>
> >> WITH OBJECT oFrmP := FrmEdiPag():New( Self )
> >>
> >> :Cargo := "Añadir"
> >> ::oDataSetP:AddNew()
> >> :ShowModal()
> >>
> >> IF :nModalResult == mrOK
> >>
> >> ::oDataSetP:Update()
> >> ::oBrwP:Refresh()
> >>
> >> ELSE
> >>
> >> ::oDataSetP:Cancel()
> >>
> >> ENDIF
> >>
> >> END WITH
> >>
> >> RETURN NIL
> >>
> >> Para Recuperarlo:------------------------------------------
> >>
> >> METHOD FormInitialize( oSender ) CLASS FrmEdiPag
> >> Local nFor, nLen, nValor, nPvp
> >>
> >> logdisplay(::cargo, ::oParent:cText)
> >>
> >> IF ::Cargo = "Añadir"
> >> ::oParent:oDataSetP:SaveState()
> >> ::oParent:oDataSetP:gotop()
> >> ::oParent:oDataSetP:RestoreState()
> >>
> >> ENDIF
> >>
> >> RETURN Nil
> >>
> >> Ramón Torreblanca
> >>
> >>
> >> "José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
> >> news:44c9ba4b$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> >>> Ramón,
> >>>
> >>> Muéstranos como haces la asignación de la data cargo y como quieres
> >>> recuperar su valor.
> >>>
> >>> Saludos,
> >>> José Luis Capel
> >>>
> >>> "Ramón Torreblanca" <la_pirata@hotmail.com> escribió en el mensaje
> >>> news:44c9b8e1$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> >>> > Hola a todos:
> >>> >
> >>> > En una aplicación que estoy desarrollando, le doy valor al "cargo"
de
> >>> > un
> >>> > Form externo, el cual conserva sin ningún problema DENTRO DE LA
CLASE
> >>> > donde
> >>> > le he dado el valor, pero cuando llamo a este Form, y quiero
recuperar
> >> el
> >>> > valor de ::cargo, me da NIL.
> >>> >
> >>> > Es que tengo que llamar a "Cargo" de una manera especial que no sea,
> >>> > por
> >>> > ejemplo, cMenVar := ::Cargo?
> >>> >
> >>> > Muchas gracias.
> >>> >
> >>> >
> >>> > Ramón Torreblanca
> >>> >
> >>> >
> >>>
> >>>
> >>
> >>
> >
> >
>
>