Con:
Tengo un error:
Es porque no esta definido oBrw::aDisplay. Tengo que cambiar el codigo y hacer obrw:Adjust para que funcione.
Solo pasa con Select(4)
oBrw := TXBrowse():New(oDlg)
oBrw:SetArray(aLin, .T., 3, aCols)
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROWMS
oBrw:lFastEdit := .F.
oBrw:lUpdate := .T.
oBrw:lRecordSelector := .T.
oBrw:nRowDividerStyle := LINESTYLE_INSET
for n = 1 to Len(aCols)
oBrw:aCols[n]:nWidth := BCOLANCX(nTab, aCols[n])
oBrw:aCols[n]:cHeader := BCOLCABX(nTab, aCols[n])
oBrw:aCols[n]:nDataStrAlign := BCOLJUSX(nTab, aCols[n])
oBrw:aCols[n]:nHeadStrAlign := oBrw:aCols[n]:nDataStrAlign
oBrw:aCols[n]:nEditType := EDIT_NONE
next n
oBrw:CreateFromResource(600)
oBrw:SelectAll()Tengo un error:
Application
===========
Path and name: D:\GASI\GASI.exe (32 bits)
Size: 2,743,296 bytes
Time from start: 0 hours 0 mins 6 secs
Error occurred at: 18/02/09, 16:04:44
Error description: Error BASE/1111 Error de argumento: LEN
Args:
[ 1] = U
Stack Calls
===========
Called from: => LEN(0)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:ISDISPLAYPOSVISIBLE(0)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:PAINT(0)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:SELECT(0)
Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE:TXBROWSE(0)
Called from: => TXBROWSE:SELECTALL(0)
Called from: ALBARAN.PRG => ALBACONFIRMAR(1470)Es porque no esta definido oBrw::aDisplay. Tengo que cambiar el codigo y hacer obrw:Adjust para que funcione.
oBrw := TXBrowse():New(oDlg)
oBrw:SetArray(aLin, .T., 3, aCols)
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROWMS
oBrw:lFastEdit := .F.
oBrw:lUpdate := .T.
oBrw:lRecordSelector := .T.
oBrw:nRowDividerStyle := LINESTYLE_INSET
for n = 1 to Len(aCols)
oBrw:aCols[n]:nWidth := BCOLANCX(nTab, aCols[n])
oBrw:aCols[n]:cHeader := BCOLCABX(nTab, aCols[n])
oBrw:aCols[n]:nDataStrAlign := BCOLJUSX(nTab, aCols[n])
oBrw:aCols[n]:nHeadStrAlign := oBrw:aCols[n]:nDataStrAlign
oBrw:aCols[n]:nEditType := EDIT_NONE
next n
oBrw:CreateFromResource(600)
oBrw:Adjust()
oBrw:SelectAll()Solo pasa con Select(4)
Jorge Ignacio Corral
Enjoy it :)
Enjoy it :)