- Code: Select all Expand view
- FUNCTION xBrwgen()
local odlgx
local oCtae
local oBrw, oSpli
local nProa := 0
local napea
local aMae := array(0)
local oGet := array(3)
local beval := {|| aMae := iif(empty(nproa),buspro(),buspro(nproa)), iif(len(aMae) > 0,(nproa := aMae[1],napea := aMae[2],odlgx:update(),.t.),odlgx:end())}
if !pasaje("CTAEXPO");return nil; endif
DATABASE oCtae
oCtae:setorder(1)
DEFINE DIALOG oDlgx resource "dia_xbrowse"
REDEFINE GET oGet[1] VAR nproa id 121 of odlgx update valid (eval(beval)) // ( 1 NOTA )
REDEFINE GET oGet[2] VAR napea id 120 of odlgx update
REDEFINE BTNBMP oGet[3] id 101 of oDlgx resource "btngastos","btnastos1" ACTION ctaexpo(oCtae,oBrw,nproa,.t.,.t.)
REDEFINE SPLITTER oSpli ID 111 COLOR rgb(234,234,234) of odlgx _3DLOOK
REDEFINE XBROWSE oBrw id 110 of odlgx update;
columns 1,2,3,4,5,6;
COLSIZES 80,90,160,120,120,120;
HEADERS "Fecha", "Comprobante", "Descripción","Debe" ,"Haber","Total";
PICTURES "@d", nil,NIL,"@e 99,999,999.99","@e 99,999,999.99","@e 99,999,999.99" ;
alias oCtae:cAlias lines cell
WITH OBJECT oBrw
:nMarqueeStyle := MARQSTYLE_HIGHLCELL
:nColDividerStyle := LINESTYLE_BLACK
:nStretchCol := STRETCHCOL_LAST
:lColDividerComplete := .t.
:l2007 := .t.
:lRecordSelector := .t.
:lAllowColHiding := .f.
:lAllowColSwapping := .f.
END WITH
WITH OBJECT oBrw:aCols[1]
:bStrData := {|| oCtae:fecha }
:cEditPicture := "@d"
:nFootStrAlign := AL_RIGHT
END WITH
WITH OBJECT oBrw:aCols[2]
:bStrData := {|| oCtae:factura }
:nFootStrAlign := AL_RIGHT
END WITH
WITH OBJECT oBrw:aCols[3]
:bStrData := {|| oCtae:opera }
:nFootStrAlign := AL_LEFT
END WITH
WITH OBJECT oBrw:aCols[4]
:bStrData := {|| IIF(oCtae:lsumo,oCtae:importe,"") }
:cEditPicture := "@e 99,999,999.99"
:nFootStrAlign := AL_RIGHT
END WITH
WITH OBJECT oBrw:aCols[5]
:bStrData := {|| IIF(!oCtae:lsumo,oCtae:importe,"") }
:cEditPicture := "@e 99,999,999.99"
:nFootStrAlign := AL_RIGHT
END WITH
WITH OBJECT oBrw:aCols[6]
:bStrData := {|| oCtae:saldo }
:cEditPicture := "@e 99,999,999.99"
:nFootStrAlign := AL_RIGHT
END WITH
activate dialog odlgx
cierroalias(oCtae:cAlias,oCtae)
return nil
( 1 NOTA )que recién aquí resuelva la grilla del xbrowse según el código solicitado.
Gracias por vuestra atención