FiveTech Support Forums

Amigos del foro dos pregunticas con respecto al xbrowse.

Con el browse original de fwh lo hacia de la siguiente manera

REDEFINE LISTBOX oT1oli FIELDS tMovi->Articu
FIELDSIZES 78
ID 12 OF oDlg;
HEADERS "Artículo";
ON CHAGE funactu()

oT1oli:={||IIF((ORDKEYNO())%2==0,cClr1,cClr2)}

La pregunta es ¿cuales clausulas me permiten ejecutar las funciones que estan resaltadas en rojo, cuando utilizo la clase xbrowse?

leandro wrote:Amigos del foro dos pregunticas con respecto al xbrowse.

Con el browse original de fwh lo hacia de la siguiente manera

REDEFINE LISTBOX oT1oli FIELDS tMovi->Articu
FIELDSIZES 78
ID 12 OF oDlg;
HEADERS "Artículo";
ON CHAGE funactu()

oT1oli:={||IIF((ORDKEYNO())%2==0,cClr1,cClr2)}

La pregunta es ¿cuales clausulas me permiten ejecutar las funciones que estan resaltadas en rojo, cuando utilizo la clase xbrowse?

El ON CHANGE lo usas asi:

oXBrw:bChange := {|| MiFuncion() }

y los colores de la siguiente manera:

oXBrw:bClrStd := { || ColoreaSTDRenglon() }
oXBrw:bClrSel := { || ColoreaSELrenglon() }
oXBrw:bClrSelFocus := { || ColoreaSELrenglon() }

// +---------------------------------------------------------------------------------+
// | Funciones para el pintado de los renglones del browse |
// +---------------------------------------------------------------------------------+

// Colores Standar del Browse
STAT FUNC ColoreaSTDRenglon()
Local aColores := {}
IF Inv->EDOFIS == "B"
aColores := { CLR_BLACK, CLR_WHITE }
EndIF
IF Inv->EDOFIS == "R"
aColores := { CLR_BLUE, CLR_WHITE }
EndIF
IF Inv->EDOFIS == "M"
aColores := { CLR_RED, CLR_WHITE }
ENDIF
Return aColores

// Colores de seleccion
STAT FUNC ColoreaSELrenglon()
Local aColores := {}
IF Inv->EDOFIS == "B"
aColores := { CLR_WHITE, CLR_BLUE }
EndIF
IF Inv->EDOFIS == "R"
aColores := { CLR_WHITE, CLR_GREEN }
EndIF
IF Inv->EDOFIS == "M"
aColores := { CLR_WHITE, CLR_RED }
ENDIF
Return aColores

Espero te sirva
Saludos