FiveTech Software tech support forums

... ok. Best regards Davor. #include "FiveWin.ch" #include "report.ch" REQUEST DBFFPT,DBFCDX function rept() local nBalance:=0,nfor,astruct,oReport IF FILE("MyTable.DBF")=.F. ASTRUCT := { ; { "AAA" , "N", 5, 0 }, ; { "DEBIT" , "N", ...

... oCol:nWidth := 110 oCol:= CbRWTELA:AddCol() oCol:bStrData := { || fabricante->Descricao } oCol:cHeader := 'Razão Social' oCol:nWidth := 435 for nFor := 1 to 2 CbRWTELA:aCols[ nFor ]:blDClickData := {|r,c,f,o| (odbf:Fabric:=fabricante->codigo,mDescFabric:=fabricante->descricao, oCodFab:refresh(), ...

... endif endif return nil //----------------------------------------------------------------------------// METHOD Modified() CLASS TDb local cField, nFor for nFor := 1 to Len( ::aFldNames ) cField = ( ::cAlias )->( FieldName( nFor ) ) if ( ::cAlias )->( FieldGet( nFor ) ) != ::aBuffer[ nFor ...

... le len del array y dentro de ese for usas el move() con el nombre del archivo segun la posicion que ocupa dentro del array, algo asi como for nFor := 1 to len(aArchivos) move(aArchivos[nFor] lo demas que venga ya que nunca he usado move() next asi no tienes que agregar archivo por archivo ...

... PS_SOLID, 1, aColors[ Min( 3, Len( aColors ) ) ] ) // 3 élementos o menos y algo más abajo: DrawHorz( hDC, nRow + nGrpHt, nGrpFrom - 2, aCols[ nFor + 1 ] - 2, hHeaderPen ) prueba asi si puedes corregirlo, gracias

... que me devuelvo todos los nombres definidos de las columnas, algo como aHeader, pero que devuelva cHeader.? por los momentos lo consigo asi: FOR nFor := 1 TO LEN(oBrow:aCols) AADD( aTitCol, oBrow:aCols[nFor]:cHeader ) NEXT luego paso aTitCol al combo box, sino existe ni modo, lei la clase como ...

... {|r,c,f,o| ::Sto1210( o ) } obrow:aCols[3]:bLClickHeader := {|r,c,f,o| ::Sto1210( o ) } method sto1210(oCol) classs to12class local aCols,cOrder,nFor,nLen local nat,id1 aCols := oCol:oBrw:aCols cOrder := oCol:cOrder nAt := oCol:nCreationOrder nLen := LEN(aCols) for nFor := 1 to nLen aCols[ nFor ...

Hola José Luis, ¿ya probaste asi?


oBrw:aCols[ nFor ]:bToolTip := {|oBrw,nRow,nCol,nKeyFlas| IF(oBrw:MouseRowPos(nRow)==oBrw:nRowSel .and. oBrw:MouseColPos(nCol)==oBrw:nColSel ,;
IF(cQryPCUO:num_leyenda > 0, str(cQryPCUO:num_leyenda),"Single"), ) }

... en la forma que use tu sugerencia, saludos... :shock: lo probe asi ya que deb validar muchas celdas por columnas que se crean on line oBrw:aCols[ nFor ]:bToolTip := {|oBrw,nRow,nCol,nKeyFlas| IF(oBrw:MouseRowPos(nRow)==oBrw:nRowSel ,; IF(cQryPCUO:num_leyenda > 0, str(cQryPCUO:num_leyenda),"Single"),

... Para Imprimirlo/Mostrarlo IF !EMPTY(cTexto) // en cTexto tengo el campo MEMO nLines := MlCount(cTexto,50) // armo segmentos de 50 caracteres FOR nFor := 1 TO nLines // en nLines queda el numero de segmentos de 50 caracteres cLine := OemToAnsi(MemoLine(cTexto, 50, nFor)) @ nRow,nCol SAY cLine ...

... must be folowed by SeekOnArray , which search only (with ascan) for an element from the column: nAt := Ascan( aData, {|v| Upper( cValToChar( v[ nFor ] ) ) = cSeek } ) This line (in SeekOnArray) would change in : nAt := Ascan( aData, {|v| EVAL( aCols[ nFor ]:bOrder , v ) = cSeek } ) When you ...

... FUNCTION MySortArray()// CLASS TXBrwColumn ********************** LOCAL Self := HB_QSelf() local aCols local cOrder local nAt, nFor, nLen local uSave, cType # ifdef FRANKDEMONT local bOrder # endif aCols := ::oBrw:aCols cOrder := ::cOrder nLen := Len( aCols ) nAt := If( ValType( ...

... endif // Ednaldo RETURN NIL //----------------------------------------------------------------------------// METHOD EndPage() CLASS TDosPrn LOCAL nFor, nLen, nSec LOCAL lError ::Command(::cFormFeed) ::LastError := 0 IF fWrite(::hDC, ::cBuffer) < len(::cBuffer) ::LastError := fError() ENDIF ...

... endif ENDIF RETURN NIL //----------------------------------------------------------------------------// METHOD EndPage() CLASS TDosPrn LOCAL nFor, nLen, nSec LOCAL lError * ::Command(::cFormFeed) ::LastError := 0 IF fWrite(::hDC, ::cBuffer) < len(::cBuffer) ::LastError := fError() ENDIF ...

... http://img843.imageshack.us/i/imagen2u.png/ adjunto el codigo FUNCTION consulta_cheques1(oWnd) local oDlg, oBrw, oCol,oBmp,oChild local nFor,ocol1,ocol2,oBtn,calias,oFont,oFont1 local aGrad := {{ 0.50, CLR_RED, CLR_YELLOW }, { 0.50, CLR_YELLOW, CLR_RED }} local oBar,ntotal local cfecini ...