Create PROCEDURE LLENAR_HECHOS4