Ver Mensaje Individual
  #5  
Antiguo 30-12-2020
Elias011267 Elias011267 is offline
Miembro
 
Registrado: jul 2020
Posts: 73
Reputación: 4
Elias011267 Va por buen camino
Buen dia.
Es firebird 3.0 con EMS SQL MANAGER FREEWARE LITE. El problema es solo con los procedure en especifico cuando utilizo el comando for select ya con los otros procedure no presenta problemas. por ejemplo en el procedure siguiente al compilar me borra todo el cuerpo donde declaro las variable, repito, solo con los procedure seleccionables (donde aplico los ' for select'). Descargue el ib expert en caso de no conseguir solucion..
Código SQL [-]
CREATE PROCEDURE PRN_CALCULO (pe_nomina INTEGER)
AS
DECLARE VARIABLE v_id SMALLINT;
DECLARE VARIABLE v_codigo CHAR(4);
DECLARE VARIABLE v_nombre VARCHAR(30);
DECLARE VARIABLE v_apellido VARCHAR (30);
DECLARE VARIABLE v_concepto VARCHAR (30);
DECLARE VARIABLE v_valor DOUBLE PRECISION;
DECLARE VARIABLE v_salario DOUBLE PRECISION;
BEGIN
  for select emp_id, emp_nombre, emp_apellido, emp_salario  
  FROM empleado where emp_condicion= 'A' INTO :v_id, :v_nombre, 
      :v_apellido, :v_salario DO
        BEGIN
          for select cue_codigo, cue_nombre,cue_factor from CUENTAS 
            WHERE cue_fijo INTO :v_codigo, :v_concepto, :v_valor do
            BEGIN
              INSERT INTO DETNOMINA (det_nominaid, det_concepto, det_monto, 
                det_empid) VALUES (:PE_NOMINA, :v_concepto, :v_valor,
                    :v_id);
            END
            SUSPEND;
        END
        SUSPEND;
END^

SET TERM ; ^
Responder Con Cita