FiveTech Software tech support forums

... #include "Folder.ch" FUNCTION Sys111(oWPpal) Local oWnd, oDlg, oFld, oBrw, oBr1, oLbx, fntArial, fntAria1, vAlias, TEM, l3d:= .F., oCurDedo, oBtn, oBt1 Local aDatos:= {}, cPic:= "@ze 999,999.99" // Array MultiDimensional Local hBmp:= ReadBitMap( 0, "finger.bmp" ...

... 106 Of oDlg Update Picture "@!" COLOR RGB(160,0,0), RGB(0,255,255) Redefine BitMap oBtn[4] Id 23 Adjust FileName "Bmp\Gsalir1.Bmp" Of oDlg Cursor oCurDedo; On Click oDlg:END() oBtn[5]:cToolTip = "SALIR DE ESTA OPCION" For x=1 to 4; oBtn[x]:ltransparent=.T.;Next x For x=1 to 4; TgGet[x]:Refresh();Next ...

... los hijos ingresados en el browse. Se puede hacer de esta forma? Favor Ayuda. Antonio Ferrada Muestro el codigo que tengo. *** Define Cursor oCurDedo Resource "Dedo" Define Font oFont1 Name "Arial Black" Size 0,19 Define Dialog oDlgEdit Resname "Clientes" Redefine Get oEnti1 Var Enti1 Id ...

... y Blinker 5.1 EL codogo es el siguiente: Llamado desde Bitmap, para buscar Dpto. Redefine BitMap Id 25 Adjust Resource "BUSCA2" Of oDlgEdit Cursor oCurDedo On Click (Bus_dep(),oCod_dep1:Refresh()) Function Bus_dep() Local oDlg, oBot1, oBot2, oLbx1, oCurDedo Sele oDbdep DbSetorder(2) Seek Cod_pro1+Cod_edi1 ...

... y Blinker 5.1 EL codogo es el siguiente: Llamado desde Bitmap, para buscar Dpto. Redefine BitMap Id 25 Adjust Resource "BUSCA2" Of oDlgEdit Cursor oCurDedo On Click (Bus_dep(),oCod_dep1:Refresh()) Function Bus_dep() Local oDlg, oBot1, oBot2, oLbx1, oCurDedo Sele oDbdep DbSetorder(2) Seek Cod_pro1+Cod_edi1 ...

... a Get modificados. Si me puedes ayudar, desde ya te doy las gracias, Ha, soy de Santiago de Chile. Saludos. Miguel Rivera ***** Define Cursor oCurDedo Resource "Dedo" Define Dialog oDlgEdit Resname "Clientes" Redefine Say oCod_cli1 Prompt Cod_cli1 Id 30 Of oDlgEdit Picture "999" Color "w+/b*" ...

... amigos y Feliz Año Llevo un buen rato y algo se me escapa, porqué no me pinta el Button ********************** FUNCTION Canon() local oDlg,oBrw,ocurdedo local aAlias,oboton aAlias:= cargaAlias() dbUseArea(.T.,,Publicas:cUnidad+"\Canon",aAlias[12],.F.) (aAlias[12])->(ordSetfocus("numero")) ...

... a Get modificados. Si me puedes ayudar, desde ya te doy las gracias, Ha, soy de Santiago de Chile. Saludos. Miguel Rivera ***** Define Cursor oCurDedo Resource "Dedo" Define Dialog oDlgEdit Resname "Clientes" Redefine Say oCod_cli1 Prompt Cod_cli1 Id 30 Of oDlgEdit Picture "999" Color "w+/b*" ...

... bien el problema pero creo que ese "ID 30" lo pondria como GET y no como SAY .. y le agrego un READONLY espero que te ayude Lubin Define Cursor oCurDedo Resource "Dedo" Define Dialog oDlgEdit Resname "Clientes" Redefine GET oCod_cli1 Prompt Cod_cli1 Id 30 Of oDlgEdit Picture "999" READONLY Color ...

... a Get modificados. Si me puedes ayudar, desde ya te doy las gracias, Ha, soy de Santiago de Chile. Saludos. Miguel Rivera ***** Define Cursor oCurDedo Resource "Dedo" Define Dialog oDlgEdit Resname "Clientes" Redefine Say oCod_cli1 Prompt Cod_cli1 Id 30 Of oDlgEdit Picture "999" Color "w+/b*" ...

... Fon_ven1:=oDbVendedor->Fon_ven Cel_ven1:=oDbVendedor->Cel_ven Email1:=oDbVendedor->Email Endif Define Cursor oCurDedo Resource "Dedo" Do while lPara Define Dialog oDlgEdit Resname "Vendedor" IF lPara Redefine Get oCod_ven1 Var Cod_ven1 Id 30 Of oDlgEdit Update ...

... Fon_ven1:=oDbVendedor->Fon_ven Cel_ven1:=oDbVendedor->Cel_ven Email1:=oDbVendedor->Email Endif Define Cursor oCurDedo Resource "Dedo" Do while lPara Define Dialog oDlgEdit Resname "Vendedor" IF lPara Redefine Get oCod_ven1 Var Cod_ven1 Id 30 Of oDlgEdit Update ...

... Fon_ven1:=oDbVendedor->Fon_ven Cel_ven1:=oDbVendedor->Cel_ven Email1:=oDbVendedor->Email Endif Define Cursor oCurDedo Resource "Dedo" Do while lPara Define Dialog oDlgEdit Resname "Vendedor" IF lPara Redefine Get oCod_ven1 Var Cod_ven1 Id 30 Of oDlgEdit Update ...

... Ing. Alfredo Arteaga STATIC T_Dir, T_Num //------------------------------------------------------------------ FUNCTION CAT_USU(oOdbc) LOCAL ocurDedo LOCAL criterio := "SELECT * from Cat_USU Order By mater,juzas" LOCAL oQuery LOCAL Puntero:=oOdbc DEFINE CURSOR oCurDedo RESOURCE "Dedo" lEsAlta:=.F. ...

... Aviso "," Fecha Recog. ", " Recoger en "," Conductor "," R ","Incidencia","Operador" ; FIELDSIZES 70,70,200,60,45,150,150; ALIAS "Avisos"; CURSOR oCurdedo; COLOR CLR_BLACK, GetSysColor( COLOR_BTNFACE ) ; ON LEFT DBLCLICK (iif(!avisos->(eof()) .and. MemVar->cAccesoM,(cTitulo:="Visualización ...