consulta xbrowse
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Buenos días, mi duda es si se puede mostrar un xbrowse sobre una base de datos en blanco hasta que yo seleccione un código, el script que realizé es el siguiente
( 1 NOTA )que recién aquí resuelva la grilla del xbrowse según el código solicitado.
Gracias por vuestra atención
- 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