hasa,
Fiz um teste aqui com a 2.5.3 e não está funcionando, a tela de fundo está em branco. Na versão 2.5.2 está normal a grid fica zebrada.
Não sei o que é, o código abaixo é o que está com problema na 2.5.3
Código: Selecionar todos
LOAD WINDOW fCadastro
CENTER Window fCadastro
ACTIVATE Window fCadastro
FUNCTION VerTaxas(cApto,nValue)
LOCAL nTotal
MEMVAR lIncluir
HB_Default(@nValue,1)
DbSelectArea("TAXAS")
IF TAXAS->(DbSeek(CADASTRO->Apto))
lIncluir:=.F.
ELSE
lIncluir:=.T.
ENDIF
fCadastro.Grid_Taxas.DisableUpdate()
fCadastro.Grid_Taxas.DeleteAllItems()
aRows:={}
nTotal:=0
DO WHILE !TAXAS->(Eof()) .AND. TAXAS->Apto = cApto
fCadastro.Grid_Taxas.AddItem( { TAXAS->Cod,;
TAXAS->Descricao,;
Transform(TAXAS->Valor,"@E 999.99"),;
IF(TAXAS->Cobra,"S","N"),;
TAXAS->Tipo } )
IF TAXAS->Cobra .AND. TAXAS->Tipo = "A"
nTotal+=TAXAS->Valor
ENDIF
IF !TAXAS->Cobra .AND. TAXAS->Tipo = "D"
nTotal-=TAXAS->Valor
ENDIF
DO EVENTS
TAXAS->(DbSkip())
ENDDO
lEvento:=.T.
fCadastro.lbVrTotal.Value:=Transform(nTotal,"@E 9,999.99")
* Ordem dos Botões: ADICIONAR EDITAR SALVAR EXCLUIR ANTERIOR PROXIMO PRIMEIRO ULTIMO CANCELAR
IF lIncluir
BotaoAtivo(.T.,.F.,.F.,.F.,.T.,.T.,.T.,.T.,.F.,.T.)
ELSE
BotaoAtivo(.F.,.T.,.F.,.F.,.T.,.T.,.T.,.T.,.F.,.T.)
ENDIF
fCadastro.Grid_Taxas.EnableUpdate()
fCadastro.Grid_Taxas.Value:=nValue
GetVars()
RETURN .T.
fCadastro.fmg
Código: Selecionar todos
DEFINE WINDOW fCadastro ;
AT 0,0 ;
WIDTH 630;
HEIGHT 575 ;
TITLE "(SEB01) Cadastro de Condôminos e Taxas de Condomínio";
ICON ICON_CADASTRO;
CHILD ;
NOSIZE;
ON INIT {|| OnInitGrid(),IniciaDlg()};
ON RELEASE {||DbCloseAll()}
ON KEY ESCAPE OF fCadastro ACTION {||DbCloseAll(),ThisWindow.Release }
DEFINE SPLITBOX
DEFINE TOOLBAREX Edicao BUTTONSIZE 30,30 FLAT
BUTTON oBtn1;
CAPTION "";
ACTION {||oNovo()};
PICTURE "BMP_ADICIONAR";
TOOLTIP "Incluir um Novo Registro.";
ADJUST
BUTTON oBtn2;
CAPTION "";
ACTION oEditar();
PICTURE "BMP_EDITAR";
TOOLTIP "Editar o Registro Corrente.";
ADJUST
BUTTON oBtn3;
CAPTION "";
ACTION oSave();
PICTURE "BMP_SALVAR";
TOOLTIP "Salvar o Registro.";
ADJUST
BUTTON oBtn4;
CAPTION "";
ACTION oExcluir();
PICTURE "BMP_EXCLUIR";
TOOLTIP "Escluir o Registro.";
ADJUST
BUTTON oBtn5;
CAPTION "";
ACTION oAnterior();
PICTURE "BMP_VOLTAR";
TOOLTIP "Registro Anterior.";
ADJUST
BUTTON oBtn6;
CAPTION "";
ACTION oProximo();
PICTURE "BMP_PROXIMO";
TOOLTIP "Próximo Registro.";
ADJUST
BUTTON oBtn7;
CAPTION "";
ACTION oPrimeiro();
PICTURE "BMP_PRIMEIRO";
TOOLTIP "Primeiro Registro.";
ADJUST
BUTTON oBtn8;
CAPTION "";
ACTION oUltimo();
PICTURE "BMP_ULTIMO";
TOOLTIP "Último Registro.";
ADJUST
BUTTON oBtn9;
CAPTION "";
ACTION oImpressao();
PICTURE "BMP_PRINT";
TOOLTIP "Impressão do Cadastro.";
ADJUST
BUTTON oBtn10;
CAPTION "";
ACTION oCancela();
PICTURE "BMP_DESFAZER";
TOOLTIP "Cancelar a Operação.";
ADJUST
END TOOLBAR
DEFINE TOOLBAREX Saida BUTTONSIZE 30,30 FLAT
BUTTON oBtn11;
CAPTION "";
ACTION fCadastro.Release;
PICTURE "BMP_SAIR";
TOOLTIP "Sair do Cadastro.";
ADJUST
END TOOLBAR
END SPLITBOX
DEFINE FRAME Frame_1
CAPTION "Apto/Nome"
ROW 70
COL 10
WIDTH 600
HEIGHT 60
OPAQUE .T.
END FRAME
DEFINE FRAME Frame_2
CAPTION "(+) Taxas"
ROW 145
COL 10
WIDTH 600
HEIGHT 365
OPAQUE .T.
END FRAME
@ 097,020 LABEL lb01;
VALUE "";
FONT "Arial";
SIZE 12;
AUTOSIZE;
FONTCOLOR BLUE
@ 515,015 LABEL lbTotal;
VALUE "Total:";
FONT "Arial";
SIZE 12;
FONTCOLOR BLUE
@ 515,065 LABEL lbVrTotal;
VALUE "";
FONT "Arial";
SIZE 12;
AUTOSIZE;
FONTCOLOR BLUE
@ 177,020 LABEL lb02;
VALUE "Nº : ";
FONT "Arial";
SIZE 12;
AUTOSIZE;
FONTCOLOR BLUE
DEFINE GETBOX oTX01
ROW 177
COL 65
WIDTH 40
HEIGHT 20
VALUE Space(2)
VALID {||Pesquisa(This.Value)}
PICTURE "99"
FONTSIZE 12
FONTNAME cFonte
FONTCOLOR _VERDE
BACKCOLOR _BLUE3
ON GOTFOCUS {||This.BackColor:=_YELLOW2,This.CaretPos:=0}
ON LOSTFOCUS This.BackColor:=_BLUE3
TOOLTIP ""
END GETBOX
DEFINE GETBOX oTX02
ROW 177
COL 110
WIDTH 345
HEIGHT 20
VALUE Space(30)
PICTURE "@!"
FONTNAME cFonte
FONTSIZE 12
FONTCOLOR _VERDE
BACKCOLOR _BLUE3
ON GOTFOCUS {||This.BackColor:=_YELLOW2,This.CaretPos:=0}
ON LOSTFOCUS This.BackColor:=_BLUE3
TOOLTIP ""
END GETBOX
DEFINE GETBOX oVR01
ROW 177
COL 460
WIDTH 80
HEIGHT 20
VALUE 0.01
VALID {||This.Value >= 0.00}
PICTURE "@E 9,999.99"
FONTNAME cFonte
FONTSIZE 11
FONTCOLOR _VERDE
BACKCOLOR _BLUE3
ON GOTFOCUS {||This.BackColor:=_YELLOW2,This.CaretPos:=0}
ON LOSTFOCUS This.BackColor:=_BLUE3
TOOLTIP "Informe aqui o valor da cobrança."
END GETBOX
DEFINE CHECKBOX oCB01
ROW 177
COL 550
WIDTH 55
CAPTION 'Cobra'
VALUE .F.
//ONCHANGE CheckValor()
TOOLTIP ''
END CHECKBOX
@ 207,020 LABEL lb03;
VALUE "A/D : ";
FONT "Arial";
SIZE 12;
AUTOSIZE;
FONTCOLOR BLUE
DEFINE GETBOX oTX03
ROW 207
COL 65
WIDTH 30
HEIGHT 20
VALUE Space(1)
VALID {||This.Value $ "AD "}
PICTURE "!"
FONTNAME cFonte
FONTSIZE 12
FONTCOLOR _VERDE
BACKCOLOR _BLUE3
ON GOTFOCUS {||This.BackColor:=_YELLOW2,This.CaretPos:=0}
ON LOSTFOCUS This.BackColor:=_BLUE3
TOOLTIP "(A)adicionar (D)descontar"
END GETBOX
DEFINE GRID Grid_Taxas
ROW 240
COL 015
WIDTH 590
HEIGHT 263
HEADERS {"Nº","Descrição","Valor","Cobra","A/D"}
WIDTHS {60,250,100,100,70}
ITEMS aRows
VALUE 1
JUSTIFY {GRID_JTFY_LEFT, GRID_JTFY_LEFT, GRID_JTFY_RIGHT, GRID_JTFY_CENTER, GRID_JTFY_CENTER}
FONTCOLOR BLUE
DYNAMICFORECOLOR {bFore, bFore, bFore, bFore, bFore }
DYNAMICBACKCOLOR {bBack, bBack, bBack, bBack, bBack}
ON DBLCLICK {||InformaTaxas()}
FONTBOLD .T.
FONTNAME "Arial"
FONTSIZE 10
CELLNAVIGATION .T.
NOLINES .T.
END GRID
END WINDOW
) 