MOD-HARBOUR

Publicado: **Lun Feb 22, 2021 9:26 pm**

Buenos dias
Tengo el siguiente codigo:
{{ Css( 'app.css' ) }}
<?prg
#include {{ TWebInclude() }}
local aRows := pvalue(1)
DEFINE WEB oWeb TITLE 'Aperturas de Sucursales' TABLES INIT
DEFINE FORM o
INIT FORM o
ROW o
COL o GRID 12
DEFINE BROWSE oBrw ID 'ringo' HEIGHT 400 OF o
ADD oCol TO oBrw ID 'sucursal' HEADER 'ID' SORT
ADD oCol TO oBrw ID 'nombre' HEADER 'Nombre Sucursal' SORT
ADD oCol TO oBrw ID 'fecha' HEADER 'fecha' Sort
INIT BROWSE oBrw DATA aRows
END o
END o
END FORM o RETURN
?>

Pero este se ejecuta y pone en toda una ventana, mi pregunta:
Como puedo poner un header, un nav y un menu ? En que parte de este codigo entrarían ?
Mi idea es que simpre que el usuario presione algúna opción del menu, y que sea un BROWSE, este se muestre como parte de.

DEFINE WEB <= Hace 1.- <html><head><body> y nav. aqui es donde queiro meter todo mi propio head y nav.

Espero no hacerlos bolas.
Saludos
Osvaldo Ramirez

Publicado: **Lun Feb 22, 2021 10:01 pm**

Hey Osvaldo!

I already did something like that once, let me show you what I did:

First of all, I got a "main" view, which is going to be loaded everytime, I call it "home.view":

Código: Seleccionar todo

{{View('header.view')}}
<link href="/css/dashboard.css" rel="stylesheet">
</head>

<body>

  {{View('barrasuperior.view')}}

  <div class="container-fluid">
    <div class="row">
      <main role="main" class="col-md-9 ml-sm-auto col-lg-10 px-md-4">
      
        {{View('menu.view')}}       

        <?prg

          cHtml :=  App():get("chtml")
            
          RETURN cHtml

        ?>

      </main>
    </div>
  </div>
</body>
{{View('scripts.view')}}
<script src="/js/vfatec.js"></script>  
{{View('footer.view')}}

as you can see:
-I got a "menu.view" which is going to be the browser you just mentioned.
-I got the "footer.view" which is the footer you just mentioned
-I got the "barrasuperior.view" which is the header you just mentioned

and the <prg> inside of the "Home.view" is going to load the HTML code that I desire, using this kind of strategy:

I created my router like that:

Código: Seleccionar todo

DEFINE APP oApp TITLE 'teste';
		ON INIT Config() ;
		CREDENTIALS 'teste' COOKIE 'teste'
	
		DEFINE ROUTE 'root'  			URL '/' 	 		 			CONTROLLER 'inicio@controller.prg' 					METHOD 'GET'  OF oApp		
		DEFINE ROUTE 'rota1'  	URL 'rota1'	 		CONTROLLER 'rota1@controller.prg' 			METHOD 'GET'  OF oApp
		DEFINE ROUTE 'rota2'    	URL 'rota2'		 	CONTROLLER 'rota2@controller.prg' 				METHOD 'GET'  OF oApp
		DEFINE ROUTE 'rota3'	    	URL 'rota3' 	CONTROLLER 'rota3@controller.prg' 		METHOD 'GET'  OF oApp
		
	INIT APP oApp

These methods from my controller.prg will "redirect" my application in order to create the HTML code that I desire, like this:

Código: Seleccionar todo

METHOD inicio(oController) CLASS Controller
    
    ::redirecionar(oController,"I")          
    
RETURN NIL

METHOD rota1(oController) CLASS Controller
    
    ::redirecionar(oController,"A")          
    
RETURN NIL


METHOD rota2(oController) CLASS Controller
    
    ::redirecionar(oController,"B")          
    
RETURN NIL

METHOD rota3(oController) CLASS Controller
    
    ::redirecionar(oController,"C")          
    
RETURN NIL

So the "redirecionar" method will be in charge of managing these requests and creating the HTML content:

Código: Seleccionar todo

METHOD redirecionar(oController,cdir,cHtml_,cAtt) CLASS Controller
    
  LOCAL oValidator    := TValidator():New()  
  LOCAL hRoles        := {=>}          
  LOCAL cView, wcesp:="", cHtml:="", wcpaci:="", wnomepac:="",wpag:="1"

  DO CASE                     
      CASE cdir="I"
        cHtml   := ::getInicio(oController)
      CASE cdir="A"
        cHtml   := ::getrota(oController,1)
      CASE cdir="B"
        cHtml := ::getrota(oController,2)
      CASE cdir="C"
        cHtml := ::getrota(oController,3)
  ENDCASE

  IF Empty(cHtml)
     cHtml:=cHtml_
  ENDIF
    
  App():Set("chtml",cHtml)
      
  oController:View("home.view")        

RETURN NIL

Código: Seleccionar todo

METHOD getInicio(oController)
  
  LOCAL cHtml:=""

  cHtml+='<h3 style="margin-top:2rem">Orientações sobre a plataforma</h3>'+;
         '<div class="border" style="padding: 1rem">'+;
            '<h5 style="margin-top:0.5rem">teste inicio</h5>'+;
         '</div>'


RETURN cHtml

METHOD getInicio(oController)
  
  LOCAL cHtml:=""

  cHtml+='<h3 style="margin-top:2rem">Orientações sobre a plataforma</h3>'+;
         '<div class="border" style="padding: 1rem">'+;
            '<h5 style="margin-top:0.5rem">teste inicio</h5>'+;
         '</div>'


RETURN cHtml

METHOD getrota(oController,nrota)
  
  LOCAL cHtml:=""

  cHtml+='<h3 style="margin-top:2rem">Orientações sobre a plataforma</h3>'+;
         '<div class="border" style="padding: 1rem">'+;
            '<h5 style="margin-top:0.5rem">teste rota '+hb_valtostr(nrota)+'</h5>'+;
         '</div>'


RETURN cHtml

And that's it...
hope it helps you!

Publicado: **Lun Feb 22, 2021 11:55 pm**

Thanks Ricardo

Let me read and try to understand...

I will post some my advanced

Regards
Osvaldo Ramirez

MOD-HARBOUR

Tweb/TMercury

Tweb/TMercury

Re: Tweb/TMercury

Re: Tweb/TMercury