FiveTech Software tech 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:nclrpane:={||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:nclrpane:={||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