Hola que tal al tratar de darle click al list box me sale el msje de error : BASE 1004 Class NIL ...
les cuelgo la foto para que me entiendan
http://imageshack.us/photo/my-images/401/qzvx.jpg/
Les dejo mi codigo fuente:
les cuelgo la foto para que me entiendan
http://imageshack.us/photo/my-images/401/qzvx.jpg/
Les dejo mi codigo fuente:
REDEFINE XBROWSE oBrw ID 5000 OF oDlg ALIAS "FACTURA"
oCol = oBrw:AddCol()
oCol:bStrData = { || dtoc(FACTURA->Fecha) }
oCol:cHeader = "Fecha"
oCol:nWidth = 60
oCol = oBrw:AddCol()
oCol:bStrData = { || DATOS->Nombre }
oCol:cHeader = "Cliente"
oCol:nWidth = 170
oCol = oBrw:AddCol()
oCol:bStrData = { || FACTURA->Serie+' '+FACTURA->Numero }
oCol:cHeader = "No. Factura"
oCol:nWidth = 90
oCol = oBrw:AddCol()
oCol:bStrData = { || Trans(FACTURA->Monto,"999,999,999.99") }
oCol:cHeader = "Monto"
oBrw:aCols[ 4 ]:nDataStrAlign := AL_RIGHT
oCol = oBrw:AddCol()
oCol:bStrData = { || IIF(FACTURA->Moneda="S","S/.","US$") }
oCol:cHeader = "Moneda"
oBrw:aCols[ 5 ]:nDataStrAlign := AL_CENTER
oCol = oBrw:AddCol()
oCol:bStrData = { || dtoc(FACTURA->FecVcto) }
oCol:cHeader = "Fecha Vcto"
oCol = oBrw:AddCol()
oCol:nEditType := 2 //EDIT_GET_LISTBOX
oCol:bClrEdit := oBrw:bClrStd
oCol:aEditListTxt := {"Anulado", "Pendiente", "Cancelado", "Vencido", "Xprogramado"}
oCol:aEditListBound := {"A", "P", "C", "V", "X"}
oCol:bOnPostEdit := { |o,x,n| If( n != VK_ESCAPE, IIF(Bloquea("FACTURA"), FACTURA->Estado:=x,), ) } // <== error se produce al darle click al listbox
oCol:cHeader = "Estado "
oBrw:bClrStd := {|| {CLR_WHITE, iif( FACTURA->Estado="A", CLR_RED, iif(FACTURA->Estado="P" .or. FACTURA->Estado="I" , CLR_GRAY, CLR_GREEN) ) } }
oBrw:SetRdd()
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLCELL
oBrw:lFastEdit:= .t.
ACTIVATE DIALOG oDlg CENTERED ON INIT oBrw:SetFocus()fwh 17.12, harbour 3.2.0, pelles C, bcc7, Ms-Sql