DEFINE DIALOG oDlg RESOURCE "MENUDATO" TITLE cTitulo FONT oFont1
oDlg:lHelpIcon:=.F.
oLbx := TXBrowse():New(oDlg)
oLbx:nMarqueeStyle := MARQSTYLE_HIGHLROW
oLbx:nColDividerStyle := LINESTYLE_BLACK
oLbx:lColDividerComplete := .t.
oLbx:nHeaderLines := 1
oLbx:nFooterLines := 1
oLbx:nDataLines := 1
oLbx:CreateFromResource(200)
oLbx:lFooter := .t.
oLbx:nFreeze := 3
oLbx:bClrStd := { || {CLR_BLACK,SelColor2(Trabaja->NumTrabaja+"-"+Trabaja->NombreTra,aSeleccion),CLR_WHITE } }
oLbx:bkeydown:={|nKey|DOKEYCHECK(nKey,oLbx,oBtn7,cUsaBase,nSerie,nRango)}
//
oCol := oLbx:AddCol()
oCol:AddResource("LEVELB")
oCol:AddResource("LEVELR")
oCol:bBmpData := { || IIF(ASCAN(aSeleccion,TRABAJA->NumTrabaja+"-"+TRABAJA->NombreTra)=0,1,2 ) }
oCol:cHeader := "S"
AADD(aCols,1)
//
oCol := oLbx:AddCol()
oCol:bStrData := { || TRABAJA->NumTrabaja}
oCol:cHeader := OemtoAnSi("N£m.")
oCol:oDataFont := oFont1
AADD(aCols,2)
//
oCol := oLbx:AddCol()
oCol:bStrData := { || SUBSTR(TRABAJA->NombreTra,1,33)}
oCol:cHeader := " Apellidos y Nombre"
oCol:oDataFont := oFont1
AADD(aCols,3)
//
oCol := oLbx:AddCol()
oCol:bStrData := { || STR(TRABAJA->TTipoDo)}
oCol:cHeader := "T"
oCol:oDataFont := oFont1
AADD(aCols,4)
//
oCol := oLbx:AddCol()
oCol:bStrData := { || TRABAJA->DniTra}
oCol:cHeader := " N.I.F."
oCol:oDataFont := oFont1
AADD(aCols,5)
//
oCol := oLbx:AddCol()
oCol:AddResource("LEVELB")
oCol:AddResource("LEVELA")
oCol:AddResource("LEVELY")
oCol:bBmpData := { || IIF(TRABAJA->FijoEven="F",2,IIF(TRABAJA->COrigen,3,1 ) ) }
oCol:cHeader := "F/E"
AADD(aCols,6)
//
oCol := oLbx:AddCol()
oCol:AddResource("LEVELB")
oCol:AddResource("LEVELAZ")
oCol:bBmpData := { || IIF(TRABAJA->Anotacion=" ",1,2 )}
oCol:cHeader := "Not."
AADD(aCols,7)
//
oCol := oLbx:AddCol()
oCol:bStrData := { || TRABAJA->Naftra}
oCol:cHeader := " Núm.Afiliación"
oCol:oDataFont := oFont1
AADD(aCols,8)
//
oCol := oLbx:AddCol()
oCol:bStrData := { || TRABAJA->TelefoTra}
oCol:cHeader := "Teléfono"
oCol:oDataFont := oFont1
AADD(aCols,9)
//
oCol := oLbx:AddCol()
oCol:bStrData := { || TRABAJA->CPosTra}
oCol:cHeader := "C.Postal"
oCol:oDataFont := oFont1
AADD(aCols,10)
//
oCol := oLbx:AddCol()
oCol:bStrData := { || TRABAJA->LocaTra}
oCol:cHeader := " Localidad"
oCol:oDataFont := oFont1
AADD(aCols,11)
//
oCol := oLbx:AddCol()
oCol:bStrData := { || TRABAJA->ProvinTra}
oCol:cHeader := " Provincia"
oCol:oDataFont := oFont1
AADD(aCols,12)
//
oCol := oLbx:AddCol()
oCol:bStrData := { || +TRABAJA->HM}
oCol:cHeader := "H/M"
oCol:oDataFont := oFont1
AADD(aCols,13)
//
oCol := oLbx:AddCol()
oCol:bStrData := { || DTOC(TRABAJA->NaciTra)}
oCol:cHeader := "F.Nacmto."
oCol:oDataFont := oFont1
AADD(aCols,14)
//
oCol := oLbx:AddCol()
oCol:bStrData := { || +TRABAJA->GrupoCo}
oCol:cHeader := "G.Cot."
oCol:oDataFont := oFont1
AADD(aCols,15)
//
oCol := oLbx:AddCol()
oCol:bStrData := { || +TRABAJA->Catetra}
oCol:cHeader := "Categ. Prof."
oCol:oDataFont := oFont1
AADD(aCols,16)
//
oCol := oLbx:AddCol()
oCol:bStrData := { || +TRABAJA->TCodicon}
oCol:cHeader := "Contrato"
oCol:oDataFont := oFont1
AADD(aCols,17)
//
oCol := oLbx:AddCol()
oCol:bStrData := { || +TRABAJA->TipoCon}
oCol:cHeader := "Tipo Contrato"
oCol:oDataFont := oFont1
AADD(aCols,18)
//
oCol := oLbx:AddCol()
oCol:bStrData := { || +TRABAJA->Estudios}
oCol:cHeader := "Estudios"
oCol:oDataFont := oFont1
AADD(aCols,19)
//
oCol := oLbx:AddCol()
oCol:bStrData := { || +TRABAJA->CodiProTra}
oCol:cHeader := "Cód.Prov."
oCol:oDataFont := oFont1
AADD(aCols,20)
//
oCol := oLbx:AddCol()
oCol:bStrData := { || +TRABAJA->SgTra+" "+ALLTRIM(TRABAJA->DomiTra)+" "+TRABAJA->NumDoTra+" "+TRABAJA->EscaTra+" "+TRABAJA->PisoTra+" "+TRABAJA->PuertaTra}
oCol:cHeader := " Domicilio"
oCol:oDataFont := oFont1
AADD(aCols,21)
//
//
for nFor := 1 to len(aCols)
oLbx:aCols[ nFor ]:blDClickData := {|| (Trabajadores(oLbx,"Ver/Modificar datos",.F.,nSerie),oLbx:Refresh() ) }
oLbx:aCols[ nFor ]:bRClickData := {|| (Seleccionar(oLbx),oLbx:refresh(),IIF(LEN(aSeleccion) > 0,oBtn7:enable(),oBtn7:disable()) ) }
next
//
Manuel Aranda wrote:Me ocurre solo en los controles creados desde recursos. Además Antonio me ha contestado que están pendientes de revisar el código, por lo que creo que es sabedor de esta anomalía. No obstante ahí va el código por si acaso vieras algo raro:
Saludos,
Manuel
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Antonio Linares, Google [Bot] and 18 guests