FiveTech Software tech support forums

... // se va a una fecha del mes siguiente dTemp += 1 - DAY( dTemp ) ELSE dTemp -= 31 // se va a una fecha del mes siguiente dTemp -= 1 - DAY( dTemp ) ENDI NEXT dTemp := MIN( (dTemp + nAdjday), (dTemp += 31 - DAY( dTemp + 31 ))) IF MONTH ( dFecha ) = 2 // si es febrero IF DAY ( dFecha ) > 27 // ...

... :={||4} oReport:oFOOTER:afont[1]:={||2} oReport:CELLVIEW() oReport:bWhile := { || I <= nHasta } IF oReport:lCreated oReport:bSkip := { | | I++} ENDI END REPORT ACTIVATE REPORT oReport oFont1:End() oFont2:End() oFont3:End() oFont4:End()

... oReport:oHeader:afont[1]:={||3} oReport:oTITLE:afont[1] :={||4} oReport:oTITLE:afont[2] :={||4} oReport:oFOOTER:afont[1]:={||2} oReport:CELLVIEW() ENDI oReport:bWhile := { || I <= nHasta } oReport:bSkip := { | | I++} ACTIVATE REPORT oReport

... :={||4} oReport:oFOOTER:afont[1]:={||2} oReport:CELLVIEW() oReport:bWhile := { || I <= nHasta } IF oReport:lCreated oReport:bSkip := { | | I++} ENDI END REPORT ACTIVATE REPORT oReport oFont1:End() oFont2:End() oFont3:End() oFont4:End()

... $ cVarNam <do something specific to POSTCODE > ELSEIF "PRODUCTNO" $ cVarNam <do something specific to PRODUCTNO> ENDI <do some additional stuff common to all cases> RETU .T. --------------------------------------

... * Parameters: oDlg - your dialog * oWinMain - window parent LOCAL nMsgHeight:= 0 IF oWndMain:oMsgbar # NIL nMsgHeight:= oWndMain:oMsgBar:Height() ENDI oDlg:SetSize( ; oWndMain:GetCliRect():nRight - ABS( oWndMain:GetCliRect():nLeft ), ; oWndMain:GetCliRect():nBottom - ABS( oWndMain:GetCliRect():nTop ...

... LOCAL oCon := oDataLink:PromptNew() IF !EMPTY(oCon) valert (oCon:ConnectionString) RETURN oCon:ConnectionString ELSE RETURN ' ' ENDI RETURN nil

... AdoError(oCon, oError) // funcion mcn32.lib RETURN nil END IF oRs:EOF .or. oRs:BOF msgstop ("Fichero vacio") oRs:CLOSE() oRS:=Nil RETURN nil ENDI oRs:MoveFirst() Veo solo diferencias en las dobles comillas de la orden SELECT y en el CURSORTYPE.

... := .f. ,; // femenino lMayuscula:= .f. ,; // mayusculas lCentimos := .t. // céntimos en letras IF nImporte = 0 RETURN ( "cero " + cMoneda ) ENDI IF nImporte > 999999999.99 MsgStop( "Número demasiado largo" ) RETURN cEntLet ENDIF IF nImporte <= 0 // si es numero negativo lo invierte ...

... // crea recordset Local oRs := F_RECORDSET ( oCon, cSql, .t. ) // ver al final // F_recordset devuelve "nil" si hay error IF oRs == nil RETURN nil ENDI // Caja de Diálogo ----------------------------------------------------- DEFINE DIALOG oDlg RESOURCE "RECETAS" ; TITLE " Mi libro de recetas con ...

... y mensajes bastantes mas pequeños."+CRLF+CRLF+; "¿DESEA MODIFICAR LA RESOLUCION DE SU PANTALLA?.","NOMBRE DEL PROGRAMA") CamReso ( 800, 600, .f. ) ENDI ENDI .... .... y esta es la función: /////////////////////////////////////////////////////////////////// /// FUNCION CamReso /// CAMBIA RESOLUCION ...

... := SPACE(15) oRs:Fields("Apellido2"):value := SPACE(12) oRs:Fields("Tipo"):value := SPACE(1) oRs:Fields("Tip_Emp"):value := SPACE(10) ENDI DEFINE DIALOG oDlg RESOURCE 19 REDEFINE GET oRs:Fields("Numero"):value ID 101 of oDlg REDEFINE GET oRs:Fields("Nombre"):value ID 102 of oDlg REDEFINE ...

... byte 28 // leemos en la cabecera el byte 28 FRead(nHnd, @cBytes, 1) nCdx := Bin2I(cBytes) IF nCdx = 1 cCdx := "Table CDX" ELSE cCdx := "NICHT CDX" ENDI MSGINFO ( cCdx ) FClose(nHnd) ENDIF RETURN nil Entschuldigen sie bitte mein deutsch Tschüss

... oReport:oDevice:lPrvModal := .T. // preview modal IF oReport:lCreated oReport:bSkip := { | | nLinea++, Ors:MOVENEXT() } ENDI ACTIVATE REPORT oReport ; ON END oRs:BookMark := nBookMark oRs:MoveFirst() RETURN NIL -------------------------------- ¿ Para que pones ON STARTPAGE ...

... nLinea := 1 ..... oReport:bWhile := { || nLinea <= nHasta } IF oReport:lCreated oReport:bSkip := { | | nLinea++, Ors:MOVENEXT() } ENDI 2) He modificado la funcion Skipper quedando: FUNCTION SKIPPER( oRs, nSkip ) LOCAL nRec := oRs:AbsolutePosition IF oRs:EOF oRs:MoveLast() ELSE ...