- Code: Select all Expand view
- #include "Fivewin.ch"
#define HA_LEFT 0
#define HA_RIGHT 1
#define HA_CENTER 2
FUNCTION selgan()
LOCAL oRet, oBrw, ctext
LOCAL nselectedrow := 0
LOCAL cCodigo
local odlg
local lacepto := .f.
local aDevuelvo := Array(0)
IF !pasaje( "retgan830" ); RETURN nil; ENDIF
database oRet
oRet:setorder(1)
DEFINE DIALOG odlg RESOURCE "DIA_XBROWSE2"
odlg:cCaption := "Seleccionar Tipo de retención"
REDEFINE XBrowse oBrw id 101 odlg DATASOURCE oRet ;
columns { 1, 2, 3, 4, 5, 6 };
COLSIZES 40, 60, 300, 85, 60, 60;
HEADERS " ", "Código", "Concepto", "Importe Mínimo", "Tasa Insc.", "Tasa No Inscripto";
LINES CELL update
WITH OBJECT oBrw
:nMarqueeStyle := MARQSTYLE_HIGHLCELL
:nColDividerStyle := LINESTYLE_BLACK
:nStretchCol := STRETCHCOL_LAST
:lColDividerComplete := .T.
:l2007 := .T.
:lRecordSelector := .T.
:lAllowColHiding := .F.
:lAllowColSwapping := .F.
:nStretchCol := STRETCHCOL_LAST
:nRowHeight := 60
END WITH
WITH OBJECT oBrw:aCols[ 1 ]
:bEditValue := { || If( oBrw:BookMark == nselectedrow, .T., nil ) }
:SetCheck()
:nHeadBmpNo := { || If( Empty( nselectedrow ), 2, 1 ) }
END WITH
oBrw:bLClicked := {|r, c, f, oBrw| If( oBrw:MouseColPos( c ) == 1, ;
If( nselectedrow != oBrw:BookMark, nselectedrow := oBrw:BookMark, nselectedrow := nil ), nil ), ;
oBrw:RefreshCurrent(), aDevuelvo := fdevuelvo(oRet ) }
WITH OBJECT oBrw:aCols[ 2 ]
:bStrData := {|| oRet:codreg }
:nDataStrAlign := AL_RIGHT
END WITH
WITH OBJECT oBrw:aCols[ 3 ]
:bStrData := {|| cotexto(oRet:concepto) } // CAMPOMEMO
:nDataStrAlign := AL_LEFT
END WITH
WITH OBJECT oBrw:aCols[ 4 ]
:bStrData := {|| oRet:minimo }
:nDataStrAlign := AL_RIGHT
END WITH
WITH OBJECT oBrw:aCols[ 5 ]
:bStrData := {|| oRet:tasains }
:nDataStrAlign := AL_RIGHT
END WITH
WITH OBJECT oBrw:aCols[ 6 ]
:bStrData := {|| oRet:tasanin }
:nDataStrAlign := AL_RIGHT
END WITH
REDEFINE BUTTON ID 102 OF odlg ACTION (lacepto := .t., odlg:end())
REDEFINE BUTTON ID 103 OF odlg ACTION odlg:end()
ACTIVATE DIALOG odlg
if lacepto
return aDevuelvo
endif
CIERROALIAS(oRet:cAlias, oRet)
return Array(0)
/////////////////////////////////////////////////////////////////////
function cotexto(ctext)
local ctexto := Space(85)
ctexto := SubStr(ctext,1,80) + CRLF + SubStr(ctext,81,160)
return ctexto
/////////////////////////////////////////////////////////////////////
function fdevuelvo(oRet )
local aDevuelvo := Array(0)
local cMinimo := StrTran(oRet:minimo,".","")
cMinimo := StrTran(cMinimo,",",".")
AAdd(aDevuelvo, Val( oRet:codreg))
AAdd(aDevuelvo, Val( oRet:tasains) )
AAdd(aDevuelvo, Val(cMinimo) )
return aDevuelvo
https://drive.google.com/file/d/1Tq5G-WonFwo2elniFoRGhUll9u03O1Or/view?usp=sharing
Y como puedo mostrar el campo memo completo ya que en algunos items no muestra todos los rengolone
Por lo demás lo que necesito que haga lo hace, pero no puedo sacar Tdialog, estimo que el problema esta en como defino la columna del setcheck()
Gracias por su atención
Luis
