Estadisticas de EMT

CREATE OR REPLACE procedure estadisticas_viajeros as FEC_VIAJw date; DIAS_DIFw number(2); DIAS_LDIFw number(2); VIAJ_ACTw number(9); VIAJ_INTAw number(9); VIAJ_ESTMw number(9); DIF_INTAw number(9); DIF_ESTMw number(9); INCR_ACTw number(5,2); INCR_ESTMw number(5,2); fec varchar2(10); operfec number; fechainter date; ano varchar2(4); mes varchar2(2); begin select to_date(to_char(FEC_VIAJ,'DD/MM/YYYY')),DIAS_DIF,DIAS_LDIF,VIAJ_ACT,VIAJ_INTA,VIAJ_ESTM,DIF_INTA,DIF_ESTM,INCR_ACT,INCR_ESTM into FEC_VIAJw,DIAS_DIFw,DIAS_LDIFw,VIAJ_ACTw,VIAJ_INTAw,VIAJ_ESTMw,DIF_INTAw,DIF_ESTMw,INCR_ACTw,INCR_ESTMw from info_portal@servicios; fec:=to_char(FEC_VIAJw,'DD/MM/YYYY'); htp.print(' Estadisticas de EMT

Evolución de Viajeros

Transportados'||chr(38)||'nbsp; a : '||fec||chr(38)||'nbsp;'||chr(38)||'nbsp;'||chr(38)||'nbsp;'||chr(38)||'nbsp;' ||chr(38)||'nbsp;'||chr(38)||'nbsp;'||chr(38)||'nbsp;'||chr(38)||'nbsp;'||chr(38)||'nbsp;'||chr(38)||'nbsp;'||chr(38)||'nbsp;'||chr(38)||'nbsp;'||chr(38)||'nbsp;'||chr(38)||'nbsp;'||chr(38)||'nbsp;'||chr(38)||'nbsp; '||chr(38)||'nbsp;Diferencia

'||to_char(VIAJ_ACTw,'99,999,999')||'

+ '||INCR_ACTw||' %

'); mes:=to_char(FEC_VIAJw+1,'MM'); ano:=to_char(FEC_VIAJw+1,'YYYY')-1; fec:=to_char(FEC_VIAJw+1,'DD')||'/'||mes||'/'||ano; htp.print(' Interanual (desde : '||fec||')'||chr(38)||'nbsp;'||chr(38)||'nbsp;'||chr(38)||'nbsp;'||chr(38)||'nbsp;' ||chr(38)||'nbsp;'||chr(38)||'nbsp;'||chr(38)||'nbsp;'||chr(38)||'nbsp;'||chr(38)||'nbsp;'||chr(38)||'nbsp;'||chr(38)||'nbsp;'||chr(38)||'nbsp;'||chr(38)||'nbsp;'||chr(38)||'nbsp;'||chr(38)||'nbsp; Diferencia

'||to_char(VIAJ_INTAw,'99,999,999')||'

+ '||to_char(DIF_INTAw,'99,999,999')||'

'); end; /