FiveTech Software tech support forums

... condición, ya sea sí o no. De cualquier manera, ambos modos harán lo que quieras. Creo que el comando DO CASE ... ENDCASE es más antiguo que IF..ELSEIF..ENDIF. En resumen, la decisión es tuya. Prefiero IF ... ELSEIF ... ENDIF, por cuestión de gustos. Abrazos. https://www.itlnet.net/programming/program/Reference/c53g01c/ng1054c7.html ...

... me only June and September while it should also return me May. I can't do a do case or an if of the type IF nListino = 1 ..... names of mounth elseif Price list = 2 ..names of mounth endif because I don't know what the date ranges are , they could be more varied and there could be more price ...

... if nOrder == 1 @ 0,7 SAY i18n( "Introdurre il cliente'" ) OF oDlg @ 1,2 SAY i18n( "Cliente :" ) OF oDlg cGet := space(40) elseif nOrder == 2 ... Endif @ 1.3,6 GET oGet VAR cGet PICTURE "@!" OF oDlg SIZE 150, 11 UPDATE

... } oCol:bEditWhen := { || IF(aData[oFld:nOption][oBrw[oFld:nOption]:nArrayAt,6]=0,.T.,.F.) } ElseIf n == 2 oCol:nEditType := EDIT_GET oCol:bOnPostEdit := { | oCol, xVal, nKey | If( nKey == VK_RETURN,aData[oFld:nOption][oBrw[oFld:nOption]:nArrayAt,2]:=xVal,) ...

... nAt := AT( "base64", cText ) ) > 0 cText := SubStr( cText, nAt + 6 ) if Left( cText, 1 ) == "," cText := SubStr( cText, 2 ) elseif UPPER( Left( cText, 3 ) ) == "%2C" cText := SubStr( cText, 4 ) else lValid := .f. endif if lValid do while Right( cText, 1 ) $ [>)"] ...

... ) SysRefresh() linetxt:=Rtrim(memoline(cCode,80,a,3,.t.)) If IsDigit(Alltrim(Left( linetxt,2 ))) cDia :=Alltrim(Left( linetxt,2 )) lDia := .T. ElseIf !IsDigit(Alltrim(Left( linetxt,2 ))) If Left(linetxt,6)="Compra" cCompra := Val(StrTran( Alltrim(linetxt),"Compra","" ...

... Quiero detectar cuando no se conecta.... He hecho FWCONNECT oCn HOST chost USER cUser PASSWORD cPassword DB cDatabase if ocn == nil msginfo() elseif ocn:nError <> 0 MsgInfo() Endif Antes de entrar en el if, me muestra el mensaje de error. Gracias.

Solo para optimizar:

If nDays > 21
---
elseif nDays > 10
----
elseif nDays > 1
-----
else
-----

... ).and. cust->guarancode = " "), ; { CLR_WHITE, CLR_GREEN }, { CLR_BLACK,CLR_WHITE } ) } //@IA 20200301*/ Do I have to use elseif in the oBrw:bClrStd? If( (cust->resstatus = "###Cancelled" .and. cust->guarancode = " ") --> backgroundcolur should ...

... cNorIde := aHasRes["Id"] SET DEVICE TO SCREEN alert("Proceso terminó con éxito. Archivo generado : ") ELSEIF aHasRes["Result"] == 1 cDatoQr := "1- "+aHasRes["Description"] mymen("Error. Enviando factura electrónica ...

... Here I want based on the current colomn to put the Seek data in that field /* if oBrw:oCol() = 2 oRec:SetDefault( "naam_1", oBrw:cSeek ) elseif oBrw:oCol() = 3 oRec:SetDefault( "straat", oBrw:cSeek ) oRec:SetDefault( oBrw:SelectedCol():cExpr, oBrw:cSeek )  It ...

... cSettore:=Iif(!empty( aSettori[nY,nX]),aSettori[nY,nX],"") cDesc:=aElementi[n][4] lactive:= TRUE else cDesc:=aElementi[n][4] ENDIF elseif aData[nY,nX] =="X" cDesc:="spazio vuoto" Endif next n AaDD( aTempDbf,{nCamera,nRow,nCol,cElemento,cDesc,,strzero(recno(),5),cSettore,lActive}) ...

... you should do something like this: FUNCTION FinalCost( nQtdUnits, nUnitValue ) LOCAL nFinalCost IF nQtdUnits = 1 nFinalCost := nUnitValue - 2 ELSEIF nQtdUnits = 2 nFinalCost := ( nUnitValue * nQtdUnits ) - 5 ELSE nFinalCost := ( nUnitValue * nQtdUnits ) - ( ( nQtdUnits - 2 ) * 5 ) ENDIF RETURN ...

... 2 - tomado del manuel de xHarbour The #if..#elif..#else..#endif directives are used for conditional compilation. They work analogous to the IF..ELSEIF..ELSE..ENDIF statements, but are resolved by the preprocessor, rather than the compiler. In contrast to the #ifdef and #ifndef directives, which ...

... dEnd, cTimeStart, cTimeEnd) LOCAL nTotalSec, nCtr, nConstant, nTemp, aRetVal[4,2] IF ! ( VALTYPE(dStart) $ 'DC' ) dStart := DATE() ELSEIF VALTYPE(dStart) == 'C' cTimeStart := dStart dStart := DATE() ENDIF IF ! ( VALTYPE(dEnd) $ 'DC' ) dEnd := DATE() ELSEIF VALTYPE(dEnd) == 'C' cTimeEnd ...