FiveTech Software tech support forums

Code: Select all

// It works without define each COL
// like i need it.
// -------------------------------------------------
   lOemAnsi := .T.
// to show old DOS-Clipper DBF
// ---------------------------------------

oBrw5 := TXBrowse():New( oDlg )

oBrw5:nMarqueeStyle		:= MARQSTYLE_HIGHLROW
oBrw5:nColDividerStyle	:= LINESTYLE_BLACK
oBrw5:nRowDividerStyle	:= LINESTYLE_BLACK
oBrw5:lColDividerComplete	:= .t.
oBrw5:nHeaderLines		:= 1
oBrw5:nDataLines		:= 1
oBrw5:lAllowColSwapping           := .t.
oBrw5:SetRDD()

FOR nFor := 1 to LEN( oBrw5:aCols )
	oCol := oBrw5:aCols[ nFor ]

	// To show D- and L-vars = Centered, N = Right
	// otherwise everything is shown left
	// ---------------------------------------------------------
	IF VALTYPE((cAlias1)->(FieldGet(nFor))) = 'N'
                oCol:nDataStrAlign := AL_RIGHT  
	ENDIF
	IF VALTYPE((cAlias1)->(FieldGet(nFor))) = 'D' .or. ;
		VALTYPE((cAlias1)->(FieldGet(nFor))) = 'L'
                oCol:nDataStrAlign := AL_CENTER  
	ENDIF
	// ---------------------------------------------------------

    oCol:nEditType := 1
    oCol:nEditType := EDIT_GET

                // Shows OemToAnsi => if lOemnsi = .T.
	// --------------------------------------------------
	oCol:bStrData := { |oCol| nOrder := oCol:nCreationOrder, ;
	IIF( VALTYPE( (cAlias1)->(FieldGet(nOrder)) ) = 'C' ;
                      .and. lOemAnsi = .T., ;
	      cValToChar( OemToAnsi( ( cAlias1 )->( FieldGet( nOrder ) )) ), ;
	      cValToChar( ( cAlias1 )->( FieldGet( nOrder ) )) )	}

	oCol:nEditType := 1
                oCol:nEditType := EDIT_GET
                oCol:bOnPostEdit:= { |oCol,xValue,nLastKey| ;
	                                 nOrder := oCol:nCreationOrder, ;
               BRW_SAVE(oBrw5,xValue,nLastKey,cAlias1,nOrder,lOemAnsi) }

next

oBrw5:CreateFromResource( 110 )

.........
.........

On DBL-Click i get the Error in  < oCol:bStrData >

In < oCol:bOnPostEdit > there is no error 
and the Function < BRW_SAVE > saves C-Strings
in AnsiToOem-Format !! 

// -------------------------------------------------------------
Error BASE/1004  Class: 'NIL' has no exported method: NCREATIONORDER
Args: [   1] = U   

Stack Calls
========
=> NCREATIONORDER(0)
------------------------------------
(   oCol:bStrData := { |oCol| nOrder := oCol:nCreationOrder )

xBrowse.PRG => TXBRWCOLUMN:EDIT(4465)
xBrowse.PRG => TXBROWSE:LDBLCLICK(2325)

//---------------------------------------------------------------------------//

FUNCTION BRW_SAVE(oBrw,xValue,nLastKey,cAlias,nOrder,lOemAnsi)

IF nLastKey == 13
    IF VALTYPE((cAlias)->(FieldGet(nPOS))) = 'C' .and. lOemAnsi = .T.
		xValue   := AnsiToOem( xValue )
    ELSEIF VALTYPE((cAlias)->(FieldGet(nPOS))) = 'C' .and. lOemAnsi = .F.
		xValue   := xValue
    ELSEIF VALTYPE((cAlias)->(FieldGet(nPOS))) = 'N'
		xValue   := Val( xValue )
    ELSEIF VALTYPE((cAlias)->(FieldGet(nPOS)))  = 'D'
        IF EMPTY(CTOD( ALLTRIM( xValue ) ))
	       // IF Edit-xValue = "10102007" xValue = 10.10.2007
	       xValue  := SUBSTR( xValue,1,2) + "." + ;
                       SUBSTR(xValue,4,2) + "." + SUBSTR( xValue,5,4)
        ENDIF
        xValue   := CTOD( ALLTRIM( xValue ) )
    ELSEIF VALTYPE((cAlias)->(FieldGet(nPOS)))  = 'L'
       	         xValue   := ( Upper( Left ( LTrim( xValue ), 1 ) ) $ "YT" )
    ENDIF
    IF NET_RLOCK()
	(cAlias)->( FieldPut( nPOS, xValue ) )
	NET_ULOCK()
    ENDIF
    oBrw:DrawLine( .t. )
    oBrw:Refresh()
ENDIF

RETURN NIL