aCabec := ExecBlock("CTCABR3",.F.,.F.)

User Function  CTCABR3()

	Local dDataIni	  
	Local dDataFim	   
	Local cChar		:= chr(160)  // carácter dummy para alineamiento del encabezado   
	Local cDataExt	:= ""

	If NomeProg = "CTBR110"  // Ejemplo -> Si fuera el Diario contable	

		dDataIni	:= mv_par01  	
		dDataFim	:= mv_par02  	
		cDataExt    := Transform(Day(dDataIni),'99') + " de " + MesExtenso(dDataIni) + " de " + Transform(Year(dDataIni),'9999');
						+ " a " + Transform(Day(dDataFim),'99') + " de " + MesExtenso(dDataFim) + " de " + Transform(Year(dDataFim),'9999')	
		aCabec := { cChar + "         " + "EMPRESA PRUEBA S/A"  + "         " + cChar;
					, cChar + "         " + "000.000.000-0"      + "         " + cChar;
					, cChar + "         " + "LIBRO DIARIO"       + "         " + cChar;    	      
					, cChar + "         " + cDataExt             + "         " + cChar;    	      
					, cChar + "         " + RptFolha + TRANSFORM(m_pag,'999999')}    
									
	EndIf             

Return aCabec

• Se observa que la utilización del PE y los impactos de este en el sistema son de responsabilidad del cliente.
• Los ejemplos utilizados en esta documentación solamente son para fines de demostración, cada cliente debe verificar qué comportamiento desea realizar, de acuerdo con el alcance del punto de entrada.