FiveTech Software tech support forums

Now I have all items checked https://i.postimg.cc/tJXG8bbt/rr.png I made static lTipo1:=.f.,ltipo2:=.f. @ 10, 550 BTNBMP oTipo PROMPT.... oTipo:baction:= {|Self|::ShowPopUp( { |oBtn| BtnPopMenu( oBrw,oMisura,lTipo1,lTipo2 ) } )} Function BtnPopMenu(oBrw,oDbf,lTipo1,lTipo2) ...

... ID 105 OF oDDAbmLin REDEFINE GET oImport VAR nImport PICTURE "@E 999,999,999.99" ID 106 OF oDDAbmLin VALID Importe() REDEFINE GET oTipo VAR nTipo PICTURE "@E 99.99" ID 107 OF oDDAbmLin VALID (G_Linea(),.t.) REDEFINE GET oNumasi VAR cNumasi ID 101 OF oDDAbmLin ReadOnly ...

Y si abris la consulta ordenada? ***ABRO LAS TABLAS ::oCliente := ::oMain:oCon:Query( "SELECT * FROM MAANALIS ORDER BY ...." ) // con el orden que tiene analisis.cdx ::oTipo_Cte := ::oMain:oCon:Query( "SELECT * FROM TIPOCTES ORDER BY ..." ) // con el orden que tiene tipo_cte.cdx ...

Fivewiners favor llevo rato con este tema.. toy comenzado a migrar y utilizar TMsql pero no logro algo basico como este combobox... aqui como lo hago en mi actual DBF y como intento con TmSql CRE0 COMBOBOX CON LOS DATOS DE UNA DBF ::oCliente := TRed():Use( ::cRuta + "MAANALIS.Dbf", ::cRuta...

Amigos favor su ayuda comienzo a utilizar la clase TMsql y necesito abrir un combobox relacionando 2 tablas, por un código en común, aquí un ejemplo de como lo realizo: ***ABRO LAS TABLAS ::oCliente := ::oMain:oCon:Query( "SELECT * FROM MAANALIS" ) //esta tabla contiene un campo TIPO_CLIEN...

Jhonson y Rodolfo Gracias`por sus aporte, usando la funcion que me envio Jhonson, hice algunos ajustes y me dio resusltado, aqui les dejo la s modificaciones y un listado de lo que me arrojo, espero que le sirve a mucha mas gente... # include "fivewin.ch" Function W_Main_Info () Local oDat...

... Static campo4 Static campo5 Static campo6 Static campo7 Static campo8 Static campo9 Static oTurno:= {"Turno1","Turno2","Turno3","INT"} Static otipo:= {"Urgencia","Traslado","Falsa Alrma","Servicio Especial"} //----------------------------campos memo Static cText01 Static cText02 //---------------------// ...

... AGREGO( Sinuevo, oBrw ) //======================================== Public oDlg2,mNumero,mNomb,mAp1,mAp2,mTipo,mDtipo,oNumero,oNomb,oAp1,oAp2,oTipo,oDtipo if sinuevo = .t. mNumero = space(5) mNomb = space(25) mAp1 = space(15) mAp2 = space(12) mTipo = space(1) mDtipo = space(10) else mNumero ...

Julio,

El mensaje tienes que enviarlo desde la claúsula ON INIT ya que antes el control no tiene un handle de ventana válido:

ACTIVATE DIALOG oDlg ;
ON INIT oTipo:SendMsg( CB_SETDROPPEDWIDTH, 280 )

... conexion sin problemas, esta es : //==================== FUNCTION EMPLEA1() //==================== Public oDlg1,oNumero,oNomb1,oApelli1,oApelli2,oTipo,oTipoe,oCargo,oNomcar,oUnidad,oNomUni,oFecnac,oFecIng Public oSup,oNomsup,oBaj1,oBaj2,oBaj3,oLinea,oImg Public mNumero,mNomb1,mApelli1,mApelli2,mTipo,mTipoe,mCargo,mNomcar,mUnidad,mNomUni,mFecnac ...

... El problema es cuando tengo una macro muy compleja (FiveScript hace uso extenso de las macros). En FiveScript con Clipper/FW esto funciona Ok oTipo:bLostFocus :={|| oTipo:Assign(),oTDescripcion:Set( oEdit:Tipo ),oTDescripcion:Refresh() } .. incluso expresiones mas complejas, limitadas solo ...