FiveTech Software tech support forums

... solution please? I'll post the valid function I made @ 26, 10 SAY "Nome :" OF oDlg SIZE 22, 8 PIXEL FONT oFont @ 24, 67 GET aGet[2] VAR oCliente:Clinome OF oDlg SIZE 100, 12 PIXEL FONT oFont ; VALID CLClave( oCliente:Clicognome, aGet[2], 1,oDbf,oCliente:Clinome ) function CLClave( ...

... aEval( ::oConn:ListColumns("clientes"), {| o | cStr += If( Empty( cStr ), "", "," )+AllTrim( o[1] ) } ) ::oCliente:= ::oQuery:Record( cStr ) // Devuelve el registro señalado en el Browse // ::oQryP:Source = cQuery de Dolphin if ValType( ::oCliente ) == "O" ...

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 ...

... 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 + "analisis.Cdx" ) ::oTipo_Cte := TRed():Use( ::cRuta + "TIPOCTES.Dbf", ...

... 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_CLIENTE ::oTipo_Clientes := ::oMain:oCon:Query( ...

oCliente:oGet:bKeyChar = { | nKey | oCLiente:KeyChar( ASC(UPPER(CHR(nKey )))) }

king regards

marco

Dear friends, in this combobox REDEFINE COMBOBOX oCliente VAR cCliente ID 105 OF oDlg ITEMS aItems oCliente:lIncSearch = .T. oCliente:oGet:bKeyChar = { | nKey | oCLiente:KeyChar( nKey ) } oCliente:oGet:cPicture = "@!" It seems that picture ...

... ' ' ," + ; "PRIMARY KEY (codigo)) TYPE=InnoDB" ) //Clave primaria RETURN .T. Luego para Ordernar en un Browse basta con hacer oCliente:=TOleAuto():New("ADODB.Recordset") oCliente:CursorLocation:= adUseClient oCliente:Open("SELECT * FROM clientes ORDER BY codigo ...

DE ESA FORMA SI NECESITO ACCESAR AL NOMBRE DE UN CLIENTE LO HAGO ASI:

oCliente:cNombre

... programa FUNCTION ficha_cliente(oWnd,sel_dbf,registro) * Estado 1 (Borrado) 2 (Cambiado) 3 (Nuevo) SELECT (sel_dbf) DEFINE DIALOG maecli RESOURCE "ocliente" ACTIVATE DIALOG maecli RETURN 0 * Fichero RC // // Symantec ResourceStudio generated header file // // This file is intended for use with ...

... programa FUNCTION ficha_cliente(oWnd,sel_dbf,registro) * Estado 1 (Borrado) 2 (Cambiado) 3 (Nuevo) SELECT (sel_dbf) DEFINE DIALOG maecli RESOURCE "ocliente" ACTIVATE DIALOG maecli RETURN 0 * Fichero RC // // Symantec ResourceStudio generated header file // // This file is intended for use with ...

... ] , ; oDatos:Current()[ 1 ] := nAnterior , ; oDbfPresup:tipo := oPresupu:nTipo , ; oDbfPresup:estado := oPresupu:nEstado , ; oDbfPresup:codigo := oCliente:cCodigo , ; oDbfPresup:numpresup := oPresupu:cNumero , ; oDbfPresup:fechapres := oPresupu:dFecha , ; oDbfPresup:descripcio := oDatos:Current()[ ...

... 102 FONT oFont2 of oDlg COLOR CLR_BLACK,RGB(255,255,168) REDEFINE GET oAtiende VAR cAtiende PICTURE "@Z 99" ID 101 FONT oFont of oDlg REDEFINE GET oCliente VAR vCliente PICTURE "@z 999999" ID 103 of oDlg FONT oFont LISTA:={oFecha,oAtiende,oCliente} ACTIVATE DIALOG oDlg CENTERED ON INIT (Lista[1]:Disable(),Lista[2]:Disable(),Lista[3]:Disable()) ...