FiveTech Software tech support forums

... los registros, recien cuando iva hasta el final de la base y regresaba se reacomodoban y no era problema de indices. MUCHAS GRACIAS. DEFINE DIALOG oDlg1 Resource "CargoMovim" REDEFINE GET oconsorcio VAR nconsorcio PICTURE "99" ID _CM_Consor OF oDlg1 Font ofu color colorfw->ForeGet, ...

... cUser PASSWORD cPassword DB cDatabase oRs := oConSql:RowSet( "select * from clientes" ) oRs:SetOrder(1) REDEFINE XBROWSE oBr1 ID 110 Of oDlg1 DATASOURCE oRs 2) oRs2 := oConSql:RowSet( "select * from cuentas" ) REDEFINE XBROWSE oBr2 ID 115 Of oDlg1 DATASOURCE oRs2 Intento mostar ...

... "" ), oBrw:SetFocus(), .F. ) RETURN nil //***************** EDICION CON FOLDER--------------- FUNCTION editPro( oBrw, oDlg ) LOCAL oDlg1, oFld, oLbx, Lsalir:=.f. LOCAL nProve, oProve, cNombre, oNombre, cProvincia, oProvincia NProve := PROVE->CODIGO_PRO cNombre := PROVE->NOMBRE ...

... function main() //----------------------------------------------------------// local oDlg1,oError,lNuevo:=.F.,cText := "" local oGet := ARRAY(10) LOCAL lSalir := .F. LOCAL lSalvar := .F. local oBoton1,oBoton2,oBr,vFECHALIMI ...

yes but the title is on the dialog of Pages control.. .. and not on oDlg Main := oDlg [b]oPages1 :=oDlg0 oPages2:= oDlg1 and not run[/b] ACTIVATE DIALOG oDlg ; ON INIT (PAINTTITLE("test",CLR_GREEN,CLR_WHITE,oDlg0,oFontBold) ) RETURN NIL STATIC FUNCTION PAINTTITLE(cTesto,nColore1,nColore2,oDlg0,oFontBold) ...

I had that issue also, but didn't realise it could be a bug. (19.06) I change : :bKeyDown := { |k| If( k == VK_RETURN,( oDlg1:end() ),; if (K == VK_DELETE, Del_row(oBrw),nil )) } to :bKeyDown := { |k| If( k == VK_RETURN,( oKlant:load(),oDlg1:end() ),; if (K == VK_DELETE, Del_row(oBrw),nil ...

... NIL Function Ing_Inv_Gral(oBrw, cTab_Art, xCod_art, cEmpresa) LOCAL oGets:= Array( 05 ), aGets:= Array( 05 ) Local oBtns:= Array( 05 ) Local oBmp,oDlg1,oFont1 LOCAL lAceptar := .F. Local aCampos,aValues,aWhere, lAppend Local cStock1 :=0, oStock1 Local cStock2 :=0, oStock2 Local cStock3 :=0, oStock3 ...

... connecting the dialog to the button ( main function ) // -------------- ... ... DEFINE DIALOG oDlg1 FROM 0, 0 TO 180, 200 OF oDlg PIXEL TRUEPIXEL FONT oFont ; STYLE WS_POPUP ... @ 20, 30 BTNBMP oBtn1 2007 ; SIZE 30, 30 OF oDlg NOBORDER ; ACTION ...

Gracias nuevamente, pongo un ejemplo de la situacion: Function Menu() local oDlg1, oLbx1, oGet2, oGet3 SET 3DLOOK ON // Microsoft 3D Look DEFINE DIALOG oDlg5 FROM 13,15 TO 38,76 ; TITLE "Control de Tickets " ; nTicket:=0 Libre:=.t. @ 0.25, 19.5 TBTNGET ...

... cExt_Mar) *----------------------------------------------- LOCAL oGets:= Array( 30 ) Local oBtns:= Array( 2 ) Local oBmp,oDlg1,oFont1 LOCAL lAceptar := .F. Local aCampos,aValues,aWhere Local cCod_Mar :=Space(04), cNom_Mar :=Space(30) If lAppend cCod_Mar := Space(04) cNom_Mar ...

... se como llamarlo, luego de pistolear la cedula. Function Carga_Lector(cEmpresa,cUsuario) Local cGet LOCAL oGet Local oBtns:= Array( 2 ) Local oBmp,oDlg1,oFont1 Local aCampos,aValues,aWhere LOCAL lAceptar := .F. Local Dato:=" " Local Rut:=" " cGet:=Space(70) Define Font oFont1 ...

... full test http://www.pflegeplus.com/DOWNLOADS/Croppimg1.zip To get cropped images without border, I changed the dialog-result-style DEFINE DIALOG oDlg1 FROM 0, 0 TO nHeight - 12, nWidth - 4 OF oDlg PIXEL TRUEPIXEL ; STYLE nOr( WS_POPUP | WS_VISIBLE ) // to be used to save the image without border ...

... dialogtitle shows the text of the selected radio (textarray) FUNCTION F3_PAGE1() // 3. group / 1. testdialog LOCAL oBar DEFINE BUTTONBAR oBar OF oDlg1 SIZE 56,64 2013 HEIGHT 96 oBar:oGrpFont := oLarge DEFINE BUTTON OF oBar PROMPT "Back" RESOURCE 0x100DF GROUP LABEL "Navigate" ...

... from DIALOG is OK //------------------------ @ 210, 225 SAY oSay[1] PROMPT "Testing SAY" SIZE 80, 15 FONT oFont2 OF oDlg1 PIXEL oSay[1]:SetColor( nTxtColor, nBackColor ) inside FOLDERPAGE no background-color //---------------------------------------------- @ 115, ...

... ) ( "KKASSE" )->(DBSETORDER("KASSE1")) ("KKASSE")->(DBGOTOP()) REDEFINE XBROWSE oBrw1 ID 110 OF oDlg1 AUTOSORT ; COLUMNS { "KASS1", "KURZ1", "KENNER", "SIGNAL", "MERKER" } ; ALIAS "KKASSE" ...