>>>>Hola.....i dont speak english very well, but i need information of visual fox
>>>>I have problems with the grids, with relations one - more of tables in the forms cosntruction,
>>>>please if somebody have an aplication , or a form with this , send me the file o write me :
>>>>hmendivil@tabasi.nur.edu
>>>>Es urgente!!!!!!!!!!! please!!!!!!!!!!!!!!
>>>
>>>Eli,
>>>Si tienes problemas con el inglés, podrias probar las news en español. Pienso que la dirección es microsft.public.es.vfoxpro, o algo semejante.
>>>
>>>José
>>Gracias Jose, pero aprovechando que tu sabes español.....puedes ayudarme ????????......por favor!, tengo problemas al
>>insertar un combo dentro de una columna del grid, cuando quiero elegir una de las opciones del combo, no
>>me muestra nada en la casilla, pero es solo hasta que salgo de ella, luego queda el valor que escogí (sin verlo)
>>puedes??????
>
>A continuación vas a encontrar el class browser export de un contenedor que contiene un grid ... que contiene un combo que me esta saliendo bien... Un poco largo, pero que vamos a hacer?
>
>**************************************************
>*-- Class: taroptchildobj (c:\cdbk30\autosoft\libs\abizness.vcx)
>*-- ParentClass: jbizchildobj (c:\cdbk30\common30\libs\cbizjo.vcx)
>*-- BaseClass: container
>*-- Options du tarif (child)
>*
>#INCLUDE "c:\cdbk30\common30\include\framincl.h"
>*
>DEFINE CLASS taroptchildobj AS jbizchildobj
>
>
> Width = 456
> Height = 330
> Visible = .F.
> cparentbizobj = ""
> cviewparmname = "vp_cTarifId"
> lprimarybizobj = .F.
> lconfirmondelete = .F.
> lautoprimarybizobj = .T.
> lfillparentkey = .T.
> cparentkeyfield = "cTarifID"
> lnoautoparent = .F.
> lsetfocusonnew = .F.
> Name = "taroptchildobj"
> refBizObj.Top = 25
> refBizObj.Left = 398
> refBizObj.TabIndex = 6
> refBizObj.ZOrderSet = 0
> refBizObj.Name = "refBizObj"
> oDELoader.oDELoader.Name = "oDELoader"
> oDELoader.Top = 24
> oDELoader.Left = 324
> oDELoader.TabIndex = 5
> oDELoader.ZOrderSet = 1
> oDELoader.cdataenvironment = "TarOptEnvironment"
> oDELoader.Name = "oDELoader"
>
>
> ADD OBJECT coptionsgrid AS cgrid WITH ;
> ColumnCount = 4, ;
> DeleteMark = .F., ;
> GridLines = 2, ;
> Height = 312, ;
> Left = 6, ;
> Panel = 1, ;
> RecordMark = .F., ;
> RowHeight = 22, ;
> ScrollBars = 2, ;
> TabIndex = 3, ;
> Top = 9, ;
> Width = 444, ;
> ZOrderSet = 6, ;
> lmovable = .F., ;
> lresizable = .F., ;
> Name = "cOptionsGrid", ;
> Column1.ControlSource = "v_TarOpt.cOptionID", ;
> Column1.CurrentControl = "cboOption", ;
> Column1.Width = 52, ;
> Column1.ReadOnly = .F., ;
> Column1.Sparse = .F., ;
> Column1.Name = "grcCode", ;
> Column2.ControlSource = "v_TarOpt.cLib", ;
> Column2.Width = 209, ;
> Column2.ReadOnly = .F., ;
> Column2.Name = "grcLib", ;
> Column3.ControlSource = "v_TarOpt.yOption", ;
> Column3.Width = 80, ;
> Column3.ReadOnly = .F., ;
> Column3.Format = "$", ;
> Column3.InputMask = "9,999,999", ;
> Column3.Name = "grcOptionPrix", ;
> Column4.ControlSource = "ROUND(v_TarOpt.YOption * (1+ v_TvaVente.nTaux/100), 0)", ;
> Column4.Width = 80, ;
> Column4.ReadOnly = .T., ;
> Column4.Format = "$", ;
> Column4.InputMask = "9,999,999", ;
> Column4.Name = "grcTvac"
>
>
> ADD OBJECT taroptchildobj.coptionsgrid.grccode.grhcode AS header WITH ;
> Caption = "Code", ;
> Name = "grhCode"
>
>
> ADD OBJECT taroptchildobj.coptionsgrid.grccode.txtcode AS textbox WITH ;
> BorderStyle = 0, ;
> Margin = 0, ;
> ReadOnly = .T., ;
> ForeColor = RGB(0,0,0), ;
> BackColor = RGB(255,255,255), ;
> Name = "txtCode"
>
>
> ADD OBJECT taroptchildobj.coptionsgrid.grccode.cbooption AS coptioncombobox WITH ;
> Height = 22, ;
> Left = 12, ;
> TabIndex = 1, ;
> Top = 300, ;
> Width = 56, ;
> ZOrderSet = 3, ;
> BorderStyle = 0, ;
> ReadOnly = .F., ;
> Name = "cboOption"
>
>
> ADD OBJECT taroptchildobj.coptionsgrid.grclib.grhlib AS header WITH ;
> Caption = "Libellé", ;
> Name = "grhLib"
>
>
> ADD OBJECT taroptchildobj.coptionsgrid.grclib.txtlib AS textbox WITH ;
> BorderStyle = 0, ;
> Margin = 0, ;
> ReadOnly = .F., ;
> ForeColor = RGB(0,0,0), ;
> BackColor = RGB(255,255,255), ;
> Name = "txtLib"
>
>
> ADD OBJECT taroptchildobj.coptionsgrid.grcoptionprix.grhoptionprix AS header WITH ;
> Caption = "Prix", ;
> Name = "grhOptionPrix"
>
>
> ADD OBJECT taroptchildobj.coptionsgrid.grcoptionprix.txtoptionprix AS textbox WITH ;
> BorderStyle = 0, ;
> Margin = 0, ;
> ReadOnly = .F., ;
> ForeColor = RGB(0,0,0), ;
> BackColor = RGB(255,255,255), ;
> Name = "txtOptionPrix"
>
>
> ADD OBJECT taroptchildobj.coptionsgrid.grctvac.grhtvac AS header WITH ;
> Caption = "TVA comprise", ;
> Name = "grhTvac"
>
>
> ADD OBJECT taroptchildobj.coptionsgrid.grctvac.txttvac AS textbox WITH ;
> BorderStyle = 0, ;
> Margin = 0, ;
> ReadOnly = .T., ;
> ForeColor = RGB(0,0,0), ;
> BackColor = RGB(255,255,255), ;
> Name = "txtTVAc"
>
> PROCEDURE coptionsgrid.AfterRowColChange
> LPARAMETERS nColIndex
>
> LOCAL llLock
> llLock = thisform.lockScreen
> thisform.LockScreen = .T.
>
> IF TYPE("Thisform.oToolbar") = "O" AND _TALLY > 1
> LOCAL lnRecNo
> lnRecNo = RECNO()
> LOCATE
> *-- If we're still on the same record, we were already on top ...
> IF lnRecNo = RECNO()
> thisform.lBOF = .T.
> ELSE
> thisform.lBOF = .F.
> GO (lnRecNo)
> ENDIF
>
> GO BOTTOM
> *-- If we're still on the same record, we were already at bottom ...
> IF lnRecNo = RECNO()
> thisform.lEOF = .T.
> ELSE
> thisform.lEOF = .F.
> GO (lnRecNo)
> ENDIF
>
> thisform.oToolbar.Refresh()
> ENDIF
>
> thisform.LockScreen = llLock
> ENDPROC
>
>
> PROCEDURE cbooption.InteractiveChange
> LOCAL lnOldSel
> lnOldSel = SELECT()
> SELECT OPTION
>
> LOCAL lcValue
>
> lcValue = LOOKUP(clib, this.Value, cid, "Primary")
>
> IF lcValue # v_TarOpt.clib
> REPLACE v_TarOpt.clib WITH lcValue
> *this.Parent.Parent.Refresh()
> ENDIF
>
> SELECT (lnOldSel)
> ENDPROC
>
>
>ENDDEFINE
>*
>*-- EndDefine: taroptchildobj
>**************************************************
>**************************************************
>*-- Class: coptioncombobox (c:\cdbk30\autosoft\libs\acustctl.vcx)
>*-- ParentClass: ccombobox (c:\cdbk30\common30\libs\ccontrls.vcx)
>*-- BaseClass: combobox
>*-- A cComboBox for displaying the option code and option title
>*
>#INCLUDE "c:\cdbk30\common30\include\framincl.h"
>*
>DEFINE CLASS coptioncombobox AS ccombobox
>
>
> RowSourceType = 3
> Width = 60
> Name = "coptioncombobox"
>
>
> PROCEDURE Destroy
> IF USED ("cOptions")
> USE IN cOptions
> ENDIF
> ENDPROC
>
>
> PROCEDURE Init
> DODEFAULT()
> this.RowSource = "SELECT cCode, cLib, cId " + ;
> "FROM autosoft!option ORDER BY cCode INTO CURSOR cOptions"
>
> this.BoundColumn = 3
> this.ColumnCount = 2
>
> this.ColumnWidths = STR(FSIZE("cCode", "cOptions") * 2 *;
> FONTMETRIC(TM_AVECHARWIDTH, this.Fontname, this.Fontsize)) + ;
> ", " + ;
> STR(FSIZE("cLib", "cOptions") * 1.2 *;
> FONTMETRIC(TM_AVECHARWIDTH, this.Fontname, this.Fontsize))
> ENDPROC
>
>
>ENDDEFINE
>*
>*-- EndDefine: coptioncombobox
>**************************************************
>Ahora, si te sale bien, mandame un botella de Singani virtual... Me gustaría hacer un chuflay de vez en cuando!
>
>José
Hola Jose :

Gracias por responder....pues bien, la verdas que como creo que te dije antes estoy comenzando con esto de visual
y estoy aprendiendo para realizar un proyecto en mi universidad, así que por favor quisiera que me digas que tengo que
hacer con el código que me enviaste....es una clase?...donde debo añadirla?, o es un prg?, como puedo ejecutarlo?

Te agradeceré que me respondas, porque sigo con el mismo problema y estoy perdiendome ok?
Gracias!!!!

Eli