FiveTech Software tech support forums

... cliccare su ogni prompt del tab e indicizzare il listbox per l'indice relativo quindi devo fare un'istruzione : @ nGridBottom, nSplit+2 TABS oApp():oTab ; OPTION nOrder SIZE oApp():oWndMain:nWidth()-80, 12 PIXEL OF oApp():oDlg ; ITEMS aIdx dove aIdx è l'array con le stringhe relative agli ...

... oCbx VAR cVar ITEMS aIdx ID 210 OF oDlg; ON CHANGE Sel_Index(oCbx) Now I want show the option into a tab control @ nGridBottom, nSplit+2 TABS oApp():oTab ; OPTION nOrder SIZE oApp():oWndMain:nWidth()-80, 12 PIXEL OF oApp():oDlg ; ITEMS aIdx but it not run ok can U help me pls

ACTION oApp():oGrid:Print( .t., , "Elenco Soci" ) it make error Application =========== Path and name: C:\work\errori\fsdi2006\prg\fsdi2006.Exe (32 bits) Size: 2,059,776 bytes Time from start: 0 hours ...

Ut_BrwRowConfig( oApp():oGrid ) NOT found in the fsdi2006
Can you send me this function ? , pls

... -------------------------------------------------------------- Option Explicit Dim MyCDRW, MySource, MyCDNAME, MyDateCode, MyTarget Dim oShell, oApp, oFolder, vbShort ' Cambia estas tres variables acorde a las especificaciones de tu sistema MyCDRW = "E:\" MySource = "c:\FW23" MyCDName = "MyDocs" ...

... un botoncito :-) Este es el trozo de código que utilizo: METHOD Pruebas() CLASS tMante_Vendedor LOCAL tReport tReport := tActiveX(oApp:oDlg, "Crystal.CrystalReport") tReport:SetProp("WindowParentHandle",oApp:oDlg:hWnd) tReport:SetProp("ReportFileName","R:\informesluis\listadomovalmacen.rpt") ...

Goosfancito: Mira este ejemplo SET MESSAGE OF oWindow TO oApp:cRazonSocial KEYBOARD CLOCK // De izquierda a derecha, pone El nombre de la empresa // despues el status del teclado y la hora DEFINE MSGITEM oMiCasilla OF oWindow:oMsgBar; SIZE 85 PROMPT ...

... Fil++ Fil++ Fil++ nPag := oPrn:nPage oPrn:Say(Fil*f, (cMedio - ( LEN(TITULO)/2 ))*c, TITULO, oFnt2) Fil++ Fil++ oPrn:Say(Fil*f, (cMedio - ( LEN(oApp:membrete)/2 ))*c, oApp:membrete, oFnt2) Fil++ Fil++ * Linea separador de titulo - encabezados oPrn:Line(Fil*f,000*c, Fil*f, LstCol*c) nFil1 := ...

... Fil++ Fil++ Fil++ nPag := oPrn:nPage oPrn:Say(Fil*f, (cMedio - ( LEN(TITULO)/2 ))*c, TITULO, oFnt2) Fil++ Fil++ oPrn:Say(Fil*f, (cMedio - ( LEN(oApp:membrete)/2 ))*c, oApp:membrete, oFnt2) Fil++ Fil++ * Linea separador de titulo - encabezados oPrn:Line(Fil*f,000*c, Fil*f, LstCol*c) nFil1 := ...

... largo de página del reporte creado con EasyReport y así si funciona. Mantengo en mi programa dos campos para el ancho y el largo y una variable (oApp:ImpDoc) para indicar a la clase que se ejecute de esta forma. METHOD SetPaperSize( aSize ) CLASS VRD LOCAL aSizes IF empre2->ancho#0 .and. empre2->largo#0 ...

... ) , lSalva := aVret[1] ,; IIF( lSalva , oDlg:End() , Obj(aVret[2]):SetFocus() )); MESSAGE "Guardar cambios y salir del catalogo" ; WHEN ( Acceso(oApp:aUsuarios,"PPTO", nActua ) ) REDEFINE BTNBMP aBoton[6] ID 502 RESOURCE "SALIR" OF oDlg ACTION (lSalva := falso, oDlg:End()) ; MESSAGE "Salir del ...

... ::oBtn[01]:Enable() ::oDlg1:update() RETURN NIL METHOD Valid( lBrw, lRbt ) CLASS FT604AbreCaja //este metodo valid para que control es ? LOCAL oApp, nLoc, nBol, cLoc ::cMesano := Strzero( ::oCmb[01]:nAt, 02 ) + SubStr( ::aAnos[ ::oCmb[02]:nAt], 3, 2 ) nLoc := ::aLocal[01][ ::oCmb[03]:nAt ] ...

... que estoy haciendo mal. Gracias. Carlos Sincuir ****PROGRAMA 1 #Include "FiveWin.ch" //-------------------------------- FUNCTION Main() Local oApp, oSeg oApp := TPrincipal():New() ? oApp:cVersion //Despliega "Versión 1.0.1" <--todo bien oSeg := TSegunda():New() oSeg:Hola() //Despliega el ...

... := .t. ::oWnd:Hide() ::oWnd:Restore() // minimize that window endif ::LstFcs() endif if ::bEndPst !=NIL eval( ::bEndPst ) endif ::lEnd := .t. oApp:OpWd( cCrg,, 2 ) if ::nWd == 1 do while PostMessage( ::oWnd:hWnd, WM_CLOSE ) # 1 enddo endif Self := NIL // if exist other windows then again restore ...

... ::nWk2, ::nWk3, ::nWk4, .t. ), ::DlgCtrl(), ; ::nPrvWnd := GetFocus(), ::PradIrs( ::cPrdKnt, ::aPrdBsn, ::cPrdAls ), ::oBrw[ ::nFld ]:SetFocus(), oApp:OpWd( ::cCargo, Self, 1 ) },,) endif return( NIL ) METHOD End() CLASS TMyBasic local cCrg := ::cCargo local n := 0 if ::bEnd !=NIL // codeblock ...