Me pasa en todos los browse que tienen columnas de bitmap
Agradecería muchísimo si alguien pudiera indicarme la solución.
Gracias a todos.
Pantalla antes de acceder al Browse
Cuando pulso sobre el Browse
Pongo el codigo también :
- Code: Select all Expand view
- DEFINE DIALOG oDlg RESOURCE "HOJA2" TITLE IIF( lNuevo,"AGREGAR" ,;
oemtoansi("MODIFICACION / CONSULTA Pedido n§ ")+alltrim(transform(vnumero,"@E 999,999")) )
REDEFINE GET gvfecha Var vfecha ID 102 OF oDlg
REDEFINE get gvnombre Var vnombre ID 114 OF oDlg when lsay
REDEFINE get gvnombreagente Var vnombreagente ID 121 OF oDlg when lsay
REDEFINE get gvpie Var vpie MEMO ID 108 OF oDlg UPDATE
REDEFINE get gvnumero Var vnumero ID 116 OF oDlg valid bnumero(vnumero) when lnuevo
* REDEFINE get gvconceptot Var vconceptot ID 117 OF oDlg
REDEFINE COMBOBOX getvfpago Var vfpago ID 115 items tfpago OF odlg
REDEFINE get gvnombretienda Var vnombretienda ID 122 OF oDlg when lsay
REDEFINE BROWSE oBrwt ID 103 of oDlg
oBrwT:bKeyChar = { | nKey, nFlags | (lineasp(nkey),oBrwt:refresh(),ftotal())}
oBrwT:bLDblClick = { | nRow, nCol | (Fuente((ctemporal)->negrita,(ctemporal)->grande),oBrwt:refresh())}
oBrwT:bRClicked = {|nRow,nCol| copypaste(nrow,ncol,oBrwT)}
/*
iif(vfuente = 0,((ctemporal)->negrita=.f.,(ctemporal)->grande=.f.),;
iif(vfuente = 1,((ctemporal)->negrita=.t.,(ctemporal)->grande=.f.),;
iif(vfuente = 2,((ctemporal)->negrita=.t.,(ctemporal)->grande=.t.),))),oBrwt:refresh())}
*/
ADD COLUMN to oBrwt DATA iif((ctemporal)->negrita,"X","") HEADER "Nta" size 30
ADD COLUMN to oBrwt DATA iif((ctemporal)->grande,"X","") HEADER "Gde" size 30
ADD COLUMN to oBrwt DATA (ctemporal)->cantidad HEADER "Ctd" size 50 picture "@E 99,999.99"
ADD COLUMN to oBrwt DATA (ctemporal)->servido HEADER "Ctd Sva" size 50 picture "@E 99,999.99"
ADD COLUMN to oBrwt DATA (ctemporal)->codigo HEADER "Codigo" size 150 picture "@!"
ADD COLUMN to oBrwt DATA (ctemporal)->concepto HEADER "Articulo" size 600
ADD COLUMN to oBrwt DATA (ctemporal)->unitario HEADER "Precio" size 75 Picture "@E 9,999,999.99" RIGHT
ADD COLUMN to oBrwt DATA (ctemporal)->importe HEADER "Total" size 90 Picture "@E 9,999,999.99" RIGHT
ADD COLUMN to oBrwt DATA ;
IIF((ctemporal)->servido>=(ctemporal)->cantidad .and. (ctemporal)->cantidad >0,;
BTMVERDE,IIF((ctemporal)->servido<(ctemporal)->cantidad .and. (ctemporal)->servido >0,;
BTMAMARILLO,iif((ctemporal)->cantidad>0 .and. (ctemporal)->servido= 0,BTMROJO,))) HEADER "Estado" BITMAP <------ Esta es la columna que contiene el bitmap
* REDEFINE say gvtotal Var vtotal ID 105 OF oDlg picture("9,999,999.99")
* REDEFINE get gvtdto Var vtdto ID 108 OF oDlg picture("999.99") valid ftotal()
* REDEFINE say gvdto Var vdto ID 109 OF oDlg picture("9,999,999.99")
REDEFINE get gventrega Var ventrega ID 117 OF oDlg picture("@E 9,999,999.99")
REDEFINE get gvportes Var vportes ID 123 OF oDlg picture("@E 9,999,999.99")
REDEFINE get gvbase Var vbase ID 110 OF oDlg picture("@E 9,999,999.99") when lverget
* REDEFINE get gvtirpf Var vtirpf ID 109 OF oDlg picture("@E 999.99") valid ftotal()
* REDEFINE get gvbirpf Var vbirpf ID 119 OF oDlg picture("@E 999,999.99") when lverget
* REDEFINE get gvtiva Var vtiva ID 111 OF oDlg picture("@E 999.99") valid ftotal()
REDEFINE get gvtiva Var vtiva ID 111 OF oDlg picture("@E 999.99") when lverget
REDEFINE get gviva Var viva ID 112 OF oDlg picture("@E 999,999.99") when lverget
REDEFINE get gvttotal Var vttotal ID 104 OF oDlg picture("@E 9,999,999.99") when lverget
gvbase:lDisColors= .f.
gvbirpf:lDiscolors=.f.
gviva:lDiscolors=.f.
gvttotal:lDiscolors=.f.
REDEFINE BTNBMP aBoton[1] ID 113 RESOURCE "Cliente" OF oDlg;
tooltip oemtoansi("Buscar Cliente");
action (datosadicionales("C"),gvnombre:refresh())
REDEFINE BTNBMP aBoton[10] ID 120 RESOURCE "AGENTE" OF oDlg;
tooltip oemtoansi("Buscar Agente");
action (datosadicionales("A"),gvnombreagente:refresh())
REDEFINE BTNBMP aBoton[11] ID 124 RESOURCE "TIENDA" OF oDlg;
tooltip oemtoansi("Buscar tienda");
action (datosadicionales("T"),gvnombretienda:refresh())
REDEFINE BTNBMP aBoton[2] ID 504 RESOURCE "sumar" OF oDlg;
tooltip oemtoansi("A¤adir Linea");
action (lineasp(1),oBrwt:refresh())
REDEFINE BTNBMP aBoton[8] ID 107 RESOURCE "pgup" OF oDlg;
tooltip oemtoansi("Insertar Linea");
action (lineasp(19),oBrwt:refresh())
REDEFINE BTNBMP aBoton[3] ID 505 RESOURCE "restar" OF oDlg;
tooltip oemtoansi("Borar Linea");
action (lineasp(2),oBrwt:Refresh())
REDEFINE BTNBMP aBoton[4] ID 506 RESOURCE "cambIar" OF oDlg;
tooltip oemtoansi("Modificar Linea");
action (lineasp(13),oBrwt:Refresh())
REDEFINE BTNBMP aBoton[7] ID 106 RESOURCE "TEXTO" OF oDlg;
tooltip oemtoansi("Nuevo");
action (lineasp(14),oBrwt:Refresh())
/*
REDEFINE BTNBMP aBoton[8] ID 105 RESOURCE "DATABASE" OF oDlg;
tooltip oemtoansi("A¤adir Coste Trabajo");
action (datosppto(),ftotal(),oBrwt:Refresh())
*/
REDEFINE BTNBMP aBoton[9] ID 105 RESOURCE "ARTICULO" OF oDlg;
tooltip "Añadir Articulos";
action (tarifa(1,oBrwt),ftotal(),oBrwt:gobottom(),oBrwt:Refresh())
* REDEFINE COMBOBOX getvfpago Var vfpago ID 115 items tfpago OF odlg
REDEFINE BTNBMP aBoton[5] ID 501 RESOURCE "ACEPTAR" OF oDlg ;
ACTION ( aVret:= ActAcepta( aVars ) , lSalva := aVret[1] ,;
IIF( lSalva , oDlg:End() , Obj(aVret[2]):SetFocus() ));
MESSAGE "Guardar cambios y salir del catalogo" ;
WHEN ( Acceso(oApp:aUsuarios,"FACTURA", nActua ) )
REDEFINE BTNBMP aBoton[6] ID 502 RESOURCE "SALIR" OF oDlg ACTION (lSalva := falso, oDlg:End()) ;
MESSAGE "Salir del catalogo"
ACTIVATE DIALOG oDlg CENTER on init ftotal()
Como cargo los bitmpas:
- Code: Select all Expand view
- BTMROJO := LoadBitmap( GetResources(), "ROJO" )
BTMVERDE := LoadBitmap( GetResources(), "VERDE" )
BTMAMARILLO := LoadBitmap( GetResources(), "AMARILLO" )
