FiveTech Software tech support forums

... local oDlg, oGet02,oGet01,oGet03,oFont,clavencriptada:=space(20),claveDecriptada:=space(20) local cPassword:=SPACE(20),oSay local oBoton,oBoton2,cChave := 'AMFSOFT',cnombre:=space(33),lEncriDescri := .F.,lSalir := .F. DEFINE FONT oFont NAME "Tahoma" SIZE 0, -12 DEFINE DIALOG ...

... local oDlg1,oError,lNuevo:=.F.,cText := "" local oGet := ARRAY(10) LOCAL lSalir := .F. LOCAL lSalvar := .F. local oBoton1,oBoton2,oBr,vFECHALIMI :=space(12),vINTMORA:=0,vDESIMPTO:=0,vDESMORA:=0,vANOVIG:=space(4) local cServer := "127.0.0.1" local cDataBase := ...

... in use: ORDBAGNAME mi codigo es: FUNCTION ING_INVENTARIO_GENERAL(cEmpresa, cUsuario) local oDlg, oBrw, oFont2, oCol, oSay, oBtn2[ 9 ], oBoton1, oBoton2, oBoton3 LOCAL oGet,nIndex,aIdx:={} LOCAL cBusca:= Space(60) Local cSeek:="" Local oCampo, cCampo :=space(50), Mensaje Mensaje:="Stock ...

... Local oDlg2, oFon2, oBrw2, nTotal1, nTotal2, nTotal3, oDatos,cDatos, oTotal1,oTotal2,oTotal3, oCol2 Local I, oBoton1, oBoton2, oBoton3 Local oSay :=Array(20), cAlias01 Static TotVal MemVar Archi cDatos :="DOBLE CLICK MUESTRA SUB-MENU DE CONSULTA" cExt_Rec1:GoTop() ...

Daniel: Te dejo el código REDEFINE RBBTN oBoton2 ID 250 OF oDlg ; ACTION( lSaleAdd:=.t., oDlg:End()) BITMAP "SALIR2" ; PROMPT "&Cancelar" LEFT BORDER ROUND ROUNDSIZE 2 ; LINECOLORS RGB( 255,255,255 ), RGB( 255, 0, 0); ...

Gracias Daniel: No he podido hacerlo funcionar.. aqui el ejemplo REDEFINE RBBTN oBoton2 ID 250 OF oDlg NORMAL ; ACTION ( lRegistroSale:=.t., oDlg:End()) BITMAP "SALIR2" ; PROMPT "&Cancelar" LEFT BORDER ROUND ; GRADIANT { { 1/3, nRGB( 254, ...

... este desactivado y cuando ingrese los datos al ultimo get que es ofalla se active. FWH 7,01 Esta es la rutina: LOCAL oLbx LOCAL oBoton1 local oBoton2 local ologro1,ologro2,ologro3,ologro4,ocualit,ofallas LOCAL lSalir3 := .F. LOCAL lSalvar3 := .F. DEFINE DIALOG oDlg NAME "nuecali"; TITLE "Registro ...

... este desactivado y cuando ingrese los datos al ultimo get que es ofalla se active. FWH 7,01 Esta es la rutina: LOCAL oLbx LOCAL oBoton1 local oBoton2 local ologro1,ologro2,ologro3,ologro4,ocualit,ofallas LOCAL lSalir3 := .F. LOCAL lSalvar3 := .F. DEFINE DIALOG oDlg NAME "nuecali"; TITLE "Registro ...

... #define PANTAVA 6 local oCol2,oCol1 local oCodigo,oPropie,oCbxiden,oNuiden,oDire,ohecta,omts,oConst,oVigen,oAva,oResolu local oBoton1,oBoton2,oBoton3 LOCAL lSalir1 := .F. local txbro :=.f. local vPropie:=space(33) local videntif:=space(1) local vNuiden:=0 local vDire:=space(34) local ...

... los almacena bien, es decir si Function Proy02() Local oDlg02 Local Cod_Suma,N,oLbx0 Local oSay,oFte03,oFte04,oFte05,oEstado,cEstado Local oBoton1,oBoton2,oBoton3 Local cBoton1,cBoton2,cBoton3 close database N := 0 Select 50 N := 1 Do While .t. ARCHI = "TEM_ASO" + StrZero(N,1) If net_use(ARCHI,.T.,1) ...

... los almacena bien, es decir si Function Proy02() Local oDlg02 Local Cod_Suma,N,oLbx0 Local oSay,oFte03,oFte04,oFte05,oEstado,cEstado Local oBoton1,oBoton2,oBoton3 Local cBoton1,cBoton2,cBoton3 close database N := 0 Select 50 N := 1 Do While .t. ARCHI = "TEM_ASO" + StrZero(N,1) If net_use(ARCHI,.T.,1) ...

... y a la vez la información introducida nos aparezca grabada en el archivo. STATIC FUNCTION Nuevo() #define DIALOG_3 3 LOCAL oCbx,oCbx1,oBoton1, oBoton2 LOCAL videntif local oGet1,oGet2,oGet3 local vcuenta:=space(8) local vnomcuenta:=space(40) LOCAL VNOM_PA:=space(20) static vreq_pa:=.F. static ...

... y a la vez la información introducida nos aparezca grabada en el archivo. STATIC FUNCTION Nuevo() #define DIALOG_3 3 LOCAL oCbx,oCbx1,oBoton1, oBoton2 LOCAL videntif local oGet1,oGet2,oGet3 local vcuenta:=space(8) local vnomcuenta:=space(40) LOCAL VNOM_PA:=space(20) static vreq_pa:=.F. static ...

... FUNCTION Main() *************** LOCAL oWnd PRIVATE oBoton0,oBoton1,oBoton2 DEFINE WINDOW oWnd TITLE "Menu" oWnd:bKeyDown := {|| InterpretaTeclado()} @ 0,121 BTNBMP oBoton0 ; SIZE 120, 50 ; PROMPT "0-Salir"; ACTION (EjecutaMenu("0")) ...