FiveTech Software tech support forums

... al Grid?. 5 Se puede deshabilitar/habilitar pestañas de un fold??? Gracias. #include "FWCE.ch" FUNCTION Main() local cAlias, nRecno nRecno = 0 ctexto = space(20) cSearch = "" lNuevo = .F. lEditando = .F. * Control de programa IF IsExeRunning( cFileName( HB_ArgV( 0 ) ) ) MsgInfo( "No puedes ...

Manu,

En 32 bits no existe el límite de los 64 Ks. El tamaño puede llegar hasta los 4 gigas

Para obtener el código delimitado por las comas, u otro separador, usa la función de FWH StrToken( cTexto, nOcurrencia, cSeparador) --> cResultado

... este: #include "FiveWin.ch" #define NL Chr( 10 ) + Chr( 13 ) Function MAin() LOCAL oExcel, oHoja, nRows, nCols LOCAL aCampos:={}, nRow, nCol LOCAL cTexto := Space( 0 ), xValue oExcel := TOleAuto():New( "Excel.Application" ) oExcel:Visible := .T. // por si quieres ver la hoja abierta oExcel:WorkBooks:Open( ...

... De todas formas Mike, mi codigo funciona para hacer la busqueda, lo unico que sucede es que el evento ON CHANGE cuando se produce, la variable CTEXTO no to toma el ultimo valor introducido. Esto en Delphi, estaria tirao! con un evento ON KEYPRESS, Pero aqui no puede ser así, por lo que veo...Seguire ...

... cada vez que pulsas una letra hago una llamada a una funcion donde selecciono el fichero y hago un dbseek por medio de ON CHANGE LOCALIZA(OTBR,CTEXTO) en el get. Mi problema es que cuando el metodo ON CHANGE se activa no entra el ultimo caracter del get ¿Hay algun otro metodo, que me reconozca ...

... y reparaciones. */ #include "FWCE.ch" #DEFINE DBF_LON 10 #DEFINE DBF_CLIENTES 1 #DEFINE DBF_ARTICULOS 1 #DEFINE DBF_FAMILIAS 1 STATIC OWND, CTEXTO *-------------- FUNCTION Main() *-------------- LOCAL OBMP CONFIG() ABRIR_FICHEROS() DEFINE BITMAP OBMP NAME 'SUMASOL' DEFINE WINDOW OWND TITLE ...

... la que aparece en el ejemplo bluetooth.prg. Mi aplicación cuenta con un botón imprimir que llama a la siguiente función: FUNCTION WIMPALB() Local cTexto:="" Local cCabeza:="" Local nTotal:=0 Local hOut USE (cRutaFic+"\PARAPK") NEW GO TOP cPuerto:="COM"+str(PARAPK->PSALIDA,1)+":" CLOSE PARAPK ...

Manuel, Puedes grabar varias líneas usando Chr( 13 ) + Chr( 10 ): local cTexto := "Hola" + Chr( 13 ) + Chr( 10 ) + "mundo" + Chr( 13 ) + Chr( 10 ) + "Test" MemoWrit( "test.txt", cTexto ) Respecto a los reportes y a la impresión, los comandos y clases que has ...

... ocuadrotext) METHOD Box( nTop, nLeft, nBottom, nRight, afondo, alinea, ntipo, nrotation, lsimple ) METHOD close() METHOD CmSay( nLin,nCol,cTexto,oFuente,nSizeHorz,nClrText,nBkMode,nPad, naltura, nColorIndex, lVertAdjust ) METHOD CheckSpelling() METHOD End() METHOD EndPage() METHOD FillRect( ...

... utilizo es el mismo que hay por el foro, pero bueno aun así te pongo un ejemplo, por si te puede ayudar en algo. ************************** Local cTexto:="" local hOut := CreateFile( "COM6:",GENERIC_WRITE, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL ) //com6 --> puerto com de salida cTexto:= ...

Jose Luis,

oWnd:SetText( cTexto )

... que venga, ni que valga para dicho Windows. La función UPPER de CLIPPER 5.2e, funciona incorrectamente, me di cuenta cuando al hacer OemToAnsi( cTexto ). Y grabarlo en la Base de Datos. Al presentarlo en pantalla. La á , no es una Á , y así con todas las vocales. Saludos, José Mª

... texto encima: oPrn:StartPage() //PAGE // IF lLImagen oImagen:LoadImage(,cFImagen) oPrn:SayImage( 0, 0, oImagen,4800,6800 ) ENDIF // IF lLTexto cTexto:=Memoread(cFTexto) nLineasTexto:=MlCount(cTexto,75) // FOR i := 1 TO nLineasTexto cLineaActual:=MemoLine(cTexto,75,i,,.F.) oPrn:CmSay(nLin+0.5,1, ...

Fabian: cImpresora:=PRINTERSETUP() REPORT oReport ; TITLE oemtoansi("Listado de Proveedores ")+cTexto,; "" CENTERED ; FONT oFont1,; oFont2,; oFont3,oFont4,oFont5,oFont6,oFont7,oFont8,oFont9,oFont10 ; PEN oPen1,; oPen2 ; HEADER " ",; "Fecha: "+dtoc(date()),; "Hora: "+LEFT(time(),5),"","","","" ...