Uso a Minigui Unicode 3.4.4.
Adianto que estou a usar o formulário,Fmg e como tal ele é criado com essas linhas todas
Se alguém me puder ajudar, eu fico muito agradecido.
DEFINE GRID Grid_Pedidos
ROW 156
COL 600
WIDTH 576
HEIGHT 335
ITEMS grid_data_Items()
VALUE 1
WIDTHS grid_data_widths()
HEADERS grid_data_headers()
FONTNAME "Arial"
FONTSIZE 11
TOOLTIP ""
ONCHANGE Nil
ONGOTFOCUS Nil
ONLOSTFOCUS Nil
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
ONDBLCLICK Nil
ONHEADCLICK Nil
ONQUERYDATA QueryTest()
MULTISELECT .T.
ALLOWEDIT .F.
VIRTUAL .F.
DYNAMICBACKCOLOR grid_data_DynamicBackColor()
DYNAMICFORECOLOR Nil
COLUMNWHEN grid_data_columnwhen()
COLUMNVALID Nil
COLUMNCONTROLS grid_data_columncontrols()
SHOWHEADERS .T.
CELLNAVIGATION .T.
NOLINES .F.
HELPID Nil
IMAGE { 'Imagens\br_ok.bmp', 'Imagens\br_no.bmp' }
JUSTIFY grid_data_justify()
ITEMCOUNT 5
BACKCOLOR NIL
FONTCOLOR NIL
HEADERIMAGES Nil
ROWSOURCE Nil
COLUMNFIELDS Nil
ALLOWAPPEND .F.
ALLOWDELETE .F.
BUFFERED .F.
DYNAMICDISPLAY Nil
ONSAVE Nil
LOCKCOLUMNS 0
END GRID
Segue em seguida as rotinas que o preenchem:
FUNCTION grid_data_columnwhen()
LOCAL aColumnWhen
// { || .T. } PERMITE A EDICAO
// { || .F. } NAO PERMITE A EDICAO
aColumnWhem := { { || .F. },;
{ || .T. },;
{ || .T. },;
{ || .T. },;
{ || .T. },;
{ || .F. },;
{ || .T. } }
RETURN aColumnWhen
FUNCTION grid_data_columncontrols()
LOCAL aColumnControls
aColumnControls := { { "TEXTBOX","CHARACTER" },;
{ "TEXTBOX","CHARACTER" },;
{ "TEXTBOX","NUMERIC","99,999.99" },;
{ "TEXTBOX","NUMERIC","$ 99,999.99" },;
{ "TEXTBOX","NUMERIC","99" },;
{ "TEXTBOX","NUMERIC","$ 99,999.99" },;
{ 'CHECKBOX' , 'Sim' , 'Não' } }
RETURN aColumnControls
FUNCTION grid_data_Items()
LOCAL aColumnItems
aColumnItems := { '',;
"DOSE DE BACALHAU A MODA DA CASA LOMBO",;
2.00,;
9.00,;
0,;
18.00,;
.t. }
RETURN aColumnItems
FUNCTION grid_data_headers()
LOCAL aheaders
aheaders := { "V",;
"Descrição ",;
"Quantidade",;
"Preco Unit.",;
"Desc",;
"Valor Total",;
"Pagar" }
RETURN aheaders
FUNCTION grid_data_widths()
LOCAL awidths := {}
aWidths := { 0,220,90,90,20,100,40 }
RETURN awidths
FUNCTION grid_data_justify()
LOCAL ajustify := {}
ajustify := { GRID_JTFY_LEFT,;
GRID_JTFY_LEFT,;
GRID_JTFY_RIGHT,;
GRID_JTFY_RIGHT,;
GRID_JTFY_RIGHT,;
GRID_JTFY_RIGHT,;
GRID_JTFY_CENTER }
RETURN ajustify
FUNCTION grid_data_DynamicBackColor()
LOCAL aDynamicBackColor := {}
aDynamicBackColor := { bBackColor,;
bBackColor,;
bBackColor,;
bBackColor,;
bBackColor,;
bBackColor,;
bBackColor }
RETURN aDynamicBackColor
Procedure QueryTest()
If This.QueryColIndex == 1
If Int ( This.QueryRowIndex / 2 ) == This.QueryRowIndex / 2
This.QueryData := 0
Else
This.QueryData := 1
EndIf
Else
This.QueryData := Str ( This.QueryRowIndex ) + ',' + Str ( This.QueryColIndex )
EndIf
Return