Search found 14 matches: cunidad

Return to advanced search

Re: Parpadeo de un SAY

... ID Ma_Costo OF oDlgMa valid nCosto>0 REDEFINE GET oUltActPre VAR dUltActPre ID Ma_CostoAl OF oDlgMa REDEFINE GET oUnidad VAR cUnidad PICTURE "@K!" ID Ma_Unidad OF oDlgMa REDEFINE GET oLargo VAR nLargo PICTURE "999.999" ID Ma_Largo OF oDlgMa REDEFINE GET ...
by José Camilo
Sat Mar 02, 2024 10:30 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Parpadeo de un SAY
Replies: 18
Views: 425

SOURCE FOR IMAGE WITH *.BMP *.EMF *.GIF *.ICO *.JPG *.PNG *

... STATIC ownd //----------------------------------------------------------------------------// FUNCTION main() local oBar local oIni local cUnidad DEFINE WINDOW ownd FROM 1, 1 TO 22, 75 ; TITLE "Open image *.BMP *.EMF *.GIF *.ICO *.JPG *.PNG *.TIF *.WMF" MENU BuildMenu() ; MDI ...
by HATHAL
Sun Oct 06, 2013 8:46 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: Cover Flow
Replies: 10
Views: 5581

Re: Error DBCMD/1010

... DATABASE oDbfFp oDbffp:Load() else MsgStop( "Fichero UNIDAD DE MEDIDA Bloqueado" ) return nil endif Seek (oDbf3:calias)->rcoduni cunidad:=substr(((oDbfFP:calias)->sigla),1,3) if NetUse("codigos",.t. ) OrdListAdd("codigos","codigo","familia") ...
by elmoiquique
Thu May 28, 2009 11:31 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Error DBCMD/1010
Replies: 2
Views: 402

Hola Mario : Esa Funcion Devuelve .T. si el contenido de la variable cUnidad esta disponible, prueba asi : LOCAL cUnidad:="E:" IF IsDiskette(cUnidad) MsgInfo("Unidad "+cUnidad+" Lista") ***** TU CODIGO ELSE MsgAlert("Unidad NO DISPONIBLE") ENDIF Creo que tu ...
by LuisPonce
Mon Oct 20, 2008 5:52 pm
 
Forum: FiveWin para CA-Clipper
Topic: Consultando por unidad de disquete
Replies: 4
Views: 1116

AQUI ESTA

... ID_MEMO 110 #define BLANCO 1 #define ROJO 2 #define AMARILLO 3 #define AZUL 4 #define VERDE 5 static lExit := .F. static oWnd static oUnidades,cUnidad static oUnidad:={} //------------------------de control de tiempo Static hOra1 Static hOra2 Static hOra3 Static hOra4 Static hOra5 Static hOra6 ...
by AIDA
Thu Apr 17, 2008 1:25 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: PASA ALGO MUY RARO AL CERRAR MI PROGRAMA(RESUELTO)
Replies: 14
Views: 2869

Pack y progress

Hola amigos: Para hacer una organizacion de ficheros vengo haciendo lo siguiente: Primero pack: *************** if lalb=.T. dbusearea(.f.,,Publicas:cUnidad+Publicas:cSubd+"\Albaran",,.f.) // Exclusiva if !neterr() pack treg+=(albaran->(reccount())*10) endif ****************** Después index **************** ...
by JoseLuis
Sun Feb 04, 2007 11:41 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: Pack y progress
Replies: 6
Views: 1514

No me funciona el Refresh en TXBrowse, me ayudan porfis

... := mComments AUTOS->OCUPACION := cOcupacion AUTOS->DEPARTA := cDeparta AUTOS->DEPACLAVE := cDepaclave AUTOS->UNIDAD := cUnidad AUTOS->UNICLAVE := cUniclave AUTOS->UBICADEP := cUbicadep commit oBrw:Refresh() RETURN Nil
by AIDA
Fri Feb 02, 2007 4:27 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: No me funciona el Refresh en TXBrowse, me ayudan porfis
Replies: 0
Views: 499

NO FUNCIONA?

... STATIC cSUME_ASEGU STATIC cRCV_CATAST STATIC cAgente,cPromo STATIC cCompanyId,hBorland STATIC mComments,cOcupacion,cDeparta,cDepaclave STATIC cUnidad,cUniclave,cUbicadep STATIC cImporte_to STATIC cPrima_neta,cDescuentos,cMensual,rRecibo1,rReciVo1,rRecibo2,rReciVo2 STATIC cCat,cMen,oSov STATIC ...
by AIDA
Sat Jan 13, 2007 7:47 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: Como se meter un RC en un EXE
Replies: 5
Views: 1960

José Luis, Esto no hace falta: oBmp1:= TImage():Define( , Publicas:cUnidad+Ficheros ) Añade este comando a FiveWin.ch: #xcommand REDEFINE IMAGE [ <oBmp> ] ; [ ID <nId> ] ; [ <of: OF, WINDOW, DIALOG> <oWnd> ] ...
by Antonio Linares
Sat Jan 06, 2007 8:28 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Imagen con Timage
Replies: 5
Views: 1404

Imagen con Timage

... ************************* ficheros:=cargaarray() static function cargaarray() local i,ficheros,longitud,numfiles Ficheros := Array( ADir( Publicas:cUnidad+"*.jpg" ) ) Longitud := Array( ADir( Publicas:cUnidad+"*.jpg" ) ) NumFiles := aDir (Publicas:cUnidad+"*.jpg", Ficheros, Longitud) return ficheros[1] ...
by JoseLuis
Sat Jan 06, 2007 2:09 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Imagen con Timage
Replies: 5
Views: 1404

No me pinta boton

... 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")) DEFINE CURSOR oCurDedo RESOURCE "Dedo" DEFINE DIALOG oDlg FROM 0,0 TO 18, ...
by JoseLuis
Tue Jan 02, 2007 10:21 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: No me pinta boton
Replies: 1
Views: 655

... local hacer:=0,oculta,oculta1,oculta2,oculta3,oculta4,oculta5 local oNombre,oLbx,obmp local Grabar:=.F. SET _3DLOOK ON dbUseArea(.T.,,Publicas:cUnidad+"\MUNICI",,.T.) munici->(ordSetfocus("ccodmun")) dbUseArea(.T.,,Publicas:cUnidad+"\PROVIN",,.T.) provin->(ordSetfocus("ncodprov")) dbUseArea(.T.,,Publicas:cUnidad+"\PROPIE",,.T.) ...
by JoseLuis
Mon Nov 13, 2006 5:57 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Transparencias
Replies: 20
Views: 7434

Jose Luis,

Prueba a poner al principio de tu PRG lo siguiente:

memvar CCODU, DFETRA, CTITULO, CUNIDAD, CTITULO
by Antonio Linares
Sun Apr 09, 2006 5:14 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: Primeros pasos en harbour
Replies: 1
Views: 772

Primeros pasos en harbour

... Warning W0001 Ambiguous reference: 'CTITULO' C:\fuentes\fuentesf\envio\envio.prg(42) Warning W0001 Ambiguous reference: 'CUNIDAD' C:\fuentes\fuentesf\envio\envio.prg(61) Warning W0001 Ambiguous reference: 'CTITULO' No code generated. MAKE Version 5.2 Copyright (c) 1987, ...
by Jose Luis
Sat Apr 08, 2006 9:42 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Primeros pasos en harbour
Replies: 1
Views: 772

Return to advanced search

cron