FiveTech Software tech support forums

... de datos MYSQL con RichEdit el problema que ten go que al imprimir con el siguiente comando. cText := oDatos:Fields("documen"):Value FOR nFor = 1 TO MLCOUNT(cText,120) cLine := MemoLine(cText, 120, nFor) oPrn:CmSay( nRow,1, cLine, aoFont[6],, ,,0) nRow := nRow + 0.4; nConta++ Cabeforma(@nConta,@nPag, ...

... el problema es como imprimo. cText := oDatos:Fields("documen"):Value cText = MEMOREAD( cText ) nLines := MlCount(cText,76) .. . .. FOR nFor := 1 TO nLines cLine := MemoLine(cText, 76, nFor) oPrn:CmSay( nRow,2, cLine, aoFont[6],,,,0) nRow+=0.5; nConta++ NEXT

... Function FrameBar( oWnd ) /*------------------------------------------------------------------------------*/ LOCAL oCursor, nFor DEFINE CURSOR oCursor HAND DEFINE BUTTONBAR oBar _3D SIZE 45, 45 OF oWnd DEFINE BUTTON RESOURCE "MenuP_Tablas" OF oBar NOBORDER; TOOLTIP ...

... Function FrameBar( oWnd ) /*------------------------------------------------------------------------------*/ LOCAL oCursor, nFor DEFINE CURSOR oCursor HAND DEFINE BUTTONBAR oBar _3D SIZE 45, 45 OF oWnd DEFINE BUTTON RESOURCE "MenuP_Tablas" OF oBar NOBORDER; TOOLTIP ...

... cPrinter ) RETURN nil //----------------------------------------------------------------------------// METHOD BuildMenu() CLASS TPreview local nFor, oMenu local lThemed := IsAppThemed() local cPrinter := If( lThemed, "Printer2", "Printer" ) local cTop := If( lThemed, "Top2", ...

... function RPreview( oDevice ) local aFiles := oDevice:aMeta local hOldRes := GetResources() local oSay local nFor,oBtn local oWndMain := WndMain(), oIcon, oCursor, oMenu, oBrush, oFont local l97Look := oWndMain != nil .and. oWndMain:oBar != nil .and. Len( oWndMain:oBar:aControls ...

... := { || tran((vv:cAlias)->per, "999,999.99" ) } oCol:cHeader := "Periodo" ocol:nDataStrAlign:=0 oCol:nWidth:=70 for nfor=1 to len(vv:oBrw:aCols) vv:oBrw:aCols[nfor]:blDClickData:= modifica vv:oBrw:aCols[nfor]:bRClickData:= menuderecho next nfor vv:oBrw:ntop:=120 vv:oBrw:nleft:=10 ...

... := "Notas" oBrw:aCols[5]:nDataStrAlign:=0 oBrw:aCols[5]:nWidth:=200 oBrw:aCols[5]:nDataStrAlign:=0 oBrw:aCols[5]:nFootStrAlign:=0 for nfor=1 to len(oBrw:aCols)-1 oBrw:aCols[nfor]:nHeadStrAlign:=2 next nfor oBrw:aCols[nfor]:nHeadStrAlign:=0 for nfor=len(oBrw:aCols) to 6 step -1 // poner ...

... sugerencia ? gracias. oExcel := TExcelScript():New() oExcel:Open( cFile ) nHojas := oExcel:CountSheets() //TOTAL DE HOJAS EN EL LIBRO.XLS FOR nFor := 1 TO nHojas cHoja := 'HOJA'+str(nFor,1) oExcel:SetSheet( cHoja ) //hoja actual nTotalRows := oExcel:oSheet:UsedRange:Rows:Count() //total de ...

... cFile ),{ GetPropertyValue( "FilterName", "calc_pdf_Export" ) } ) another function stat function ConvertToURL( cFile ) LOCAL nFor, nLen := Len( cFile ) FOR nFor := 1 TO nLen IF cFile[ nFor ] == "\" cFile[ nFor ] := "/" ENDIF NEXT RETURN cFile to SaveTo ...

... := CreateSolidBrush( aColors[ 2 ] ) FillRect( hDC, {nRow, 0, nRow + nHeight, nBrwWidth}, ::hBrushRecSel ) // hBrush ) DeleteObject( hBrush ) for nFor := 1 to nLast nCol := aCols[ nFor ] oCol := ::ColAtPos( nFor ) IF !::lFooterColDivider //FranciscoA Ene/01/2009 //Pintar o no divisores de cols ...

Angstin,

// aqui es donde tengo el problema...

FOR nFor:=1 TO xCols
oCol:=Brw1:aCols[nFor]
oCol:nEditType := 1
oCol:bOnPostEdit := {|o, v, n| iif( n != VK_ESCAPE, FieldPut( o:nCreationOrder, v ), ) }
NEXT

Que problema es ? Te dá un error ? Cual ?

... := LINESTYLE_INSET Brw1:nRowDividerStyle := LINESTYLE_INSET Brw1:lHScroll = .T. Brw1:lVScroll = .T. // aqui es donde tengo el problema... FOR nFor:=1 TO xCols oCol:=Brw1:aCols[nFor] oCol:nEditType := 1 oCol:bOnPostEdit := {|o, v, n| iif( n != VK_ESCAPE, FieldPut( o:nCreationOrder, v ), ) } ...

... ); aadd( aFormt,"@!"); aadd( aFormt,"@999,999.99" ) My idea is to create txbrowse in For...Next loop using down shown example. Is it possible? For nFor=1 to 3 oCol:= oBrw:AddCol() oCol:bStrData := { || customer->first } //?? oCol:bEditvalue := { || customer->first } //?? oCol:cEditPicture ...

... local ccol local array1:={} cvar1:=ALLTRIM(cvar1) cvar1:=STRTRAN(cvar1," ",",") ccol:=StrToken( cvar1, 1, "," ) AADD(array1,ccol) nfor:=1 while .t. cCol := StrToken( cvar1, nFor + 1, "," ) if EMPTY(ccol) exit end AADD(array1,ccol) nfor ++ end do case case LEN(array1)==1 csql1:="select ...