FiveTech Software tech support forums

... ( AllTrim( oemtoansi(TablaMnu[i,3]) ) ) endif case TablaMnu[i,2] == 2 // separador SEPARATOR case TablaMnu[i,2] == 3 // final del menu ENDMENU endcase next ENDMENU return oMenu *----------------------------------------------------------------------------//

... set index street scope the data otherwise // more fields have been filled in, so filtering will be a better option do the filter stuff endcase here is my current filtercode :    //  From insite the Xbrowse setup   oBrwSel:lGetBar   := .T.  // Button ...

... 47 case nWheel = 10 nPos1:= 48 nPos2:= 49 nPos3:= 50 nPos4:= 51 nPos5:= 52 case nWheel = 11 nPos1:= 53 nPos2:= 54 nPos3:= 55 nPos4:= 56 nPos5:= 57 Endcase with these 5 lines:       nPos1 := ( nWheel - 1 ) * 5 + 3      nPos2 := ( nWheel - 1 ) * 5 + 4      nPos3 := ( nWheel - ...

... "NZ3"         r4:= "NZ4"         r5:= "NZ5"      endcase       oDbfRit:= TDatabase():Open( , cDir+"lotto", "DBFCDX", .T. )       oDbfRit:setorder(0)  ...

... 20 OF oGrS1 ; ON CHANGE hidexbrowse( ::oLbx,::lBa) Function hidexbrowse( ::oLbx,::lBa) local i,oCol do case case ::lba = .t. nInit := 2 nEnd:= 6 endcase for i= nInit to nEnd oCol := ::oLbx:aCols[ i ] oCol:HIde() next ::oLbx:refresh() return nil

... Encendida o Conectada al Cable Serial" CASE nRet = -8 cError:="Error al Crear o Grabar en el Archivo status.txt o retorno.txt " ENDCASE cError:="Error:"+LSTR(nRet)+", "+cError IF lShow MensajeErr(cError,"Error Impresora Bematech") ENDIF RETURN cError ...

... // Tablas... case cTabla = 'CLIENTES' nCmd := MySincClienteCrea() --> crear el registro de cliente con insert... devolviendo nCmd .... .... endcase if nCmd # Nil .and. nCmd > 0 // ok, reg creado .... ok else // avisar que hubo un error... endif endif else ...consulta verificar si reg ...

... ) CLOSE DATABASES oDlg:END() RETURN(NIL) ENDIF Case nVIEW = 3 PRINT oPrint FILE "c:\dbtmp\"+cPdfName+".pdf" //<------- here EndCase .... .... Since there is no direct pointer to a Printer .. where is oPrinter getting its values ... In the attached program .. I evaluate oPrinter ...

... excelentes para controlar una 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 ...

... oConDlg CENTERED IF lGoOn CursorWait() do case case xconsulta == 1 V0100CO1(oBrw) // BUSQUEDA POR CLIENTE !!! case xconsulta == 2 V0100CO2(oBrw) endcase ENDIF cSql := "SELECT * FROM mae_cli ORDER BY cliente" oR3 := oCn:RowSet( cSql ) sysrefresh() RETURN // ------------------------------------ ...

... do case case xconsulta == 1 V0100CO1(oBrw) // <<<<--------- Búsqueda por nro.de cliente case xconsulta == 2 V0100CO2(oBrw) endcase ENDIF cSql := "SELECT * FROM mae_cli ORDER BY cliente" oR3 := oCn:RowSet( cSql ) sysrefresh() RETURN // ------------------------------------ ...

... AP_Method() == "POST" do case case cAction == "save" ? "post save" Save() case cRequest == "login" Login() endcase endcase Best regards, Otto function Controller( cRequest )   local aRequest   if ":" $ cRequest      aRequest = hb_aTokens( ...

... nCol := Max( 0, nCol - ::GetTextWidth( cText, oFont ) ) CASE nPad == 2 // center nCol := Max( 0, nCol - ( ::GetTextWidth( cText, oFont ) / 2 ) ) ENDCASE TextOut( ::oPrn:hDCOut, nRow, nCol, cText ) IF oFont != nil oFont:DeActivate( ::oPrn:hDCOut ) ENDIF IF nClrText != NIL #IFDEF __HARBOUR__ SetTextColor( ...

... = ngg * prz [1] case days <7 nPrice: = ngg * prz [2] case days <15 nPrice: = ngg * prz [3] houses days <30 nPrice: = ngg * prz [4] endcase where is the error?

... //** DO NOT REFRESH IF CTRL_V PASTE - CONTINUE ELSE SELF:REFRESH() //** Right mouse button click - Paste opt selected ENDIF ENDIF return 0 endcase return ::Super:HandleEvent( nMsg, nWParam, nLParam )