FiveTech Software tech support forums
www.FiveTechSoft.com
Search found 310 matches: endcase
Re: Inspector de Objetos
... uValue:=0 CASE ValType(uValue)="D" uValue:=CTOD("") CASE ValType(uValue)="L" uValue:=.F. ENDCASE RETURN uValue FUNCTION MsgAlert(cMsg1,cMsg2) return MsgInfo(cMsg1,cMsg2) FUNCTION FT_INSPECT(oObj) LOCAL aMetodos:=__objGetMethodList( oObj ...
- Sat Apr 04, 2015 5:15 am
- Forum: FiveTouch
- Topic: Inspector de Objetos
- Replies: 1
- Views: 824
Mi primer programa Fivetouch para crear usuarios
... uValue:=0 CASE ValType(uValue)="D" uValue:=CTOD("") CASE ValType(uValue)="L" uValue:=.F. ENDCASE RETURN uValue FUNCTION MsgAlert(cMsg1,cMsg2) return MsgInfo(cMsg1,cMsg2)
- Fri Apr 03, 2015 4:47 am
- Forum: FiveTouch
- Topic: Mi primer programa Fivetouch para crear usuarios
- Replies: 4
- Views: 2407
Re: ADO RDD xHarbour
... CASE nType == HB_FT_INTEGER uInfo := "I" CASE nType == HB_FT_DOUBLE uInfo := "B" OTHERWISE uInfo := "U" ENDCASE CASE nInfoType == DBS_LEN ADO_FIELDINFO( nWA, nField, DBS_TYPE, @nType ) IF nType == "N" nLen := oRecordSet:Fields( nField - 1 ):Precision ...
- Tue Mar 10, 2015 1:18 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: ADO RDD xHarbour
- Replies: 1047
- Views: 452560
Clase TTABLE insertar Registros en Tablas SQL Lexico XBASE
... NOT LIKE") ENDIF cWhere:=" "+cSigno+" " ELSE cWhere:=cSigno+"'"+uValue+"'" ENDIF ENDCASE RETURN cWhere FUNCTION CTOSQL(uValue) DO CASE CASE ValType(uValue)="C" uValue:=STRSQL(uValue) CASE ValType(uValue)="N" uValue:=ALLTRIM(STR(uValue)) ...
- Mon Mar 09, 2015 7:14 am
- Forum: FiveWin para Harbour/xHarbour
- Topic: Clase TTABLE insertar Registros en Tablas SQL Lexico XBASE
- Replies: 15
- Views: 3772
Ayuda con clase TPrinter
... nCol := Max( 0, nCol - ::GetTextWidth( cText, oFont ) ) Case nPad == PAD_CENTER nCol := Max( 0, nCol - ( ::GetTextWidth( cText, oFont ) / 2 ) ) EndCase If ::oFile # Nil ::oFile:Say( ::nFRow, ::nFCol, cText ) If ::nOldRow == Nil ::nOldRow := nRow ::nOldCol := nCol Else If ::nOldRow < nRow ...
- Fri Mar 06, 2015 9:58 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Ayuda con clase TPrinter
- Replies: 11
- Views: 1167
Re: problema con SetFont
... == 2 ::MesSiguinte() CASE ::nPosBoton == 3 ::AnoAnterior() CASE ::nPosBoton == 4 ::AnoSiguiente() CASE ::nPosBoton == 5 ::IrFecha( Date()) ENDCASE ENDIF // Se libera el identificador del boton. ::ReleaseDC() return Self METHOD LButtonUp( nRow, nCol ) CLASS TMiCalendario LOCAL hDC := ::GetDC() ...
- Mon Feb 23, 2015 1:54 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: problema con SetFont
- Replies: 17
- Views: 4828
Re: FiveWeb
... LEN( cQueryString ) cChar := SUBSTR( cQueryString, nX, 1 ) DO CASE CASE cChar='=' lStart := .T. CASE cChar='&' EXIT CASE lStart cUID += cChar ENDCASE NEXT nX ENDIF // Default... put( '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">' ) put( '<html>' ) put( ...
- Sun Jan 25, 2015 1:49 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: FiveWeb
- Replies: 71
- Views: 16702
Re: Introducing FiveTech's fivedit
... 3 or 4 spaces next line enddo - when you type enddo it is outdented to line up with the do while the same happens for if else elseif endif do case endcase Cheers Colin
- Wed Jan 21, 2015 10:49 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: Introducing FiveTech's fivedit
- Replies: 560
- Views: 111634
Re: Cantidad variable de parámetros
... <DataSet xmlns="http://tempuri.org"> <<ALLTRIM(STRCONV(leRetVal.item(0).xml,9))>> </DataSet> ENDTEXT OTHERWISE ENDCASE ENDPROC
- Mon Dec 01, 2014 3:06 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Cantidad variable de parámetros
- Replies: 29
- Views: 10158
Ayuda FWH 2006 xHB a FWH 2014 Harbour
... x := comillas(if(valtype(x)="C", x, DtoS(x))) endif CATCH msginfo( "Se ha encontrado una fecha errónea"+CRLF+ valtype(x) ) END EndCase da el error: TDomDbf.prg(454) Error E0012 ENDCASE does not match DO CASE 3) En esta línea en C: hb_storc( cAddr, -1, ++n ); da el error: Error ...
- Fri Sep 05, 2014 7:05 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Ayuda FWH 2006 xHB a FWH 2014 Harbour
- Replies: 5
- Views: 1077
Re: Mapa caracteres Harbour
... ordenacion - requiere codepage.lib CASE UPPER(propie->ID) = 'IT' HB_SetCodePage("IT850") // para ordenacion - requiere codepage.lib ENDCASE En el proyecto tengo incluida la librería hbcpage.lib que me imagino equivale a la codepage.lib de xHarbour. Una vez detectado el problema, ...
- Fri Jun 27, 2014 5:52 am
- Forum: FiveWin para Harbour/xHarbour
- Topic: Mapa caracteres Harbour
- Replies: 8
- Views: 2940
Re: mi funcion. dada una fecha devolver el rango de la semana
... = "Lunes" fechades = fecha fechahas = fecha + 5 case cdow(fecha) = "Martes" fechades = fecha - 1 fechahas = fecha + 4 .... ... endcase Espero que te sirva Un saludo Carlos
- Thu Jun 26, 2014 8:18 am
- Forum: FiveWin para Harbour/xHarbour
- Topic: mi funcion. dada una fecha devolver el rango de la semana
- Replies: 13
- Views: 1513
Re: Button Bitmap with Caption at bottom.
... ::hDC, 0, 0, ::nHeight, ::nWidth ) if ::aGrad != nil GradientFill( ::hDC, 1, 1, ::nHeight - 2, ::nWidth - 1, ::aGrad, ::lGraddirect ) endif endcase 3.) else if ::aGrad != nil GradientFill( ::hDC, 0, 0, ::nHeight, ::nWidth, ::aGrad, ::lGraddirect ) endif endif best regards Uwe :lol:
- Sun Jun 08, 2014 7:22 am
- Forum: FiveWin for Harbour/xHarbour
- Topic: Button Bitmap with Caption at bottom.
- Replies: 5
- Views: 1063
melhoria na classe TBTNFLAT
... do case case nKey == VK_UP .or. nKey == VK_LEFT ::oWnd:GoPrevCtrl( ::hWnd ) case nKey == VK_DOWN .or. nKey == VK_RIGHT ::oWnd:GoNextCtrl( ::hWnd ) endcase return ::Super:KeyDown( nKey, nFlags )
- Sun Apr 06, 2014 3:01 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: melhoria na classe TBTNFLAT
- Replies: 1
- Views: 747
Re: Cambiar de Color una linea del LISTBOX
... .AND. (S13)->IVA_2 < 0 cColor := CLR_HRED CASE pnStyle = 0 .AND. pnCol = 14 .OR. pnCol = 16 .AND. (S13)->OTROS < 0 cColor := CLR_HRED ENDCASE RETURN( cColor ) Saludos Atte: Adrian C. C.
- Wed Mar 26, 2014 7:19 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Cambiar de Color una linea del LISTBOX
- Replies: 1
- Views: 427