PC Toledo

Código: Selecionar todos

********************************************************************************************
FUNCTION xPlanilha(xDbf,xTit,xFld) // Planilha usando o xBrowse -> PARAM=(oDbf,cTít,aCampos)
********************************************************************************************
   #include "XBrowse.Ch"
   Local oDlg, oBrw, oReg, oFld, i
   Local aFld := {}
   if Select(xDbf)=0
      Return nil
   endif
   Select(xDbf)
   (xDbf)->(DbGoTop())
   Default xTit := "Planilha: "+Alias()
   Default xFld := {}
   DEFINE DIALOG oDlg SIZE 800,420 FONT WndMain():oFont TITLE xTit TRANSPARENT
   if Empty(xFld) // Mostra Todos os campos do DBF
      @ 10,10 XBROWSE oBrw OF oDlg SIZE 380,180 PIXEL AUTOCOLS FOOTERS LINES CELL ALIAS (xDbf)
      AEval(oBrw:aCols, {|o| o:cToolTip := {'Coluna:' + CRLF + o:cHeader,    'Informação'}}) // ToolTip nas colunas automático
   else           // Mostra Campos específicos do DBF
      @ 10,10 XBROWSE oBrw OF oDlg SIZE 380,180 PIXEL AUTOCOLS FOOTERS LINES CELL
      For i=1 To Len(xFld)
         oFld := xDbf+"->"+xFld[i][1]
         ADD TO oBrw DATA &oFld HEADER xFld[i][1]
      Next
      i:=0
      AEval(oBrw:aCols, {|o| (i++, o:cToolTip:={'Coluna:'+CRLF+ iif(Empty(xFld[i][2]),xFld[i][1],xFld[i][2]) ,'Informação'}) }) // ToolTip nas colunas passado no parâmetro
   endif
   oBrw:lAutoSort := Empty((xDbf)->(OrdScope()))                                             // Se o DBF está com OrdScope, então não permitir a mudança na classificação para não perder o filtro
   oBrw:bClrStd   := {|| {CLR_BLACK, iif(oBrw:Keyno()%2=0, CLR_WHITE, CLR_HGRAY) } }         // Cores nas linhas (Par/Impar) ou (oBrw:cAlias)->(RecN())%2=0
// oBrw:DelCol( 1 )                                                                          // Deleta Coluna
// oBrw:DT_EMISS:cEditPicture := 'dd/mm/yyyy'                                                // Máscara da Coluna
// oBrw:aCols[1]:bLClickHeader := {|| (xDbf)->(DBSETORDER(1)), oBrw:GoTop(), oBrw:Refresh()} // Para ordenar a planilha pela coluna, quando selecionada.
   oBrw:CreateFromCode()
   @ 195, 010 BUTTON "&Imprimir" SIZE 50,10 FONT oFontGet PIXEL ACTION oBrw:Report()         // IIF( MsgYesNo("Deseja imprimir essa planilha?","Confirme"), (oReg:=(xDbf)->(RecN()),Listar(xTit,,,,,,,,,,,,,.T.,.F.),(xDbf)->(DbGoTo(oReg)),oBrw:Refresh()), )
   @ 195, 070 BUTTON "&Excel"    SIZE 50,10 FONT oFontGet PIXEL ACTION oBrw:ToExcel()
// @ 195, 130 BUTTON "&Pesquisa" SIZE 50,10 FONT oFontGet PIXEL ACTION (Pesquisa(xDbf,,oDlg,OrdNumber(),"Informe o que deseja encontrar:",xDbf,.f.,.t.),oBrw:Refresh()) // ( cSeek:=Space(50), iif(oaMsgGet("Buscar por","Informe o que deseja encontrar:",@cSeek,"LUPA"),oBrw:RDDIncrFilter(Upper(Alltrim(cSeek))),) )
   @ 195, 190 BUTTON "&Fechar"   SIZE 50,10 FONT oFontGet PIXEL ACTION oDlg:End()
   ACTIVATE DIALOG oDlg CENTERED ON INIT oBrw:SetFocus()
Return Nil

Código: Selecionar todos

METHOD GenerateXBrowse() CLASS JsQuadra
 
 ::bancos:abrir(4)	
 SELE 4 
 GO TOP 	
	REDEFINE XBROWSE ::xbrowBusca ID 4001 OF ::oChild ;
		FIELDS CODCOND, CODQUAD, DESC, NOMERUA;
		HEADERS "Codigo Condominio   ", "Codigo Quadra    ", "Descrição                ","Rua   ";
		ON DBLCLICK ::Entregar() 
	//REDEFINE COMBOBOX ::gIndice VAR ::indice ID 4005 ITEMS {"", ""} VALID ::refreshIndex() OF ::oChild
		
   	::oCadastro := CadQuadras():New2(::oChild,::xbrowBusca)

RETURN  

Código: Selecionar todos

METHOD GenerateXBrowser()  CLASS CadQuadras
   	LOCAL altura:=::oChild:nHeight-100
 ::bancos:abrir(4)	
 SELE 4 
 GO TOP 	
		@ 10,10 XBROWSE ::xbrowBusca;
		FIELDS CODCOND, CODQUAD, DESC, NOMERUA;
		HEADERS "Codigo Condominio   ", "Codigo Quadra    ", "Descrição                ","Rua   ";
		OF ::oChild SIZE -10,altura PIXEL;
		ON DBLCLICK ::IncOuAlt(.F.) 
      
return 

REDEFINE BUTTONBMP ::bCODCondon ID 4014 OF ::oDlg;
							 BITMAP "#7002" ACTION (JsCondon2(::oDlg,::gCodCondom), ::gCodQuadra:setFocus()) Valid ::VALIDDESC()