Create PROCEDURE LLENAR_HECHOS1