ROS.2030600 Pr    !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~s no existe.@><$Nenhum espao de nome foi fornecido.97=Nenhum arquivo foi fornecido.;9>QOperao abortada pelo usurio.SQ0?7 wArquivo %[1]s no um arquivo de origem PL/SQL vlido.RP@6 wJ existe uma biblioteca com este nome. Sobregrav-la?} {Aa0Aes de Depurao - Exibe informaes detalhadas sobre a ao de depurao especificada. Bibliotecas - Exibe informaes detalhadas sobre uma biblioteca anexada. Tabelas - Exibe informaes detalhadas sobre tabelas do banco de dados. Views - Exibe informaes detalhadas sobre views do banco de dados. Caminho de Carga - Exibe informaes detalhadas sobre o caminho de carga atual. Locais - Exibe o nome, o tipo e o valor de uma varivel ou de um parmetro que local localizao atual do escopo. Unidades de Programa - Exibe informaes detalhadas sobre uma ocorrncia de unidade de programa especfica. As informaes exibidas incluem o nome da unidade de programa, seu tipo, se est compilado, ou aberto para editar, e informao de referncia hbrida. Verso - Exibe informao da verso sobre o ambiente de desenvolvimento. pr8000 8000!8000"8000#8000$8000%)%sdif 0o vp*zar %s neste sistema de arquivos.8000 8000 8000 8000 N8808L 66RESFILE___p 8headerfield edure Specs: ' 0%p Functions: - 0+qFunction Bodies: , 0*rFunction Specs: + 0)sProgram Units: 1 0/tProgram Unit Bodies: 0 0.uProgram Unit Specs: ! 0v %s + 0)wDebug Actions: ) 0'x Breakpoints: ? 0=y# #%d (Breakpoint: %s %s, line %d) 0 0.zAttached Libraries: ! 0{ %s < 0:| Local Parameters and Variables: ( 0&} Parameters: - 0+~Local Variables: & 0$ Triggers: < 0: #%d (Trigger: %s %s, line %d) = 0;! #%d (Trigger: Every Statement) 9 07 #%d (Trigger: Debug Entry) - 0+Stored Packages: 3 01Stored Package Bodies: 2 00Stored Package Specs: 0 0.Stored Subprograms: 000000000000000000000000 r-pp (*+ TOOL_MODULEREQ_ROLE08 08hhP08@08r!#,2?ENT]clr{   !"')/016:8<BCDIKQRSXZ`abgiopqvx~d < 8 s $F d x iKZ3 )Uͫͫͫͫͫͫͫ X \@x YXX0WEEKLESS "  lNEXTWEEK "  WORKDAYS   GET_MINUTES GET_HOURSP FMT_HOURS FMT_SUM_HOURS FMT_INPUTIS_TIME0IS_DATE @@ 0800l     T&'$G88 T &'$HX ; &'$;;;X&'$ ! &'$! ! &'&'&'&'&'l L8$ ! ! !H0ON_ERRORl ON_MESSAGE-: KEY_HELP#Last Compilation: 02/11/2001 17:29h KEY_MENUL KEY_PRINTvip_srwPRE_FORM POST_FORM!c M!i"p)*129:AB"I"J a@@0800"0*:JR(bfgjjqrryzzz(~3 PL/SQL DEPL/SQL LibraryMINGUS STD_LIB_FRMDZxf:xfcV$ 1(pp@&*0./MOUSEMINGUSu u1(pp@&*0./MOUSEMINGUSuUS5(p"p#@*.023PKG_FRM_APPMINGUSu US5(p"p#@*.023PKG_FRM_APPMINGUSuUS5(p"p#@*.023PKG_FRM_CRNMINGUSu US5(p"p#@*.023PKG_FRM_CRNMINGUSuUS5(p"p#@*.023PKG_FRM_EANMINGUSu US5(p"p#@*.023PKG_FRM_EANMINGUSuUS5(p"p#@*.023PKG_FRM_ENVMINGUSu5(p"p#@*.023PKG_FRM_OBJMINGUSu&5(p"p#@*.023PKG_FRM_OBJMINGUSu$5(p"p#@*.023PKG_FRM_STDMINGUSuu r5(p"p#@*.023PKG_FRM_STDMINGUSu5(p"p#@*.023PKG_FRM_TRGMINGUSuave5(p"p#@*.023PKG_FRM_TRGMINGUSu) 0' Program Units( 0& Program Unit000000000000000000000000x(^pbpb@b8f8h8jlmnop rtuv0w0x0ypzp0oF_SUM_SALDO0@*LU1999,990.00MIMI t# JpNNO(RpVpV0V0W0X0YZ[\]^_`ab0c0d0epfpf0fgh jlmnopqrrP_o*t# JpNNO(RpVpV0V0W0X0YZ[\]^_`ab0c0d0epfpf0fgh jlmnopqrsP_o+t# JpNNO(RpVpV0V0W0X0YZ[\]^_`ab0c0d0epfpf0fgh jlmnopqrtP_o,t# JpNNO(RpVpV0V0W0X0YZ[\]^_`ab0c0d0epfpf0fgh jlmnopqruP_o-t# JpNNO(RpVpV0V0W0X0YZ[\]^_`ab0c0d0epfpf0fgh jlmnopqrvP_o.t# JpNNO(RpVpV0V0W0X0YZ[\]^_`ab0c0d0epfpf0fgh jlmnopqrwP_o/t# JpNNO(RpVpV0V0W0X0YZ[\]^_`ab0c0d0epfpf0fgh jlmnopqrxP_o0t# JpNNO(RpVpV0V0W0X0YZ[\]^_`ab0c0d0epfpf0fgh jlmnopqryP_o1t# JpNNO(RpVpV0V0W0X0YZ[\]^_`ab0c0d0epfpf0fgh jlmnopqrP_ot# JpNNO(RpVpV0V0W0X0YZ[\]^_`ab0c0d0epfpf0fgh jlmnopqrP_ot# JpNNO(RpVpV0V0W0X0YZ[\]^_`ab0c0d0epfpf0fgh jlmnopqrP_ot# JpNNO(RpVpV0V0W0X0YZ[\]^_`ab0c0d0epfpf0fgh jlmnopqrP_ot# JpNNO(RpVpV0V0W0X0YZ[\]^_`ab0c0d0epfpf0fgh jlmnopqrP_ot# JpNNO(RpVpV0V0W0X0YZ[\]^_`ab0c0d0epfpf0fgh jlmnopqrP_ot# JpNNO(RpVpV0V0W0X0YZ[\]^_`ab0c0d0epfpf0fgh jlmnopqrP_ot# JpNNO(RpVpV0V0W0X0YZ[\]^_`ab0c0d0epfpf0fgh jlmnopqrP_ot# JpNNO(RpVpV0V0W0X0YZ[\]^_`ab0c0d0epfpf0fgh jlmnopqrP_ot# JpNNO(RpVpV0V0W0X0YZ[\]^_`ab0c0d0epfpf0fgh jlmnopqrP_ot# JpNNO(RpVpV0V0W0X0YZ[\]^_`ab0c0d0epfpf0fgh jlmnopqrP_o# JpL \^(bpfpf8f8h8j8lnopqr tvwx0y0z0{p|p0F_REP_SALDO_0100`:VV999,990.00MIp# JpL \^(bpfpf8f8h8j8lnopqr tvwx0y0z0{p|p0F_REP_SALDO_02 00:VV999,990.00MI# JpL \^(bpfpf@f8j8l8npqrst vxyz0{0|0}p~p0F_REP_SALDO_03!00:VV999,990.00MI\# JpL \^(bpfpf@f8j8l8npqrst vxyz0{0|0}p~p0F_REP_SALDO_04"00:VV999,990.00MIp# JpL \^(bpfpf@f8j8l8npqrst vxyz0{0|0}p~p0F_REP_SALDO_05#00:VV999,990.00MI# JpL \^(bpfpf@f8j8l8npqrst vxyz0{0|0}p~p0F_REP_SALDO_07$00:VV999,990.00MIps# JpL \^(bpfpf@f8j8l8npqrst vxyz0{0|0}p~p0F_REP_SALDO_11%00:VV999,990.00MI0l1 $ MOUSE PACKAGE BODY mouse IS move_item VARCHAR2(80); -- the item_name to drag item_x NUMBER; -- last position of item item_y NUMBER; old_x NUMBER; -- original position of item old_y NUMBER; max_x NUMBER; -- maximum position on canvas. A content canvas should not be larger max_y NUMBER; -- then window or you'll get error when moving outside!! mouse_x NUMBER; -- last mouse position mouse_y NUMBER; PROCEDURE click(item_name VARCHAR2 := NULL) IS BEGIN move_item := nvl(item_name,NAME_IN('SYSTEM.MOUSE_ITEM')); item_x := Get_Item_Property(move_item,X_POS); item_y := Get_Item_Property(move_item,Y_POS); max_x := to_number(Get_View_Property(Get_Item_Property(move_item,ITEM_CANVAS),WIDTH)) - to_number(Get_Item_Property(move_item,WIDTH)); max_y := to_number(Get_View_Property(Get_Item_Property(move_item,ITEM_CANVAS),HEIGHT)) - to_number(Get_Item_Property(move_item,HEIGHT)); IF Get_Form_Property(Get_Application_Property(CURRENT_FORM_NAME),COORDINATE_SYSTEM) = 'CHARACTER_CELL' THEN max_x := max_x - 1; -- we need to stay INSIDE the canvas max_y := max_y - 1; ELSE max_x := max_x * 0.99; max_y := max_y * 0.99; END IF; mouse_x := NAME_IN('SYSTEM.MOUSE_X_POS'); mouse_y := NAME_IN('SYSTEM.MOUSE_Y_POS'); old_x := item_x; old_y := item_y; d_x := 0; d_y := 0; END; /* click */ PROCEDURE move IS x NUMBER; y NUMBER; v VARCHAR2(10); BEGIN x := NAME_IN('SYSTEM.MOUSE_X_POS'); -- The new items position is the current mouse y := NAME_IN('SYSTEM.MOUSE_Y_POS'); -- position minus the distance between the x := x - mouse_x + item_x; -- original mouse and item position y := y - mouse_y + item_y; x := least(greatest(x,0),max_x); -- make sure, we don't leave the canvas y := least(greatest(y,0),max_y); IF move_item = NAME_IN('SYSTEM.MOUSE_ITEM') THEN d_x := x - item_x; -- since we drag the object which has mouse focus, d_y := y - item_y; -- the current mouse position is an offset of the item_x := x; -- current items position item_y := y; ELSE d_x := x - old_x; -- dragging a another object returns the mouse pos d_y := y - old_y; -- proportional to the original's item position old_x := x; old_y := y; END IF; Set_Item_Property(move_item,POSITION,x,y); Synchronize; END; /* move */ END;-ͫͫͫͫͫͫͫ /NKW_LIB_FRM/MOUSE SYSSTANDARD SQLFORMS FORMS40 FORMS4C FORMS4W $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ844c"MOUSE"MOVE_ITEM"ITEM_X"ITEM_Y"OLD_X"OLD_Y"MAX_X"MAX_Y"MOUSE_X"MOUSE_Y"CLICK"ITEM_NAME"MOVE"X"Y"V""l!'*039<BEKNTW]`hnqy           .$P% & '()* + , / - 301!2#" TTp0LR;   ͫͫͫͫͫͫͫ\  8RI 0000 00000 ! ` &'h$K&'$>  &' &'@l|$5 ($$ &' D&'$5 @(@HH D&' &' $5 &'&'$ (&'&'$5 (Bdd &' &' $5 &'&'$ (&'&'$5 ((( B  &' 4&'$/0&'&'0$ ,,  4.TBT88.Bppo 4CC &'$K(4  &'<$K(  T  \ d&'.l((t&'.lDD|! <0000L `&'$K\(\dd ` &'$K(0 BAB0 A0 04.lPP44 P4044 >0 0 0$.l4 ,04ll><l0llD0  &'L$K  &'Bd&'B0lt0| &'B &'B0   0&'&' 0$&'$i!# THCLICKSYSTEM.MOUSE_ITEMPCHARACTER_CELLddSYSTEM.MOUSE_X_POSSYSTEM.MOUSE_Y_POSMOVESYSTEM.MOUSE_X_POSSYSTEM.MOUSE_Y_POSSYSTEM.MOUSE_ITEM73TuS_ !"#%$Q%,-5.x/0 1 2 3 4R 5j 6 8 9 : ;/ = > ?@@DATE"FV_FORMAT"VENI""#$*+1289?@FGOUV\]cdjkqrxy  &'/58>AGJKSY\beknoux~P l1  $  PKG_FRM_APPepackage body pkg_frm_app is ------------------------------------------------------------------ ----------------------- Private Session -------------------------- ------------------------------------------------------------------ ------------------------------------------------------------------ -- SET_APPINFO ------------------------------------------------------------------ procedure set_appinfo is begin if (not pkg_frm_env.gv_connected) then return; end if; begin dbms_application_info.set_module(module_name => pkg_frm_env.gv_module, action_name => null); dbms_application_info.set_client_info(client_info => pkg_frm_env.gv_file); exception when others then null; end; end set_appinfo; ------------------------------------------------------------------ ------------------------------------------------------------------ -- GET_PREFERENCES ------------------------------------------------------------------ procedure get_preferences is lr_prefs pkg_nkp_usr.gr_prefs%TYPE; begin if (not pkg_frm_env.gv_connected) then return; end if; begin lr_prefs := pkg_nkp_usr.get_preferences; exception when others then null; end; begin pkg_frm_obj.gv_va := nvl(lr_prefs.va, 'R75G88B75'); pkg_frm_obj.gv_va_def := pkg_frm_obj.gv_va; pkg_frm_obj.toggle_va(pkg_frm_env.gv_module, 'C'); exception when others then raise; end; end get_preferences; ------------------------------------------------------------------ ------------------------ Public Session -------------------------- ------------------------------------------------------------------ -- CHECK_VERSION ------------------------------------------------------------------ procedure check_version is lv_version varchar2(20); begin if (not pkg_frm_env.gv_connected) then return; end if; begin lv_version := pkg_nkp_frm.get_version(upper(pkg_frm_env.gv_module)); exception when others then raise; end; if (nvl(lv_version,'NOT FOUND') <> nvl(pkg_frm_env.gv_version,'NOT FOUND')) then pkg_frm_obj.message('Verso do mdulo: ' || upper(pkg_frm_env.gv_module) || ' difere do registro !' || chr(10) || 'Arquivo=' || pkg_frm_env.gv_version || ' Registro=' || lv_version); raise form_trigger_failure; end if; end check_version; ------------------------------------------------------------------ -- SET_ENVIRONMENT ------------------------------------------------------------------ procedure set_environment is begin begin pkg_frm_env.gv_username := get_application_property(username); pkg_frm_env.gv_password := get_application_property(password); pkg_frm_env.gv_tns := get_application_property(connect_string); pkg_frm_env.gv_connected := (pkg_frm_env.gv_username is not null); set_window_property(forms_mdi_window, title, pkg_frm_env.gv_comments || ' [' || lower(pkg_frm_env.gv_module) || ' ' || pkg_frm_env.gv_version || '] [' || nvl(upper(pkg_frm_env.gv_username),'Off-line') || ']'); end; begin set_appinfo; get_preferences; end; end set_environment; ------------------------------------------------------------------ -- ERRO ------------------------------------------------------------------ function erro return varchar2 is mens varchar2(512); begin declare errnum number := error_code; errtxt varchar2(255) := error_text; errtyp varchar2(3) := error_type; dbmserrnum number; dbmserrtxt varchar2(512);` l begin dbmserrnum := dbms_error_code; dbmserrtxt := dbms_error_text; if (errnum between 40501 and 40513 or errnum = 40735) then -- if (errnum = 40505 and dbmserrnum = -942) then -- return null; -- else if (dbmserrnum between -20999 and -20000) then if (instr(dbmserrtxt,'|') <> 0) then dbmserrtxt := substr(dbmserrtxt,1,instr(dbmserrtxt,'|',1,1) - 1); end if; mens := dbmserrtxt; else mens := dbmserrtxt; end if; -- end if; elsif (errnum = 41369) then return null; else mens := (errtyp || '-' || to_char(errnum) || chr(10) || errtxt); end if; end; return mens; exception when others then raise; end erro; /********************************************************************************* From within an ON-ERROR trigger, you can check to see if the ERROR_CODE function reports any of the following database-related errors: 40501: ORACLE err - unable to reserve record for update or delete 40502: ORACLE err - unable to read list of values 40504: ORACLE err - unable to execute a gname trigger 40505: ORACLE err - unable to perform query 40506: ORACLE err - unable to check for record uniqueness 40507: ORACLE err - unable to fetch next query record 40508: ORACLE err - unable to INSERT record 40509: ORACLE err - unable to UPDATE record 40510: ORACLE err - unable to DELETE record 40511: ORACLE err occurred while executing a gname trigger 40512: ORACLE err - unable to issue SAVEPOINT command 40513: ORACLE err - unable to get date/time from database Once you know that some database error has caused form processing to fail, you can interrogate the DBMS_ERROR_TEXT and DBMS_ERROR_CODE functions to determine exactly what server error has occurred. The full text of the error message is available in the return value for DBMS_ERROR_TEXT. ==== ORA-20000: application_specific_message ====== Cause: The stored procedure RAISE_APPLICATION_ERROR was called, which causes this message to be generated. Action: Correct the problem as described in the message or contact the application administrator or database administrator for more information. ==== ORA-21000: error number argument to RAISE_APPLICATION_ERROR of num is out of range, ==== ===================== must be between -20000 and -20999, inclusive ========================== Cause: An attempt was made to specify a number not in the range of -20000 to -20999. Action: The valid range for user-specified error numbers is -20000 to -20999 inclusively. Do not specify numbers outside this range. ***********************************************************************************/ end pkg_frm_app; @@ͫͫͫͫͫͫͫ /NKW_LIB_FRM/PKG_FRM_APP /NKW_LIB_FRM/PKG_FRM_ENV SYSSTANDARD DBMS_APPLICATION_INFO p <<NKDBMS_APPLICATION_INFO xf PUBLICDBMS_APPLICATION_INFOxf SYSDBMS_APPLICATION_INFO PKG_NKP_USR w NK PKG_NKP_USR xf: NK NKP_USR_PREFS/NKW_LIB_FRM/PKG_FRM_OBJ PKG_NKP_FRM w NK PKG_NKP_FRM xf NKNKP_FRMSQLFORMS FORMS40 FORMS4C FORMS4W $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ8EE"PKG_FRM_APP"SET_APPINFO"GET_PREFERENCES"LR_PREFS"USERNAME"VA"FLAG"CHECK_VERSION"LV_VERSION"SET_ENVIRONMENT"ERRO"MENS"ERRNUM"ERRTXT"ERRTYP"DBMSERRNUM"DBMSERRTXT""$%+./589?BCKQTU]ekntwx~pl1 $$I, PKG_FRM_CRNpackage body pkg_frm_crn is ------------------------------------------------------------------ ----------------------- Private Section -------------------------- ------------------------------------------------------------------ ------------------------------------------------------------------ ------------------------ Public Section -------------------------- ------------------------------------------------------------------ -- WEEKLESS ------------------------------------------------------------------ function weekless(fv_date in date) return rec_date is retrec rec_date; begin if (fv_date <> last_day(fv_date)) then if (to_char(fv_date,'d') < 6) then retrec.dataini := least(fv_date + 1, last_day(fv_date)); retrec.datafim := least(fv_date + (6 - to_char(fv_date,'d')), last_day(fv_date)); elsif (to_char(fv_date,'d') = 7) then retrec.dataini := least(fv_date + 1, last_day(fv_date)); retrec.datafim := least(fv_date + 6, last_day(fv_date)); end if; end if; return retrec; end weekless; ------------------------------------------------------------------ -- NEXTWEEK ------------------------------------------------------------------ function nextweek(fv_date in date) return rec_date is retrec rec_date; begin if (to_char(fv_date,'w') < to_char(last_day(fv_date),'w')) then if ((fv_date + (7 - to_char(fv_date,'d'))) <= last_day(fv_date)) then if (to_char(fv_date,'d') < 7) then retrec.dataini := least(fv_date + (7 - to_char(fv_date,'d')), last_day(fv_date)); retrec.datafim := least(fv_date + (13 - to_char(fv_date,'d')), last_day(fv_date)); elsif ((fv_date + 7) <= last_day(fv_date)) then retrec.dataini := least(fv_date + 7, last_day(fv_date)); retrec.datafim := least(fv_date + 13, last_day(fv_date)); end if; end if; end if; return retrec; end nextweek; ------------------------------------------------------------------ -- WORKDAYS ------------------------------------------------------------------ function workdays(fv_dataini in date, fv_datafim in date) return number is lv_days number := 0; lv_nowork number := 0; retval number := 0; begin lv_days := abs(to_number(to_char(fv_datafim,'j')) - to_number(to_char(fv_dataini,'j'))); retval := 0; return retval; end workdays; ------------------------------------------------------------------ -- GET_MINUTES - Retorna os minutos ------------------------------------------------------------------ function get_minutes(fv_minutes in number) return number is retval number; assertion boolean; begin begin assertion := (fv_minutes is null); if assertion then return null; end if; end; begin retval := (trunc(fv_minutes, -2) * 0.60) + (fv_minutes - trunc(fv_minutes, -2)); end; return retval; end get_minutes; ------------------------------------------------------------------ -- GET_HOURS - Retorna as horas ------------------------------------------------------------------ function get_hours(fv_hours in number) return number is retval number; assertion boolean; begin begin assertion := (fv_hours is null); if assertion then return null; end if; end; begin retval := (trunc(fv_hours / 60) * 100) + (fv_hours - (trunc(fv_hours / 60) * 60)); end; return retval; end get_hours; ------------------------------------------------------------------ -- FMT_INPUT - Formata a entrada numerica para um format de horas ------------------------------------------------------------------ function fmt_input(fv_minlutes in number) return varchar2 is retval varchar2(22) := ltrim(to_char(nvl(fv_minutes,0), '0000')); begin retval := substr(retval, 1, 2) || ':' || substr(retval, 3, 2); return retval; exception when others then return null; end fmt_input; ------------------------------------------------------------------ -- FMT_HOURS ------------------------------------------------------------------ function fmt_hours(fv_minutes in number) return varchar2 is retval varchar2(32); lv_hours number; lv_minutes number; begin lv_hours := trunc(nvl(fv_minutes,0) / 60); lv_minutes := nvl(fv_minutes,0) - (trunc(nvl(fv_minutes,0) / 60) * 60); retval := ltrim(to_char(nvl(lv_hours,0),'00')) || ':' || ltrim(to_char(nvl(lv_minutes,0),'00')); return retval; exception when others then return null; end fmt_hours; ------------------------------------------------------------------ -- FMT_SUM_HOURS ------------------------------------------------------------------ function fmt_sum_hours(fv_minutes in number) return varchar2 is retval varchar2(32); lv_hours number; lv_minutes number; begin lv_hours := trunc(nvl(fv_minutes,0) / 60); lv_minutes := nvl(fv_minutes,0) - (trunc(nvl(fv_minutes,0) / 60) * 60); retval := ltrim(to_char(nvl(lv_hours,0),'9900')) || ':' || ltrim(to_char(nvl(lv_minutes,0),'00')); return retval; exception when others then return null; end fmt_sum_hours; ------------------------------------------------------------------ -- IS_TIME - Check for a time ------------------------------------------------------------------ function is_time(fv_time in number) return boolean is retval boolean := TRUE; begin if (fv_time is not null) then retval := (fv_time between 0 and 2400 and -- trunc(fv_time, -2) between 0 and 2400 and fv_time - trunc(fv_time, -2) between 0 and 59); end if; return retval; end is_time; ------------------------------------------------------------------ -- IS_DATE - Check for a date ------------------------------------------------------------------ function is_date(fv_date in varchar2, fv_format in varchar2) return boolean is retval boolean := TRUE; veni date; begin if (fv_date is not null and fv_format is not null) then begin veni := to_date(fv_date, fv_format); exception when others then retval := FALSE; end; end if; return retval; end is_date; end pkg_frm_crn; .a`ͫͫͫͫͫͫͫ /NKW_LIB_FRM/PKG_FRM_CRN SYSSTANDARD $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ8rX"PKG_FRM_CRN"WEEKLESS"FV_DATE"DATAINI"DATAFIM"RETREC"NEXTWEEK"WORKDAYS"FV_DATAINI"FV_DATAFIM"LV_DAYS"LV_NOWORK"RETVAL"GET_MINUTES"FV_MINUTES"ASSERTION"GET_HOURS"FV_HOURS"FMT_INPUT"FMT_HOURS"LV_HOURS"LV_MINUTES"FMT_SUM_HOURS"IS_TIME"FV_TIME"IS_DATE"FV_FORMAT"VENI""#$*+1289?@FGOUV\]cdjkqrxy %(.12:@CILRUV\_ehpvy   "$&(*,.02468:<>@BDFHJLNPRTVXZ\^`bdfhjlnp                               /l1 $$ PKG_FRM_EAN \package body pkg_frm_ean is ------------------------------------------------------------------ -- Variables, Records, Constants, PL/SQL Tables... ------------------------------------------------------------------ ------------------------------------------------------------------ -- GET_EANCD ------------------------------------------------------------------ function get_eancd(fv_ean in number) return number is retval number; lv_ean varchar2(32); lv_1 number; lv_2 number; lv_mod number; begin lv_ean := ltrim(to_char(fv_ean,'000000000000')); << ean_loop >> for i in 1 .. 12 loop if (mod(i,2) = 0) then lv_1 := nvl(lv_1,0) + substr(lv_ean, i, 1); else lv_2 := nvl(lv_2,0) + substr(lv_ean, i, 1); end if; end loop; lv_mod := mod((lv_1 * 3) + lv_2, 10); if (nvl(lv_mod,0) in (0, 10)) then lv_mod := 0; else lv_mod := 10 - nvl(lv_mod,0); end if; retval := to_number(lv_ean || lv_mod); -- -- To calculate the check digit for 888 6451 73885 _ -- Step 1: 5+8+7+5+6+8 = 39 -- Step 2: *3 = 117 -- Step 3: 8+3+1+4+8+8 = 32 -- Step 4: 117+32 = 149 -- _ = 1 return retval; exception when others then raise; end get_eancd; ------------------------------------------------------------------ -- CHECK_EANCD ------------------------------------------------------------------ function check_eancd(fv_ean in number) return boolean is retval boolean; lv_ean varchar2(32); lv_eancd number; begin lv_ean := ltrim(to_char(fv_ean,'0000000000000')); lv_eancd := get_eancd(to_number(substr(lv_ean, 1, 12))); retval := (fv_ean = lv_eancd); return retval; exception when others then raise; end check_eancd; ------------------------------------------------------------------ -- GET_EANRANGE ------------------------------------------------------------------ function get_eanrange(fv_ean in number) return number is retval number; begin retval := to_number(substr(ltrim(to_char(fv_ean,'0000000000000')), 8, 5)); return retval; exception when others then raise; end get_eanrange; end pkg_frm_ean; `ͫͫͫͫͫͫͫ /NKW_LIB_FRM/PKG_FRM_EAN SYSSTANDARD $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ8 ==b"PKG_FRM_EAN"GET_EANCD"FV_EAN"RETVAL"LV_EAN"LV_1"LV_2"LV_MOD"I"CHECK_EANCD"LV_EANCD"GET_EANRANGE""%(.17:;ADJMSV\_gmpvw}~             6*+ 0 1 234 5 :,-78  "9  <%.'/);0$Tp$@ $&# !(ͫͫͫͫͫͫͫt  $   X``0`T`p` -h&'|$6 0 n^.. &'$lP .  .p &'Tp$G T&'0 $*(AT88T  . &'p$G &'0 $*( A p Jhf.|CT|`A`pD. &'D$P ((  .&'$G . ..I 6 .,, .d. &'$G BdHH  -`;0( ! jkhg!  \```@ \-dd&'dx$6 `` d &' $*(&'$hh@ @B (`! \jkhg! \ ` 0-X&'X$6 T&'T $*P(P44 X! 0jkhg!  0 GET_EANCD 000000000000   4 CHECK_EANCD 0000000000000  GET_EANRANGE 0000000000000 ce3PW!)+,78 9|:<=FGIJYVYY @@      " $ $%%$#&+#((** ) -.,$344325>20793 8 ;=5 <@A73FGGFEHME;JL=KOP?FUVVU TW\TCY[EZ ^_GUdeed cfkcKhjMi mnOdsttsr uzrSwyUx |}Ws []_  ce !g!  kn "#l1 $$< PKG_FRM_OBJpackage body pkg_frm_obj is ------------------------------------------------------------------ ----------------------- Private Session -------------------------- ------------------------------------------------------------------ ------------------------------------------------------------------ -- LOAD_VA ------------------------------------------------------------------ procedure load_va is begin if (gt_va.exists(gt_va.first)) then return; else gt_va.delete; end if; << va_loop >> for i in 1 .. 22 loop gt_va(i) := 'VA' || ltrim(to_char(i,'00')); end loop va_loop; end load_va; ------------------------------------------------------------------ -- CHANGE_VA ------------------------------------------------------------------ procedure change_va(fv_item in varchar2) is i binary_integer; begin i := gt_va.first; << va_loop >> while (i is not null) loop if (upper(gt_va(i)) = upper(gv_va)) then if (fv_item = 'P') then if (i = gt_va.first) then gv_va := upper(gt_va(gt_va.last)); else gv_va := upper(gt_va(i - 1)); end if; elsif (fv_item = 'N') then if (i = gt_va.last) then gv_va := upper(gt_va(gt_va.first)); else gv_va := upper(gt_va(i + 1)); end if; end if; exit va_loop; end if; i := gt_va.next(i); end loop va_loop; exception when others then raise; end change_va; ------------------------------------------------------------------ -- SET_VA ------------------------------------------------------------------ procedure set_va(fv_form in varchar2) is lv_formid formmodule; lv_blockname varchar2(80); lv_blockid block; lv_va gv_va%TYPE; begin lv_formid := find_form(fv_form); lv_blockname := get_form_property(lv_formid, first_block); << va_loop >> while (lv_blockname is not null) loop lv_blockid := find_block(lv_blockname); lv_va := get_block_property(lv_blockid, current_record_attribute); if (nvl(lv_va,'?') <> 'DEFAULT') then set_block_property(lv_blockid, current_record_attribute, gv_va); end if; lv_blockname := get_block_property(lv_blockid, nextblock); end loop va_loop; end set_va; ------------------------------------------------------------------ ------------------------ Public Session -------------------------- ------------------------------------------------------------------ ------------------------------------------------------------------ -- ADVISE ------------------------------------------------------------------ function advise(fv_message in varchar2) return varchar2 is retval varchar2(1); begin declare lv_alert alert; lv_button number; begin lv_alert := find_alert('advise'); set_alert_property(lv_alert, alert_message_text, fv_message); lv_button := show_alert(lv_alert); if (lv_button = 88) then retval := 'Y'; elsif (lv_button = 89) then retval := 'N'; else retval := 'C'; end if; return retval; end; end advise; ------------------------------------------------------------------ -- MESSAGE ------------------------------------------------------------------ procedure message(fv_message in varchar2) is lv_alert alert; lv_button number := 0; begin lv_alert := find_alert('message'); set_alert_property(lv_alert, alert_message_text, fv_message); lv_button := show_alert(lv_alert); end message; ------------------------------------------------------------------ -- ENABLE --------------------------------------------!l---------------------- procedure enable(fv_item in varchar2) is lv_item item; begin begin lv_item := find_item(fv_item); set_item_property(lv_item, enabled, property_true); set_item_property(lv_item, insert_allowed, property_true); set_item_property(lv_item, update_allowed, property_true); end; end enable; ------------------------------------------------------------------ -- DISABLE ------------------------------------------------------------------ procedure disable(fv_item in varchar2) is lv_item item; begin begin lv_item := find_item(fv_item); set_item_property(lv_item, enabled, property_false); end; end disable; ------------------------------------------------------------------ -- TOGGLE_VA ------------------------------------------------------------------ procedure toggle_va(fv_form in varchar2 := pkg_frm_env.gv_module, fv_item in varchar2 := 'C') is lv_formid formmodule; lv_blockname varchar2(80); lv_blockid block; begin begin load_va; exception when others then raise; end; if (gv_va is not null) then begin change_va(fv_item); set_va(fv_form); exception when others then raise; end; return; end if; lv_formid := find_form(fv_form); lv_blockname := get_form_property(lv_formid, first_block); << va_loop >> while (lv_blockname is not null) loop lv_blockid := find_block(lv_blockname); gv_va := get_block_property(lv_blockid, current_record_attribute); if (nvl(gv_va,'?') <> 'DEFAULT') then begin change_va(fv_item); set_va(fv_form); end; exit va_loop; end if; lv_blockname := get_block_property(lv_blockid, nextblock); end loop va_loop; end toggle_va; end pkg_frm_obj; #ͫͫͫͫͫͫͫ /NKW_LIB_FRM/PKG_FRM_OBJ PLITBLM SYSSTANDARD FORMS4C FORMS40 FORMS4W /NKW_LIB_FRM/PKG_FRM_ENV $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ8E"PKG_FRM_OBJ"LOAD_VA"I"CHANGE_VA"FV_ITEM"SET_VA"FV_FORM"LV_FORMID"ID"LV_BLOCKNAME"LV_BLOCKID"LV_VA"ADVISE"FV_MESSAGE"RETVAL"LV_ALERT"LV_BUTTON"MESSAGE"ENABLE"LV_ITEM"DISABLE"TOGGLE_VA""d'-069AGJPQWZ`cdjkqtz}~$'/58>AGHNQWZ[abhkmoqsuwy{}            #-po/rf  q1ygs t uP v w xP  6~"h#%i&(z*),{ .|0}:3j46 8:==k>@ B?ElFH JAMmNPnQS U WYXP [! ](TppxT*$ #l CTpp !$-27<ADILOT\  1;CK '+/59?GRVZͫͫͫͫͫͫͫ  8p |2 `&'&' $&'% &' %$  $!8 $&'&'%L(T0(0&'.(D-D\@&'@d$6 <;l<8(8t @J(L(#hf!  &' (&'%    (.4 P&'4$F,,  P&'tX &'X$,T&'&' $,T  @ ,&' &'%   &'&'&' &'% tX&'X$,t   &'&'..L B ,((tX 0&'X$,t  0@9 %&' <&'% 44  <&'&'&' L&'% DDtX&'X$,@@t  L <&'&'.p.LApT,TtX &'X$,PPt   &' &' %  P jk! px &'$(  &' &' $t  &'$=   &'$' p &' &'ph $0tx  &'x$> u a &'&'&'ph  $  &' &'p $0t  ! $ H&'P$ @@\ H&'&'( $  h&'$< dLLl$ h.tl$l5 "|L].$5 "LL!hg! .88 \&'$ TT \&'&'l( $  |&'$< `` |! ( $&'$) 0 $&'&'&' $&'&'&'  $&'&'&' $! ( $&'$) h $&'&'&' $! p x#: xjk&' &' $=||q d  ##/ jk!  &'$(  &' &' $t  &'$=   &'$' p &'&' &'ph $0t  &' &' $> Y E ## &' &'p $0t  !PlT0LOAD_VA00 VAP CHANGE_VAPNSET_VA?DEFAULT,ADVISEadviseXYYNCMESSAGEmessageENABLEHDISABLE TOGGLE_VA?DEFAULT \ !"#%'(B)$+.0v34?& @ B C+ D E FP H J YC Z [ \ ] ^? _Z an c| d| e l no@pqz{A|}~ANb}Tez[[[A|} @@eXYYNCtMESSAGEmessageENABLEDISABLEH TOGGLE_VA?DEFAULT $f,n4v",$%M&'2()y+W-r./ 1 4 : ;4 F G I9 J K LR M O#QQ`ab2cYdtefhjkls unvwxcDDX,:BCK l_string, fv_sep) + 1); i := i + 1; end loop; return gt_split(fv_field); exception when others then raise; end split; end pkg_frm_std; qͫͫͫͫͫͫͫ /NKW_LIB_FRM/PKG_FRM_STD SYSSTANDARD PKG_NKP_STD w NK PKG_NKP_STD PLITBLM $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ8@4DT "PKG_FRM_STD"GT_SPLIT"GV_SPLIT"ON_RANGE"FV_DATE"FV_LOW"FV_HIGH"RETVAL"FV_NUMBER"FV_STRING"IS_DATE"FV_FORMAT"LV_DATE"IS_NUMBER"LV_NUMBER"IS_INTEGER"IS_UF"FV_UF"LV_UFS"IS_PASSWD"FV_PASSWD"LV_CHARS"LV_GCHAR"LV_BCHARS"LV_BCHAR"IS_CNPJ"FV_CNPJ"STRING"SUMD01"SUMD02"REST01"REST02"I"IS_CPF"FV_CPF"TO_INTEGER"LV_MASK"TO_FEIRA"CIAO"LV_WHEN"PRENOM"LV_NAME"FMT_CGC"LV_CGC"LV_PESSOA"FMT_CNPJ"LV_CNPJ"FMT_CPF"LV_CPF"FMT_CEP"LV_CEP"FMT_LIKE"LV_CHAR"FMT_TEXT"FV_TEXT"FMT_CHAR"FV_CHAR"FV_LENGTH"GET_SYSDATE"SPLIT"FV_SEP"FV_FIELD"LV_STRING""#&'/56<=CDJMNOUXYZbhkqtz}  #&,-36>DGMNTWX^_gmpvw}  &)/28;ADJKQTZ]ekntw} "#+14:=CFGOUX^agjksy| "(+,4:;ABJPSY\bekntwx~   !#%')+-/13579;=?ACEGIKMOQSUWY[]_acegikmoqsuwy{}                                           QjJ K mLMNO&&o P Q"R$S%&&()*& q -T.0U13V46W78&:;<& s ?X@ BYCEZ Gu J[KM\Ow R]SU^WyZ_[]`_a`dc|fagibkmloqpsutwyx "|c~d !!" %#ef  l!!$ ( gh%!& +ij' .k()0*lmd+3,n-op.7/qrP0:1stP2=3uv4@5wx  6C7 yz! #%$8F9({):+|-}.021;J5~7<L :;==>>@BC?EGF!I  $8T     $78@H  R^ hiQ(8 (D`| $@\xK& (q!$T&Wh (")T 0T0 13CF69 <_=!#,/25>ADILQTY\eh{} '*,49<?A +=HPXdz &38 '9FNV^bjnrv"/6DHͫͫͫͫͫͫͫT/B8L@HR0p^i8Kq!|$&x (")( 00 1$ 3 F6, 9( < _=, 0 $,D! ` D  $i V O< $.((5 $.DD! jkhg! ` D  $i V O< $.((5 $.DD! jkhg! ` (D  $k W P< $.((5 $.DD! jkhg!  h D + !&  k!khg! @ D ($$!& k!khg! l D ,(00 h&'$` LL7 $ h! h!& ,k!khg!  r/pp (*+,-TOOL_MODULEREQ_ROLE/pp (*+,-TOOL_MODULEVGS_VER(-pp &()*+TOOL_MODULEDE_VER(r!/pp (*+,-TOOL_MODULEROS_VER((?+pp $&'()TOOL_PLSQLMODID(+pp $&'()TOOL_PLSQLNAMEpD+pp $&'()TOOL_PLSQLTYPE q+pp $&'()TOOL_PLSQLOWNERp-pp &()*+TOOL_PLSQLITEMIDp@1pp *,-./TOOL_PLSQLPLSLFID_EPs1pp *,-./TOOL_PLSQLPLSLFID_ST@K 08000@(0800&;rP`(0800&I,p 0800 0800 ? 0808 QV9Maaw>} >9:> @@   GET_MINUTES GET_HOURSP FMT_HOURS FMT_SUM_HOURS FMT_INPUTIS_TIME0IS_DATE @@ 0800l     T&'$G88 T &'$HX ; &'$;;;X&'$ ! &'$! ! &'&'&'&'&'l L8$ ! ! !H0ON_ERRORl ON_MESSAGE-: KEY_HELP#Last Compilation: 02/11/2001 17:29h KEY_MENUL KEY_PRINTvip_srwPRE_FORM POST_FORM!c M!i"p)*129:AB"I"J a@@0800"0*:JR(bfgjjqrryzzz(~3 PL/SQL DEPL/SQL LibraryMINGUS STD_LIB_FRMDZxf:xfcV$ 1(pp@&*0./MOUSEMINGUSu u1(pp@&*0./MOUSEMINGUSuUS5(p"p#@*.023PKG_FRM_APPMINGUSu US5(p"p#@*.023PKG_FRM_APPMINGUSuUS5(p"p#@*.023PKG_FRM_CRNMINGUSu US5(p"p#@*.023PKG_FRM_CRNMINGUSuUS5(p"p#@*.023PKG_FRM_EANMINGUSu US5(p"p#@*.023PKG_FRM_EANMINGUSuUS5(p"p#@*.023PKG_FRM_ENVMINGUSu5(p"p#@*.023PKG_FRM_OBJMINGUSu&5(p"p#@*.023PKG_FRM_OBJMINGUSu$5(p"p#@*.023PKG_FRM_STDMINGUSuu r5(p"p#@*.023PKG_FRM_STDMINGUSu5(p"p#@*.023PKG_FRM_TRGMINGUSuave5(p"p#@*.023PKG_FRM_TRGMINGUSu) 0' Program Units( 0& Program Unit000000000000000000000000  r4p p!2+DE_ATTACHED_LIBS DE Attached Libs.hh,-ROSATTRIBSclass attributes+hh)+ROSLFDESCros lf descrip!)hh'+ROSOBJMAPros name->id((+hh) $ROSSTRINGStk2 uiStrings*hh( $ROSSTRUCTSstruct typesp*hh( $ROSTK2RESVtk2 reserved ,pp* $TOOL_MODULETools Modules)pp' &TOOL_PLSQLTools PLSQLDp1p#p$ *,-./DE_ATTACHED_LIBSMODID(P1p#p$ *,-./DE_ATTACHED_LIBSOWNERpT3p#p$ ,./01DE_ATTACHED_LIBSLIBNAMEp3p#p$ ,./01DE_ATTACHED_LIBSITEMID(5p#p$ .0123DE_ATTACHED_LIBSLOCATION(p/pp (*+,-TOOL_MODULEPRODUCTe/pp (*+,-TOOL_MODULEMODTYPEeQ-pp &()*+TOOL_MODULEOWNERE/pp (*+,-TOOL_MODULEMODNAME}-pp &()*+TOOL_MODULEMODIDE(/pp (*+,-TOOL_MODULETCS_VER((3pp ,./01TOOL_MODULENEXT_ITEMID(/pp (*+,-TOOL_MODULECREATORM3pp ,./01TOOL_MODULECREATE_DATE1pp *,-./TOOL_MODULE CREATE_VER(RS/pp (*+,-TOOL_MODULE MODIFIERN/pp (*+,-TOOL_MODULE MOD_DATES/pp (*+,-TOOL_MODULE MOD_VER(S1pp *,-./TOOL_MODULE COPYRIGHT(@@0800 -- PARSE_WC ---------------------------------------------------------- function parse_wc(ft_frmwcies in gt_frmwcies%TYPE) return gv_where_clause%TYPE; ---------------------------------------------------------- -- PARSE_OB ---------------------------------------------------------- function parse_ob(ft_frmobies in gt_frmobies%TYPE) return gv_order_by%TYPE; end pkg_frm_srw; @@8000d8000e2]s armazenado no existe no banco de dados.M KmeR1Unidade de programa %[1]s somente para leitura.gemR Pa S6A origem da unidade de programa deve definir um %[1]s.: 08[%[1]d] %[1]s %[2]s Line %[2]d6 04[%[1]d] %[1]s %[2]s Line ?I 0G-[%[1]d] %[1]s %[2]s.%[3]s Line %[2]d of %[4]s% 0# R 0P6Source node type does not match destination node type., 0*Database LibraryG 0E+Do you really want to remove library %[1]s?+ 0)Library Content) 0' %[1]s (%[2]s), 0*PL/SQL Libraries, 0*Attached Library, 0*PL/SQL Libraries* 0(Local Variable& 0$ %s (%s) = # 0!%s (%s)1 0/debug.seti('%s',%s); 1 0/debug.setn('%s',%s); 3 01debug.setd('%s','%s'); 3 01debug.setc('%s','%s'); 5 03%[1]s (%[2]s) Row # %[3]s2 00%[1]s (TABLE of %[2]s)$ 0"%[1]s = ! 0Stack& 0$ Namespaces& 0$ Name SpaceJ 0H.Do you really want to remove name space %[1]s?( 0& Open Library1 0/Save change to %[1]s?! 0Owner) 0' Program Units( 0& Program Unit0000000000000000000000000l1 $  PKG_FRM_STD@ trunc(lv_number)) then return FALSE; end if; return TRUE; exception when others then return FALSE; end is_integer; ------------------------------------------------------------------ -- IS_UF ------------------------------------------------------------------ function is_uf(fv_uf in varchar2 := null) return boolean is lv_ufs varchar2(100) := 'AC|AL|AM|AP|BA|CE|DF|ES|GO|MA|MG|MS|MT|PA|PB|PE|PI|PR|RJ|RN|RS|RO|RR|SE|SC|SP|TO'; retval boolean := (instr(lv_ufs, upper(fv_uf)) > 0); begin return retval; exception when others then return FALSE; end is_uf; ------------------------------------------------------------------ -- IS_PASSWD ------------------------------------------------------------------ function is_passwd(fv_passwd in varchar2 := null) return boolean is lv_chars varchar2(512) := 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0@l123456789'; lv_gchar varchar(1) := substr(lv_chars, 1, 1); lv_bchars varchar2(512) := replace(translate(fv_passwd, lv_chars, lv_gchar), lv_gchar, ''); lv_bchar varchar(1) := substr(lv_bchars, 1, 1); begin if (lv_bchars is null) then return TRUE; else return FALSE; end if; exception when others then return FALSE; end is_passwd; ------------------------------------------------------- -- IS_CNPJ - Checa digitos verificadores do CNPJ ------------------------------------------------------- function is_cnpj(fv_cnpj in number) return boolean is string varchar2(14); sumd01 number; sumd02 number; rest01 number; rest02 number; retval boolean := FALSE; begin if (length(to_char(fv_cnpj)) > 14) then retval := FALSE; else string := ltrim(to_char(nvl(fv_cnpj,0),'00000000000000')); for i in 1 .. (length(string) - 2) loop if (i <= 4) then sumd01 := nvl(sumd01,0) + ((6 - i) * substr(string,i,1)); else sumd01 := nvl(sumd01,0) + ((14 - i) * substr(string,i,1)); end if; end loop; rest01 := (nvl(sumd01,0) - (trunc(sumd01 / 11) * 11)); if (rest01 in (0,1)) then rest01 := 0; else rest01 := (11 - rest01); end if; for i in 1 .. (length(string) - 2) loop if (i <= 5) then sumd02 := nvl(sumd02,0) + ((7 - i) * substr(string,i,1)); else sumd02 := nvl(sumd02,0) + ((15 - i) * substr(string,i,1)); end if; end loop; sumd02 := (nvl(sumd02,0) + (2 * nvl(rest01,0))); rest02 := (nvl(sumd02,0) - (trunc(sumd02 / 11) * 11)); if (rest02 in (0,1)) then rest02 := 0; else rest02 := (11 - rest02); end if; if (rest02 <> substr(string,14,1)) or (rest01 <> substr(string,13,1)) then retval := FALSE; else retval := TRUE; end if; end if; return retval; exception when others then return FALSE; end is_cnpj; ------------------------------------------------------- -- IS_CPF - Checa digitos verificadores do CPF ------------------------------------------------------- function is_cpf(fv_cpf in number) return boolean is string varchar2(11); sumd01 number; sumd02 number; rest01 number; rest02 number; retval boolean := FALSE; begin if (length(to_char(fv_cpf)) > 11) then retval := FALSE; else string := ltrim(to_char(nvl(fv_cpf,0),'00000000000')); for i in 1 .. (length(string) - 2) loop sumd01 := nvl(sumd01,0) + ((11 - i) * substr(string,i,1)); end loop; rest01 := (nvl(sumd01,0) - (trunc(sumd01 / 11) * 11)); if (rest01 in (0,1)) then rest01 := 0; else rest01 := (11 - rest01); end if; for i in 1 .. (length(string) - 2) loop sumd02 := nvl(sumd02,0) + ((12 - i) * substr(string,i,1)); end loop; sumd02 := (nvl(sumd02,0) + (2 * nvl(rest01,0))); rest02 := (nvl(sumd02,0) - (trunc(sumd02 / 11) * 11)); if (rest02 in (0,1)) then rest02 := 0; else rest02 := (11 - rest02); end if; if (rest02 <> substr(string,11,1)) or (rest01 <> substr(string,10,1)) then retval := FALSE; else retval := TRUE; end if; end if; return retval; exception when others then return FALSE; end is_cpf; ------------------------------------------------------------------ -- TO_INTEGER ------------------------------------------------------------------ function to_integer(fPlv_string in varchar2) return number is lv_mask varchar2(255); begin if (fv_string is not null) then for i in 1 .. length(fv_string) loop if (ascii(substr(fv_string, i, 1)) between 48 and 57) then lv_mask := lv_mask || substr(fv_string, i, 1); end if; end loop; end if; return to_number(lv_mask); exception when others then return null; end to_integer; ------------------------------------------------------------------ -- TO_FEIRA ------------------------------------------------------------------ function to_feira(fv_date in date) return varchar2 is retval varchar2(255); begin if (fv_date is not null) then retval := initcap(ltrim(rtrim(to_char(fv_date, 'day')))) || ', ' || to_char(fv_date, 'dd') || ' de ' || initcap(ltrim(rtrim(to_char(fv_date, 'month')))) || ' de ' || to_char(fv_date, 'yyyy'); end if; return retval; exception when others then return null; end to_feira; ------------------------------------------------------------------ -- CIAO ------------------------------------------------------------------ function ciao return varchar2 is lv_when number(2) := to_char(sysdate,'hh24'); retval varchar2(20); begin if (lv_when < 12) then retval := 'Bom Dia'; elsif (lv_when < 19) then retval := 'Boa Tarde'; else retval := 'Boa Noite'; end if; return retval; exception when others then return null; end ciao; ------------------------------------------------------------------ -- PRENOM ------------------------------------------------------------------ function prenom(lv_name in varchar2) return varchar2 is retval varchar2(100); begin retval := substr(lv_name, 1, (instr(lv_name, ' ', 1) - 1)); return retval; end prenom; ------------------------------------------------------- -- FMT_CGC - Formata CNPJ e CPF ------------------------------------------------------- function fmt_cgc(lv_cgc in number, lv_pessoa in varchar2 default 'F') return varchar2 is retval varchar2(20); begin if (lv_cgc is not null) then if (lv_pessoa = 'F') then retval := substr(ltrim(to_char(lv_cgc,'00000000000')),1,3) || '.' || substr(ltrim(to_char(lv_cgc,'00000000000')),4,3) || '.' || substr(ltrim(to_char(lv_cgc,'00000000000')),7,3) || '-' || substr(ltrim(to_char(lv_cgc,'00000000000')),10,2); elsif (lv_pessoa = 'J') then retval := substr(ltrim(to_char(lv_cgc,'00000000000000')),1,2) || '.' || substr(ltrim(to_char(lv_cgc,'00000000000000')),3,3) || '.' || substr(ltrim(to_char(lv_cgc,'00000000000000')),6,3) || '/' || substr(ltrim(to_char(lv_cgc,'00000000000000')),9,4) || '-' || substr(ltrim(to_char(lv_cgc,'00000000000000')),12,2); end if; end if; return retval; exception when others then raise; end fmt_cgc; ------------------------------------------------------- -- FMT_CNPJ - Formata CNPJ ------------------------------------------------------- function fmt_cnpj(lv_cnpj in number) return varchar2 is retval varchar2(80); begin retval := fmt_cgc(lv_cnpj, 'J'); return retval; end fmt_cnpj; ------------------------------------------------------- -- FMT_CPF - Formata CPF ------------------------------------------------------- function fmt_cpf(lv_cpf in number) return varchar2 is retval varchar2(80); begin retval := fmt_cgc(lv_cpf, 'F'); return retval; end fmt_cpf; ------------------------------------------------------- -- FMT_CEP - Formata CEP ------------------------------------------------------- function fmt_cep(lv_cep in number` l) return varchar2 is retval varchar2(20); begin if (lv_cep is not null) then retval := substr(ltrim(to_char(lv_cep,'00000000')),1,5) || '-' || substr(ltrim(to_char(lv_cep,'00000000')),6,3); end if; return retval; exception when others then raise; end fmt_cep; ------------------------------------------------------- -- FMT_LIKE - Format a string to a like comparison ------------------------------------------------------- function fmt_like(lv_char in varchar2) return varchar2 is retval varchar2(1024); begin if (lv_char is not null) then retval := rtrim(ltrim(replace(replace(lv_char, '%'), '_'))); while (instr(retval, ' ', 1) <> 0) loop retval := replace(retval, ' ', ' '); end loop; retval := translate(retval, ' ', '%'); retval := retval || '%'; end if; return retval; exception when others then raise; end fmt_like; ------------------------------------------------------- -- FMT_TEXT - Format a text for a nice retrieval... ------------------------------------------------------- function fmt_text(fv_text in varchar2) return varchar2 is retval varchar2(32767); lv_chars varchar2(512) := 'abcdefghijklmnopqrstuvwxyz' || 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' || '~!@#$%^&*()_+-=/|\?,[.]{;}<:>0123456789' || '' || '񪺿" ' || chr(10); lv_gchar char(1) := substr(lv_chars, 1, 1); lv_bchars varchar2(512) := replace(translate(fv_text, lv_chars, lv_gchar), lv_gchar, ''); lv_bchar char(1) := substr(lv_bchars, 1, 1); begin if (lv_bchars is null) then retval := fv_text; else retval := replace(translate(fv_text, lv_bchars, rpad(lv_bchar, length(lv_bchars), lv_bchar)), lv_bchar, ''); end if; return retval; exception when others then raise; end fmt_text; ------------------------------------------------------- -- FMT_CHAR - Format a varchar2 value for store ------------------------------------------------------- function fmt_char(fv_char in varchar2, fv_length in number := 32767) return varchar2 is retval varchar2(32767); begin if (fv_char is not null) then retval := fmt_text(fv_char); while (instr(retval, ' ', 1) <> 0) loop retval := replace(retval, ' ', ' '); end loop; retval := substr(upper(rtrim(ltrim(retval))), 1, fv_length); end if; return retval; exception when others then raise; end fmt_char; ------------------------------------------------------------------ -- GET_SYSDATE - Gets the DataBase TimeStamp ------------------------------------------------------------------ function get_sysdate return date is retval date; begin retval := pkg_nkp_std.get_sysdate; return retval; exception when others then raise; end get_sysdate; ------------------------------------------------------------------ -- SPLIT ------------------------------------------------------------------ function split(fv_string in varchar2, fv_sep in varchar2, fv_field in number) return varchar2 is lv_string varchar2(1024) := fv_string; i number := 1; begin if (lv_string is null) then return null; end if; if (gv_split = lv_string) then return gt_split(fv_field); end if; gt_split.delete; gv_split := lv_string; if (instr(lv_string, fv_sep) = 0) then lv_string := lv_string || fv_sep; end if; while (instr(lv_string, fv_sep) > 0) loop gt_split(i) := substr(lv_string, 1, greatest((instr(lv_string, fv_sep) - 1),1)); lv_string := substr(lv_string, instr(lvp l1 $ N PKG_FRM_STDpackage pkg_frm_std is ------------------------------------------------------------------ -- Variables, Records, Constants, PL/SQL Tables... ------------------------------------------------------------------ ------------------------------------------------------------------ -- ON_RANGE ------------------------------------------------------------------ function on_range(fv_date in date, fv_low in date, fv_high in date) return integer; pragma restrict_references(on_range, WNDS, WNPS); function on_range(fv_number in number, fv_low in number, fv_high in number) return integer; pragma restrict_references(on_range, WNDS, WNPS); function on_range(fv_string in varchar2, fv_low in varchar2, fv_high in varchar2) return integer; pragma restrict_references(on_range, WNDS, WNPS); ------------------------------------------------------------------ -- IS_DATE ------------------------------------------------------------------ function is_date(fv_string in varchar2 := null, fv_format in varchar2 := null) return boolean; pragma restrict_references(is_date, WNDS, WNPS); ------------------------------------------------------------------ -- IS_NUMBER ------------------------------------------------------------------ function is_number(fv_string in varchar2 := null) return boolean; pragma restrict_references(is_number, WNDS, WNPS); ------------------------------------------------------------------ -- IS_INTEGER ------------------------------------------------------------------ function is_integer(fv_string in varchar2 := null) return boolean; pragma restrict_references(is_integer, WNDS, WNPS); ------------------------------------------------------------------ -- IS_UF ------------------------------------------------------------------ function is_uf(fv_uf in varchar2 := null) return boolean; pragma restrict_references(is_uf, WNDS, WNPS); ------------------------------------------------------------------ -- IS_PASSWD ------------------------------------------------------------------ function is_passwd(fv_passwd in varchar2 := null) return boolean; pragma restrict_references(is_passwd, WNDS, WNPS); ------------------------------------------------------------------ -- IS_CNPJ - Checa digitos verificadores do CNPJ ------------------------------------------------------------------ function is_cnpj(fv_cnpj in number) return boolean; pragma restrict_references(is_cnpj, WNDS, WNPS); ------------------------------------------------------------------ -- IS_CPF - Checa digitos verificadores do CPF ------------------------------------------------------------------ function is_cpf(fv_cpf in number) return boolean; pragma restrict_references(is_cpf, WNDS, WNPS); ------------------------------------------------------------------ -- TO_INTEGER ------------------------------------------------------------------ function to_integer(fv_string in varchar2) return number; pragma restrict_references(to_integer, WNDS, WNPS); ------------------------------------------------------------------ -- TO_FEIRA ------------------------------------------------------------------ function to_feira(fv_date in date) return varchar2; pragma restrict_references(to_feira, WNDS, WNPS); ------------------------------------------------------------------ -- CIAO ------------------------------------------------------------------ function ciao return varchar2; pragma restrict_references(ciao, WNDS, WNPS); ------------------------------------------------------------------ -- PRENOM ------------------------------------------------------------------ function prenom(lv_name in varchar2) return varchar2; pragma restrict_r"leferences(prenom, WNDS, WNPS); ------------------------------------------------------------------ -- FMT_CGC - Formata CNPJ e CPF ------------------------------------------------------------------ function fmt_cgc(lv_cgc in number, lv_pessoa in varchar2 default 'F') return varchar2; pragma restrict_references(fmt_cgc, WNDS, WNPS); ------------------------------------------------------------------ -- FMT_CNPJ - Formata CNPJ ------------------------------------------------------------------ function fmt_cnpj(lv_cnpj in number) return varchar2; pragma restrict_references(fmt_cnpj, WNDS, WNPS); ------------------------------------------------------------------ -- FMT_CPF - Formata CPF ------------------------------------------------------------------ function fmt_cpf(lv_cpf in number) return varchar2; pragma restrict_references(fmt_cpf, WNDS, WNPS); ------------------------------------------------------------------ -- FMT_CEP - Formata CEP ------------------------------------------------------------------ function fmt_cep(lv_cep in number) return varchar2; pragma restrict_references(fmt_cep, WNDS, WNPS); ------------------------------------------------------------------ -- FMT_LIKE - Format a string to a like comparison ------------------------------------------------------------------ function fmt_like(lv_char in varchar2) return varchar2; pragma restrict_references(fmt_like, WNDS, WNPS); ------------------------------------------------------------------ -- FMT_TEXT - Format a text for a nice retrieval... ------------------------------------------------------------------ function fmt_text(fv_text in varchar2) return varchar2; pragma restrict_references(fmt_text, WNDS, WNPS); ------------------------------------------------------------------ -- FMT_CHAR - Format a varchar2 value for store ------------------------------------------------------------------ function fmt_char(fv_char in varchar2, fv_length in number := 32767) return varchar2; pragma restrict_references(fmt_char, WNDS, WNPS); ------------------------------------------------------------------ -- GET_SYSDATE - Gets the DataBase TimeStamp ------------------------------------------------------------------ function get_sysdate return date; pragma restrict_references(get_sysdate, WNDS, WNPS); ------------------------------------------------------------------ -- SPLIT ------------------------------------------------------------------ function split(fv_string in varchar2, fv_sep in varchar2, fv_field in number) return varchar2; end pkg_frm_std; 4!:ͫͫͫͫͫͫͫ SYSSTANDARD $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ8-jv"PKG_FRM_STD"ON_RANGE"FV_DATE"FV_LOW"FV_HIGH"FV_NUMBER"FV_STRING"IS_DATE"FV_FORMAT"IS_NUMBER"IS_INTEGER"IS_UF"FV_UF"IS_PASSWD"FV_PASSWD"IS_CNPJ"FV_CNPJ"IS_CPF"FV_CPF"TO_INTEGER"TO_FEIRA"CIAO"PRENOM"LV_NAME"FMT_CGC"LV_CGC"LV_PESSOA"FMT_CNPJ"LV_CNPJ"FMT_CPF"LV_CPF"FMT_CEP"LV_CEP"FMT_LIKE"LV_CHAR"FMT_TEXT"FV_TEXT"FMT_CHAR"FV_CHAR"FV_LENGTH"GET_SYSDATE"SPLIT"FV_SEP"FV_FIELD"" ~#$*+1456>DGMPVY_bcdlru{~  !$*+39<BCKQTZ]eklru}"(+39<BEMSV\_ehpvw                   $l    Q   && !"$%&&)* ,-/ 235 89;  >?ADEG "JL %OQ (TUW +Z\] .`a0degh3kmnpq7tvw:z|} =!"@#$C%&F'()J*L+,  $8T     $  #(+.147:=@CFIKNPSVY[_cfjlosuy{'06<BHMRX^birx~$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ8];ax   edededededededededed ddeddedddddeddeddedAd ededdAAe"PACKAGE"PKG_FRM_STD"FUNCTION"ON_RANGE"FV_DATE"DATE"FV_LOW"FV_HIGH"RETURN"INTEGER"PRAGMA"RESTRICT_REFERENCES"WNDS"WNPS"FV_NUMBER"NUMBER"FV_STRING"VARCHAR2"IS_DATE"FV_FORMAT"BOOLEAN"IS_NUMBER"IS_INTEGER"IS_UF"FV_UF"IS_PASSWD"FV_PASSWD"IS_CNPJ"FV_CNPJ"IS_CPF"FV_CPF"TO_INTEGER"TO_FEIRA"CIAO"PRENOM"LV_NAME"FMT_CGC"LV_CGC"LV_PESSOA"F"FMT_CNPJ"LV_CNPJ"FMT_CPF"LV_CPF"FMT_CEP"LV_CEP"FMT_LIKE"LV_CHAR"FMT_TEXT"FV_TEXT"FMT_CHAR"FV_CHAR"FV_LENGTH"32767"GET_SYSDATE"SPLIT"FV_SEP"FV_FIELD"" ,0167>BGHOSXY`dhkoptx|  "&*-126:>BOSTYZaejkrvz} !"'(/37:>?CGKO\`afgnrvy}~ #$+/36:;?CGKX\]bcjnruyz~  '+/36:;?CGKX\]bcjnruyz~ '+/267;?CGTXY^_fjnquvz~&*/07;@AHLPRTWZXYj,===]j,===]j,===]j,=M=M]j,=M]j,=M]j,=lM]j,=M]j,=]j,=]j,=]j,=]j,]j,=]j,==n]j,=]j,=]j,=]j,=]j,=]j,==Q]j,]j,===Qc !!!!!!!!!!""""""&&&&&&&&&&''''''++++++++++,,,,,,0000000000111111555555555666666:::::::::;;;;;;?????????@@@@@@DDDDDDDDDEEEEEEIIIIJJJJJJNNNNNNNNNOOOOOOSSSSSSSSSSSSSTUUUUUUYYYYYYYYYZZZZZZ^^^^^^^^^______cccccccccddddddhhhhhhhhhiiiiiimmmmmmmmmnnnnnnrrrrrrrrrrrrrsttttttxxxxyyyyyy}}}}}}}}~~~~  !!!",2 ###",2 ###",2 ".".;"+1 $0="-3 %1>".4 (5")/ $0="-3  /"+1 -"*0 %6".4 !.",2 "(. 0"*0 '''4E"+1 !0",2 ."+1 ."+1 !2",2 !2",2 !+++8B",2  "/5       1 5 79  ;   !.?#%C$ ')E ( +-G , 01 I 6776 58E5M:<Q;>@S? BDUC  GH W6 MNNMLOZL[QST^TR VXY`YW \] bM bccbadjaffhihiglm jb rssrqtzqnvxypyw |} rr vx!"# z  ~$%&    '()    *+,     -./ !  012 ! " 3 " #!$4 56@ r<0@00:P 0``0808S::;;;<<<<<5=J=R=S=e=y=====8>Z>s>>-??=A-B`BoBBBB_Y*+_a23_i<=_s_:;_EF_u_]_' '(_M!N!_!##_!$&&_0'''_5)//_ 122_30616_u899_9<<_<I=J=_=BB@@(0800&NpYXX0WEEKLESS "  lNEXTWEEK "  WORKDAYS   GET_MINUTES GET_HOURSP FMT_HOURS FMT_SUM_HOURS FMT_INPUTIS_TIME0IS_DATE @@ 0800l     T&'$G88 T &'$HX ; &'$;;;X&'$ ! &'$! ! &'&'&'&'&'l L8$ ! ! !H0ON_ERRORl ON_MESSAGE-: KEY_HELP#Last Compilation: 02/11/2001 17:29h KEY_MENUL KEY_PRINTvip_srwPRE_FORM POST_FORM!c M!i"p)*129:AB"I"J a@@0800"0*:JR(bfgjjqrryzzz(~3 PL/SQL DEPL/SQL LibraryMINGUS STD_LIB_FRMDZxf:xfcV$ 1(pp@&*0./MOUSEMINGUSu u1(pp@&*0./MOUSEMINGUSuUS5(p"p#@*.023PKG_FRM_APPMINGUSu US5(p"p#@*.023PKG_FRM_APPMINGUSuUS5(p"p#@*.023PKG_FRM_CRNMINGUSu US5(p"p#@*.023PKG_FRM_CRNMINGUSuUS5(p"p#@*.023PKG_FRM_EANMINGUSu US5(p"p#@*.023PKG_FRM_EANMINGUSuUS5(p"p#@*.023PKG_FRM_ENVMINGUSu5(p"p#@*.023PKG_FRM_OBJMINGUSu&5(p"p#@*.023PKG_FRM_OBJMINGUSu$5(p"p#@*.023PKG_FRM_STDMINGUSuu r5(p"p#@*.023PKG_FRM_STDMINGUSu5(p"p#@*.023PKG_FRM_TRGMINGUSuave5(p"p#@*.023PKG_FRM_TRGMINGUSu) 0' Program Units( 0& Program Unit000000000000000000000000l # %$&7"8'9#:((; %   )  &  *<%=> )  +("!,? '@A$% + *+-+**),1).0.B/)CD34 -* 9:/:9,8;@8=?0E>+FGBC /9 HI1IH.GJOGLN2HM-IJQR 1H WX3XW1VYcV[]4K\/L_ab5Mb`0N6OPef 3W kl7lk2jmnjQpq 7k vw8wv6uxuz|R{3S~9T4U:V5WX(YZ[\-/5FL[akq{ #)28AGPVdjou  "&*$(,2349=A;?CIJKPURW^_`egnopuw~   &'(-/567<>DEFKMSTUZ^\`ghirsty}{8dvH9 ?(k  W C,*  br/M $ > { wgR;\MW` 6ͫͫͫͫͫͫͫ@ \ D|PT$X0ON_RANGE   lON_RANGEON_RANGEIS_DATE IS_NUMBERT IS_INTEGERIS_UF IS_PASSWDIS_CNPJ,IS_CPF` TO_INTEGERTO_FEIRA CIAOPRENOM,FMT_CGCdFMT_CNPJFMT_CPFFMT_CEPFMT_LIKE4FMT_TEXThFMT_CHAR GET_SYSDATE SPLIT@@ end if; while (instr(lv_string, fv_sep) > 0) loop gt_split(i) := substr(lv_string, 1, greatest((instr(lv_string, fv_sep) - 1),1)); lv_string := substr(lv_string, instr(lvl1 $$  PKG_FRM_EAN0package pkg_frm_ean is ------------------------------------------------------------------ -- Variables, Records, Constants, PL/SQL Tables... ------------------------------------------------------------------ ------------------------------------------------------------------ -- GET_EANCD ------------------------------------------------------------------ function get_eancd(fv_ean in number) return number; pragma restrict_references(get_eancd, WNDS, WNPS); ------------------------------------------------------------------ -- CHECK_EANCD ------------------------------------------------------------------ function check_eancd(fv_ean in number) return boolean; pragma restrict_references(check_eancd, WNDS, WNPS); ------------------------------------------------------------------ -- GET_EANRANGE ------------------------------------------------------------------ function get_eanrange(fv_ean in number) return number; pragma restrict_references(get_eanrange, WNDS, WNPS); end pkg_frm_ean; 5:ͫͫͫͫͫͫͫ SYSSTANDARD $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ8f8"PKG_FRM_EAN"GET_EANCD"FV_EAN"CHECK_EANCD"GET_EANRANGE""R%(069?@HNQWZ\^`bd           $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ8 6666","PACKAGE"PKG_FRM_EAN"FUNCTION"GET_EANCD"FV_EAN"NUMBER"RETURN"PRAGMA"RESTRICT_REFERENCES"WNDS"WNPS"CHECK_EANCD"BOOLEAN"GET_EANRANGE"" ,0167>BFIMNRVZ^kopuv}XYj,=]j,=]j,=]   !"-3 #"/5 $"0654           !   &''&%(-%*,+ /0 & %.  "#$)+123@d&+ ͫͫͫͫͫͫͫP X0 GET_EANCDh CHECK_EANCD GET_EANRANGE @@alert := find_alert('advise'); set_alert_property(lv_alert, alert_message_text, fv_message); lv_button := show_alert(lv_alert); if (lv_button = 88) then retval := 'Y'; elsif (lv_button = 89) then retval := 'N'; else retval := 'C'; end if; return retval; end; end advise; ------------------------------------------------------------------ -- MESSAGE ------------------------------------------------------------------ procedure message(fv_message in varchar2) l1 $$%H PKG_FRM_CRN npackage pkg_frm_crn is ------------------------------------------------------------------ type rec_date is record(dataini date, datafim date); ------------------------------------------------------------------ -- WEEKLESS ------------------------------------------------------------------ function weekless(fv_date in date) return rec_date; pragma restrict_references(weekless, WNDS, WNPS); ------------------------------------------------------------------ -- NEXTWEEK ------------------------------------------------------------------ function nextweek(fv_date in date) return rec_date; pragma restrict_references(nextweek, WNDS, WNPS); ------------------------------------------------------------------ -- WORKDAYS ------------------------------------------------------------------ function workdays(fv_dataini in date, fv_datafim in date) return number; pragma restrict_references(workdays, WNDS, WNPS); ------------------------------------------------------------------ -- GET_MINUTES ------------------------------------------------------------------ function get_minutes(fv_minutes in number) return number; pragma restrict_references(get_minutes, WNDS, WNPS); ------------------------------------------------------------------ -- GET_HOURS ------------------------------------------------------------------ function get_hours(fv_hours in number) return number; pragma restrict_references(get_hours, WNDS, WNPS); ------------------------------------------------------------------ -- FMT_HOURS ------------------------------------------------------------------ function fmt_hours(fv_minutes in number) return varchar2; pragma restrict_references(fmt_hours, WNDS, WNPS); ------------------------------------------------------------------ -- FMT_SUM_HOURS ------------------------------------------------------------------ function fmt_sum_hours(fv_minutes in number) return varchar2; pragma restrict_references(fmt_sum_hours, WNDS, WNPS); ------------------------------------------------------------------ -- FMT_INPUT ------------------------------------------------------------------ function fmt_input(fv_minutes in number) return varchar2; pragma restrict_references(fmt_input, WNDS, WNPS); ------------------------------------------------------------------ -- IS_TIME ------------------------------------------------------------------ function is_time(fv_time in number) return boolean; pragma restrict_references(is_time, WNDS, WNPS); ------------------------------------------------------------------ -- IS_DATE ------------------------------------------------------------------ function is_date(fv_date in varchar2, fv_format in varchar2) return boolean; pragma restrict_references(is_date, WNDS, WNPS); end pkg_frm_crn; :ͫͫͫͫͫͫͫ SYSSTANDARD $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ8ddl5"PKG_FRM_CRN"WEEKLESS"FV_DATE"DATAINI"DATAFIM"NEXTWEEK"WORKDAYS"FV_DATAINI"FV_DATAFIM"GET_MINUTES"FV_MINUTES"GET_HOURS"FV_HOURS"FMT_HOURS"FMT_SUM_HOURS"FMT_INPUT"IS_TIME"FV_TIME"IS_DATE"FV_FORMAT""#$*+12:@AGHNOUV^deklru} &)/02468:<>@BDFHJLNPRTVXZ\^`bdfhj                 )JK L M NO PQR ST  U l V  #W%X (Y*Z+ .[0\1 4]6^7 ":_<` %?a@BbCEc     "$')-/359;>AD  !&,28=$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ8'#v      dddeded4"PACKAGE"PKG_FRM_CRN"TYPE"REC_DATE"RECORD"DATAINI"DATE"DATAFIM"FUNCTION"WEEKLESS"FV_DATE"RETURN"PRAGMA"RESTRICT_REFERENCES"WNDS"WNPS"NEXTWEEK"WORKDAYS"FV_DATAINI"FV_DATAFIM"NUMBER"GET_MINUTES"FV_MINUTES"GET_HOURS"FV_HOURS"FMT_HOURS"VARCHAR2"FMT_SUM_HOURS"FMT_INPUT"IS_TIME"FV_TIME"BOOLEAN"IS_DATE"FV_FORMAT"" t #*./6=AEFMTX\imnst{ "&*7;<ABIMQTXY]aeivz{ "&378=>EIMPTUY]aervw|}XYw`j,=]j,=]j,==]j,=]j,=]j,=]j,=]j,=]j,=]j,==] """""""""######'''''''''((((((,,,,,,,,,------1111111112222226666666666666777777  $$***22 !.",2 !.",2 $***8",2 '6"/5 #2"-3 %4"-3 )8"17 %4"-3  /"+1  ***7H"+1        " $ $%%$#&+#((** ) -.,$344325>20793 8 ;=5 <@A73FGGFEHME;JL=KOP?FUVVU TW\TCY[EZ ^_GUdeed cfkcKhjMi mnOdsttsr uzrSwyUx |}Ws []_  ce !g!  kn "#l <D &'$,&' $+B (D  !& k!khg! L ( $&' $*   $ 4&' $40&'00 $5,,(( 4 D&'( $*@@8 D H(#!!& Hk!khg! |  lDD(DDD`D|  &'$&'$)t6 # W  . &'$G |-&'$6 t  ,&'$)$.$0.LB0L,hh ,qa/. &'($G ..B&' $*8(8<C<App( . &'($G t.t.B&' $* ( $C$AtXX( Jhf.x &'(x$G \.D(&'$` .CB\@@`  $.(`( ..D`DI 6 $.```B $.B`||` &'$)..B,$$ v/.d &'Dd$G H..B&' $*(CAH,, D .L h&'DL$G (0.0.B&' $*(ClA0l8D hJhf.4 P&'D4$G @.p.&'`$G HCpTATPD P. &'D$G X.pDDpT&'T$` `8.C8Bh|  .| ..|I 6 .p|B . B |  x| 8 &'t $*< (< @ | r0800  08000808~hhp"$% &r!#,2?ENT]clr{   !"')/016:8<BCDIKQRSXZ`abgiopqvx~d < 8 s $F d x iKZ3 )Uͫͫͫͫͫͫͫ X \@x YXX0WEEKLESS "  lNEXTWEEK "  WORKDAYS   GET_MINUTES GET_HOURSP FMT_HOURS FMT_SUM_HOURS FMT_INPUTIS_TIME0IS_DATE @@ 0800l     T&'$G88 T &'$HX ; &'$;;;X&'$ ! &'$! ! &'&'&'&'&'l L8$ ! ! !H0ON_ERRORl ON_MESSAGE-: KEY_HELP#Last Compilation: 02/11/2001 17:29h KEY_MENUL KEY_PRINTvip_srwPRE_FORM POST_FORM!c M!i"p)*129:AB"I"J a@@0800"0*:JR(bfgjjqrryzzz(~3 PL/SQL DEPL/SQL LibraryMINGUS STD_LIB_FRMDZxf:xfcV$ 1(pp@&*0./MOUSEMINGUSu u1(pp@&*0./MOUSEMINGUSuUS5(p"p#@*.023PKG_FRM_APPMINGUSu US5(p"p#@*.023PKG_FRM_APPMINGUSuUS5(p"p#@*.023PKG_FRM_CRNMINGUSu US5(p"p#@*.023PKG_FRM_CRNMINGUSuUS5(p"p#@*.023PKG_FRM_EANMINGUSu US5(p"p#@*.023PKG_FRM_EANMINGUSuUS5(p"p#@*.023PKG_FRM_ENVMINGUSu5(p"p#@*.023PKG_FRM_OBJMINGUSu&5(p"p#@*.023PKG_FRM_OBJMINGUSu$5(p"p#@*.023PKG_FRM_STDMINGUSuu r5(p"p#@*.023PKG_FRM_STDMINGUSu5(p"p#@*.023PKG_FRM_TRGMINGUSuave5(p"p#@*.023PKG_FRM_TRGMINGUSu) 0' Program Units( 0& Program Unit000000000000000000000000 l1 $  PKG_FRM_APPpackage pkg_frm_app is ------------------------------------------------------------------ -- Variables, Records, Constants, Exceptions, PL/SQL Tables... ------------------------------------------------------------------ ------------------------------------------------------------------ -- CHECK_VERSION ------------------------------------------------------------------ procedure check_version; -- procedure check_version(fv_module in varchar2, -- fv_version in varchar2); ------------------------------------------------------------------ -- SET_ENVIRONMENT ------------------------------------------------------------------ procedure set_environment; -- procedure set_environment(fv_module in varchar2); ------------------------------------------------------------------ -- ERRO ------------------------------------------------------------------ function erro return varchar2; end pkg_frm_app; :ͫͫͫͫͫͫͫ SYSSTANDARD $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ8 1 1"PKG_FRM_APP"CHECK_VERSION"SET_ENVIRONMENT"ERRO""&,/ $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ8 e dR"PACKAGE"PKG_FRM_APP"CHECK_VERSION"SET_ENVIRONMENT"FUNCTION"ERRO"RETURN"VARCHAR2"" ,015BFGKX\]acXYjUjUj,           .d ͫͫͫͫͫͫͫP T0 CHECK_VERSIONdSET_ENVIRONMENTERRO@@ ͫͫͫͫͫͫͫP \0 CHECK_VERSIONlSET_ENVIRONMENTERRO@@xyG|}TTHTTTDT$*-15)04  #'psw{Hovz IMQUY]aeimG$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ88ffff0eedAAeedAAeedAAeedAAeedAAeedAAeedAAeedAAeedAA edededd"PACKAGE"PKG_FRM_APP"GV_MODULE"VARCHAR2"80"GV_FILE"240"GV_VERSION"GV_USERNAME"GV_PASSWORD"GV_TNS"GV_OS"128"GV_OSID"GV_OSKEY"GV_CONNECTED"BOOLEAN"CHECK_VERSION"FV_MODULE"FV_VERSION"SET_ENVIRONMENT"FUNCTION"ERRO"RETURN""  '.258<=DKORUYZahlorvw~ $%,37;HLMRSZ^cdkosXYcQcQcQcQcQcQcQ0l1 $ CMOUSECPACKAGE mouse IS -- this package helps dragging an object. It needs to be called from MOUSE-event -- triggers. -- mouse.click() initializes the drag operation and defines, what item should be -- dragged. If the item you want to drag is not the one receiving the mouse event, -- just pass it's name in the moous.click() call. PROCEDURE click(item_name VARCHAR2 := NULL); -- this procedure needs to be called in a WHEN-MOUSE-MOVE trigger to move the item -- accordingly to the mouse movements PROCEDURE move; -- these two variables contain the distance the item_name has moved between two subsequent -- mouse.move calls. This allows to drag more objects simultaniously by simply adding -- d_x and d_y to their X_POS and Y_POS properties within the WHEN-MOUSE-MOVE trigger. d_x NUMBER; d_y NUMBER; END;:ͫͫͫͫͫͫͫ SYSSTANDARD $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ8A %"MOUSE"CLICK"ITEM_NAME"MOVE"D_X"D_Y""'-069;=?      + $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ8   (ed="PACKAGE"MOUSE"CLICK"ITEM_NAME"VARCHAR2"MOVE"D_X"NUMBER"D_Y""4 ,0167>BFSWX\]dkost{XYjU=MjU   '              8d ͫͫͫͫͫͫͫD,,,\ $$!T<CLICKlMOVE@@--------------- -- TO_INTEGER ------------------------------------------------------------------ function to_integer(fv_string in varchar2) return number is lv_mask varchar2(255); begin if (fv_string is not null) then for i in 1 .. length(fv_string) loop if (ascii(substr(fv_string, i, 1)) between 48 and 57) then lv_mask := lv_mask || substr(fv_string, i, 1); end if; end loop; end if; return to_number(lv_mask); exception when others then return null; end to_integer; ------------------------------------------------------------------ -- TO_FEIRA ------------------------------------------------------------------ function to_feira(fv_date in date) return varchar2 is retval varchar2(255); begin if (fv_date is not null) then retval := initcap(ltrim(rtrim(to_char(fv_date, 'day')))) || ', ' || to_char(fv_date, 'dd') || ' de ' || initcap(ltrim(rtrim(to_char(fv_date, 'month')))) || ' de ' || to_char(fv_date, 'yyyy'); end if; return retval; exception when others then return null; end to_feira; ------------------------------------------------------------------ -- CIAO ------------------------------------------------------------------ function ciao return varchar2 is lv_when number(2) @l1 $$ PKG_FRM_OBJpackage pkg_frm_obj is ------------------------------------------------------------------ -- Variables, Records, Constants, Exceptions, PL/SQL Tables... ------------------------------------------------------------------ type tab_va is table of varchar2(80) index by binary_integer; gt_va tab_va; gv_va_def varchar2(80); gv_va varchar2(80); ------------------------------------------------------------------ -- ADVISE ------------------------------------------------------------------ function advise(fv_message in varchar2) return varchar2; ------------------------------------------------------------------ -- MESSAGE ------------------------------------------------------------------ procedure message(fv_message in varchar2); ------------------------------------------------------------------ -- ENABLE ------------------------------------------------------------------ procedure enable(fv_item in varchar2); ------------------------------------------------------------------ -- DISABLE ------------------------------------------------------------------ procedure disable(fv_item in varchar2); ------------------------------------------------------------------ -- TOGGLE_VA ------------------------------------------------------------------ procedure toggle_va(fv_form in varchar2 := pkg_frm_env.gv_module, fv_item in varchar2 := 'C'); end pkg_frm_obj; `ͫͫͫͫͫͫͫ SYSSTANDARD /NKW_LIB_FRM/PKG_FRM_ENV $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ8 66g"PKG_FRM_OBJ"GT_VA"GV_VA_DEF"GV_VA"ADVISE"FV_MESSAGE"MESSAGE"ENABLE"FV_ITEM"DISABLE"TOGGLE_VA"FV_FORM""l#&'-019?BHKSY\djmu{~ 5+P , P-P./0 1   "2#   &3' )4*TpTI!%( $ $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ8%ZZZZ,@eedAAeedAAeedAAeddedededede edAAe"PACKAGE"PKG_FRM_OBJ"TYPE"TAB_VA"VARCHAR2"80"BINARY_INTEGER"GT_VA"GV_VA_DEF"GV_VA"FUNCTION"ADVISE"FV_MESSAGE"RETURN"MESSAGE"ENABLE"FV_ITEM"DISABLE"TOGGLE_VA"FV_FORM"PKG_FRM_ENV"GV_MODULE"C""6 #'()-48;>BCJQUYZahlorvw~ #$+/3@DEJKRVY]afgnrvxz}XYw @cQcQcQj,=jU=jU=jU=jU=k=nQc   2% "$ !#;/;#/VU   P     P  !" "#P%& &%Pl r0800 C00800@%0808#  $',$)+ *.//.-0-24 36776585:<;>??>=@=!BD#CFGGFEHE%JLM(MKNOQST*TR  Y!W"X#$X $-5=E (*139;ACIPKRzd3*F>6K%RC;.ͫͫͫͫͫͫͫhJLJP (0HH !LLTT\o=P`ADVISEMESSAGEENABLEDISABLE$ TOGGLE_VA t@@@0IS_DATE @@ 0800l     T&'$G88 T &'$HX ; &'$;;;X&'$ ! &'$! ! &'&'&'&'&'l L8$ ! ! !H0ON_ERRORl ON_MESSAGE-: KEY_HELP#Last Compilation: 02/11/2001 17:29h KEY_MENUL KEY_PRINTvip_srwPRE_FORM POST_FORM!c M!i"p)*129:AB"I"J a@@0800"0*:JR(bfgjjqrryzzz(~3 PL/SQL DEPL/SQL LibraryMINGUS STD_LIB_FRMDZxf:xfcV$ 1(pp@&*0./MOUSEMINGUSu u1(pp@&*0./MOUSEMINGUSuUS5(p"p#@*.023PKG_FRM_APPMINGUSu US5(p"p#@*.023PKG_FRM_APPMINGUSuUS5(p"p#@*.023PKG_FRM_CRNMINGUSu US5(p"p#@*.023PKG_FRM_CRNMINGUSuUS5(p"p#@*.023PKG_FRM_EANMINGUSu US5(p"p#@*.023PKG_FRM_EANMINGUSuUS5(p"p#@*.023PKG_FRM_ENVMINGUSu5(p"p#@*.023PKG_FRM_OBJMINGUSu&5(p"p#@*.023PKG_FRM_OBJMINGUSu$5(p"p#@*.023PKG_FRM_STDMINGUSuu r5(p"p#@*.023PKG_FRM_STDMINGUSu5(p"p#@*.023PKG_FRM_TRGMINGUSuave5(p"p#@*.023PKG_FRM_TRGMINGUSu) 0' Program Units( 0& Program Unit000000000000000000000000`l@ ! n&' $*\ (\ ` `` 6 # 8  8 !& k!khg!  DD$D@D\Dx  &'$&'$)6 #   . &'$G -&'$6   (&'$) . ,.HB,H,dd (B2. &'$$G ..B&' $*4(48C8All$ Jhf. &'$$G p.D$&'$` .CBpTT\  8.<\< ..X\XI 6 8.tt \B 8.B\\ &'$)..B,88 B2.x &'@x$G \.$.B&' $*( C A\@@,@ Jhf.` |&'@`$G 4D..&'\$G <CAD((D@ |.( D&'@($G L .D@&'$` Td.CdHB H\x D .x ..xI 6 .dxU .HBHx,,lx d&' $*h(hlxl! n&'t $*(\6 # d d!& k!khg! | D  $&'$=  $( @&'$)880 @(0n^ D&'( $*P&'P$.HH H D \&'( $*X;XTT \ DJ((hf $(``!& Dk!khg! dD  &'$v  1H&'H$7 D&'D $6 @&'@$0<;<(810L;8Lpl4;4801D\&'\P$7 X&'XX$6 T&'T$0P;0P,;,`(1l`;(`$$ H !& Dk!khg!  4&'$(1($($88 4DT l.$pp5"T].5"TTT!& lDk!khg! D &'  $+..B,&' $* !hg! D , 8&'$F00X K 8` -h\&'\x$6 X&'X $*T;TP-h&'h$6 d&'d $*`;P`L;LH-t&'t$6 p&'p $*l;HlD;D@-&'$6 |&'|t $*x;@x<< \tm Y-&'$6 &' $*; -&'($6 &' $*;;0-8&'L$6 &' $*;;T-\&'p$6 &'x $*;;-&'$6 &'$ $*;  8 !$ ,jk 'hg! lD h&'$ dd h!hg! lD h&' $ dd h!hg! \D , 8&'$F00q d 8-X L&'Lh $6 H&'H $*D;Dp @-x X&'X $6 T&'T $*P;@P<< L 8! ,jkhg! `D  (&'$=    ( <&'  $58&'8  $54&'4 $6 0&'0 $7 ,,  < H&'  $+@@  H P&'  l $5LL  P H X&'  $4TT  X;$ \\  \ (! jkhg! D;`  ,;, (;( $;$ &'t$/0; 0( , @&' $*<<4 @ P&'4 $4L&'L4 $5HH(D P `&'D $*\\T ` dD)  |&'D$)t&'TtT $3p&'Dp $4l&'lT $5hh  |! djkhg! dD  (&'$=  h [ ( 0&'$,,  0 <&'`  $+44  < D&'h p $5@@  D < X&'x $6 T&'T $7 P&'P$,L,\&'L\ $*HH  X ( ! jkhg! (  D  $"  $! jkhg!  .88h  TD!v ], XX ``!&'%  l&' $+ddX E l;pp  p l |&' $+tt  |, &' $+..Bp .  4  x D,$ &'$ $*   T &' $+L .L X .t AX t 0 ,0 &' D $*, ,   T . A    |,    ``! Tjkhg!d@  op\ON_RANGE   &ON_RANGEON_RANGE@IS_DATE IS_NUMBER IS_INTEGERIS_UFlPAC|AL|AM|AP|BA|CE|DF|ES|GO|MA|MG|MS|MT|PA|PB|PE|PI|PR|RJ|RN|RS|RO|RR|SE|SC|SP|TOd IS_PASSWD>abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789HIS_CNPJ00000000000000   IS_CPF 00000000000    TO_INTEGER09TO_FEIRA day  , dd de month   de yyyyCIAOhh24Bom Dia Boa Tarde Boa NoitePRENOM 8FMT_CGCF 00000000000 . 00000000000 . 00000000000 - 00000000000 J00000000000000 .00000000000000 .00000000000000 /00000000000000 -00000000000000 FMT_CNPJJPFMT_CPFF4 FMT_CEP00000000 -00000000  FMT_LIKE%_      %%< FMT_TEXTabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ'~!@#$%^&*()_+-=/|\?,[.]{;}<:>0123456789, 񪺿" 8 FMT_CHAR       GET_SYSDATE  w  PKG_NKP_STDNKGET_SYSDATE PKG_NKP_STD< SPLITf +34n&')+3;-<.v679;=E=F>G[H[[J[K[S[&T[;[CV[RW[_[`[a[1c[F[Ne[]f[}l[m[o[[q[r[x[y[Kz[{[j}[x~[[[[[ [4 [ [ [ [) [C [X [f [ [}[[[B[[[/[=[Z[A[;[[[[[[[([0[?[[[5[Q[[[[[[7[f[[B[P[m[T[N[[[& [![,![9![N![V![e![![![]"[ #[#[#[#[#[$[.$[}$[~&[&[& [& [&[='[d'['['['['['['[([ (&[)'[)([B)1[)2[)3[Y,7[t,8[/?[/[/A[/B[0J[z0K[0L[0T[0U[ 1V[-1^[|1_[2b[2[2d[2e[#3m[r3n[4o[4p[f5[u5r[5s[6u[16[96w[:6x[Y6[6[c7[ 8[8[8[8[9[9[9[9[:l;   =  ? # %' ) + -C02 46F9; =?IBDE GIH"KLNO QSR UW%OZ\] _a` ce (Shj l +Uoprsu wy        D|F, ,W O $4P$4P o  \) "$&/18:ACKMY[ginqt !.7@JXfm (*,35<>FPTV^bdkvxͫͫͫͫͫͫͫ ( W <  O \"A  \  dll\e R1t(((,.|H,Hw ( p.]ttd\d.dldd p .|1(B]\.l  (1(((,.H,HW D ( p.]ttd\d.dldd p .|]\.l  ( !hg!    ll1\$1$  " .X1t(txBXx<]<0\0} t1(.  .10(04B4]\PP.Pl  h.1 (Bx]xll\\\.\l\\ h .]\H5 .,],  \HH.Hl  `.p]pddT\T.TlTT ` t  !hg! H ` .h((p .h``xD.h|1l(1((( B &'$J  .h,,|| !hg!  ll,"4(h4l44,," l! &'$` tCtX&'$` $BAX<<, 4!hg!  tll,"4(h4l44,," l!.|D &'h$` t.CtX.|XDX<&'<h$`  .|tC tBAX<< !hg! .hT p&'T$G 8-84&'4$6 00 p t &' $*;|&' $*;|xx !& tlk!khg! ll4lP l.h &'$G X.|D&'h$` `pph4 .h8 T&'8$G p.h&'$G x.|D&'h$` t.|CtXBXP T.hH d&'4H$G ,-,(&'($6 $;$ .h&'P$G p-pl&'l$6 h; h d!& llk!khg! ll4lP l.h &'$G  .|D&'h$` pp4 .h8 T&'8$G $.h&'$G ,.|D&'h$` 4t.|CtXBX<P T.hH d&'4H$G D,-,L(&'(X$6 $;$` .h&'P$G hp-ppl&'lx$6 h; h d!& llk!khg!   &'$F   ,h0h8.h@@U a.\\%:8  l8hx&'$` B.hU .kxx lx0P l0l$(h$l$$ , !hg! D    l &'$=$$ &'$=,,t g  4+88$ 4h k   !hg! lK0WEEKLESS "  dddNEXTWEEK "  wwddd d8WORKDAYS  jj GET_MINUTES=L GET_HOURS<d FMT_INPUT0000 :0 FMT_HOURS00 :00  FMT_SUM_HOURS9900 :00 IS_TIME` ;IS_DATE=dJ#r  !`"#1$%&'(g,-4568 : ; < FJ G^ Hl Jl L? N? OS P Z [ \ ^ `7 b7 cK dU jlmopXz.{n|~GN]JXp GO\s[ [K[:[FG @@------------------------------------------------ -- IS_NUMBER ------------------------------------------------------------------ function is_number(fv_string in varchar2 := null) return boolean is lv_number number; begin lv_number := to_number(fv_string); return TRUE; exception when others then return FALSE; end is_number; ------------------------------------------------------------------ -- IS_INTEGER ------------------------------------------------------------------ function is_integer(fv_string in varchar2 := null) return boolean is lv_number number; begin lv_number := to_number(fv_string); if (lv_number <> trunc(lv_number)) then return FALSE; end if; return TRUE; exception when others then return FALSE; end is_integer; ------------------------------------------------------------------ -- IS_UF ------------------------------------------------------------------ function is_uf(fv_uf in varchar2 := null) return boolean is lv_ufs varchar2(100) := 'AC|AL|AM|AP|BA|CE|DF|ES|GO|MA|MG|MS|MT|PA|PB|PE|PI|PR|RJ|RN|RS|RO|RR|SE|SC|SP|TO'; retval boolean := (instr(lv_ufs, upper(fv_uf)) > 0); begin return retval; exception when others then return FALSE; end is_uf; ------------------------------------------------------------------ -- IS_PASSWD ------------------------------------------------------------------ function is_passwd(fv_passwd in varchar2 := null) return boolean is lv_chars varchar2(512) := 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0 l   5:67  8 9< ; = D4 >  "?$@&%(A*),B.C0/"$"H"8"\q1 \hxN] !#'+-ͫͫͫͫͫͫͫ  q<`N Xg &'(! ! &'P"X&'" k! PP8P\&'(! ! d "h  h  dk & '  &'8$> ,,  & ' & ' , ,,&'& ' 4$  jk! lP&'(! ! (&' 4&'$,00"p,, 4 (jk <&'$> 8&'&'$> @8@H 4 <&' d&'$,`;`\;\X&'8$/h;XhT;T@P&';PL;LPH;HD& ' D$  dh <! `&'&' &'Dt$/, &'&' &'Dx$/, &'&' (&'D|$/$$, (&'&' 4&'$=,,( 4&'&'&'; P&'&'$-T;PTL;LH&';HD;D@&'&'$,\&'\$> X;@X<;<8&'DD 8$8 P##[! P  X&'$,<<  X d&'$-``\ d t&'$.pp h tPxP &'$x  &'$  .  H 5.( !..0 > +  .8x .@8x8  \&'HP P$+TTX  \ &'`P P$+..PBd,d&'P $*``  \#  .h / P!;hpl&' $;&'8$/;;\ ! jkhg!X<x0 SET_APPINFOhxf  DBMS_APPLICATION_INFOSYSSET_MODULEDBMS_APPLICATION_INFOxf DBMS_APPLICATION_INFOSYSSET_CLIENT_INFODBMS_APPLICATION_INFOhGET_PREFERENCESw PKG_NKP_USRNKGET_PREFERENCES2 PKG_NKP_USRP R75G88B75PCL CHECK_VERSIONw  PKG_NKP_FRMNKGET_VERSION PKG_NKP_FRM NOT FOUND NOT FOUNDVerso do mdulo:  difere do registro ! Arquivo= Registro=pSET_ENVIRONMENT [ ] [Off-line]ERRO5A||- . <i #u}%}&()&*_g,h-p.89<<D>E?M@ADF#NOPXQR?V?XFYMZM[ncdeS i j km o pL qK sn u x y { } ~  V/VtuV^_V;<Va @@@@mdulo:  difere do registro ! Arquivo= Registro=pSET_ENVIRONMENT [ ] []ERRO5A||- . <i #u}%}&()&*_g,h-p.89<<D>E?M@ADF0NWOXRS&TUVhWX/Y/Z[9 a@ bG cG dh l m nM r s tg x yF zE|h~{{/tu^_;<[ @@d 57) then lv_mask := lv_mask || substr(fv_string, i, 1); end if; end loop; end if; return to_number(lv_mask); exception when others then return null; end to_integer; ------------------------------------------------------------------ -- TO_FEIRA ------------------------------------------------------------------ function to_feira(fv_date in date) return varchar2 is retval varchar2(255); begin if (fv_date is not null) then retval := initcap(ltrim(rtrim(to_char(fv_date, 'day')))) || ', ' || to_char(fv_date, 'dd') || ' de ' || initcap(ltrim(rtrim(to_char(fv_date, 'month')))) || ' de ' || to_char(fv_date, 'yyyy'); end if; return retval; exception when others then return null; end to_feira; ------------------------------------------------------------------ -- CIAO ------------------------------------------------------------------ function ciao return varchar2 is lv_when number(2) l ͫͫͫͫͫͫͫ \j@!t( (L   &'$T   $&' $=O B $&'$&' $h $ k!  &'$I   T&'$G88 T &'$HX ; &'$;;;X&'$ ! &'&'&'( $&'$?! &'$$! &'&' l$! ! &'&'&'&'   $8&'$! !P 0ON_ERRORl ON_MESSAGE-:  KEY_CLRFRMmainKEY_HELPHelp not implementedPKEY_MENUN KEY_PRINTPRE_FORM POST_FORM!JcJJJJJJJ M!i"p)*+23: ;'B'D.KLNUVJ x@@p)*+23: ;'BCJKLM!T!U x@@V @@op; end if; lv_blockname := get_block_property(lv_blockid, nextblock); end loop va_loop; end toggle_va; end pkg_frm_obj; '9ͫͫͫͫͫͫͫ /STD_LIB_FRM/PKG_FRM_OBJ PLITBLM SYSSTANDARD FORMS4C FORMS40 FORMS4W /STD_LIB_FRM/PKG_FRM_ENV $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ8C"PKG_FRM_OBJ"LOAD_VA"CHANGE_VA"FV_ITEM"I"SET_VA"FV_FORM"LV_FORMID"ID"LV_BLOCKNAME"LV_BLOCKID"LV_VA"ADVISE"FV_MESSAGE"RETVAL"LV_ALERT"LV_BUTTON"MESSAGE"ENABLE"LV_ITEM"DISABLE"TOGGLE_VA"">$'-08>AGHNQWZ[abhkqtu} &,/58>?EHNQRXY_bdfhjlnprtvxz|~           #m-od n/v e p q rP s t uP  4{ f!#g$&w('*x ,y.z81h24| 6}8~;;i<> @l1 $$ PKG_FRM_TRGpackage pkg_frm_trg is ------------------------------------------------------------------ -- Variables, Records, Constants, Exceptions, PL/SQL Tables... ------------------------------------------------------------------ ------------------------------------------------------------------ -- ON_ERROR ------------------------------------------------------------------ procedure on_error; ------------------------------------------------------------------ -- ON_MESSAGE ------------------------------------------------------------------ procedure on_message; ------------------------------------------------------------------ -- KEY_CLRFRM ------------------------------------------------------------------ procedure key_clrfrm; ------------------------------------------------------------------ -- KEY_HELP ------------------------------------------------------------------ procedure key_help; ------------------------------------------------------------------ -- KEY_MENU ------------------------------------------------------------------ procedure key_menu; ------------------------------------------------------------------ -- KEY_PRINT ------------------------------------------------------------------ procedure key_print; ------------------------------------------------------------------ -- PRE_FORM ------------------------------------------------------------------ procedure pre_form; ------------------------------------------------------------------ -- POST_FORM ------------------------------------------------------------------ procedure post_form; end pkg_frm_trg; !ͫͫͫͫͫͫͫ $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ8  N \"PKG_FRM_TRG"ON_ERROR"ON_MESSAGE"KEY_CLRFRM"KEY_HELP"KEY_MENU"KEY_PRINT"PRE_FORM"POST_FORM""&.6>F   $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ8 )))) d"PACKAGE"PKG_FRM_TRG"ON_ERROR"ON_MESSAGE"KEY_CLRFRM"KEY_HELP"KEY_MENU"KEY_PRINT"PRE_FORM"POST_FORM"" ,015BFGKX\]anrswXYjUjUjUjUjUjUjUjU !!!%%% ('        ! ! "$% %$# &# #V d $  ͫͫͫͫͫͫͫ  L|4` 0ON_ERROR\ ON_MESSAGE KEY_CLRFRMKEY_HELPKEY_MENU KEY_PRINTDPRE_FORMp POST_FORM M@@:BCKl1 $$ PKG_FRM_TRG package body pkg_frm_trg is ------------------------------------------------------------------ ----------------------- Private Session -------------------------- ------------------------------------------------------------------ ------------------------------------------------------------------ ------------------------ Public Session -------------------------- ------------------------------------------------------------------ ------------------------------------------------------------------ -- ON_ERROR ------------------------------------------------------------------ procedure on_error is lv_error varchar2(512); begin lv_error := pkg_frm_app.erro; if (lv_error is not null) then bell; pkg_frm_obj.message(lv_error); raise form_trigger_failure; end if; exception when others then null; end on_error; ------------------------------------------------------------------ -- ON_MESSAGE ------------------------------------------------------------------ procedure on_message is lv_type varchar2(3) := message_type; lv_code number := message_code; lv_text varchar2(128) := message_text; begin pkg_frm_obj.message(lv_type || '-' || to_char(lv_code) || ': ' || lv_text); end on_message; ------------------------------------------------------------------ -- KEY_CLRFRM ------------------------------------------------------------------ procedure key_clrfrm is begin clear_form(no_validate); show_view('main'); end key_clrfrm; ------------------------------------------------------------------ -- KEY_HELP ------------------------------------------------------------------ procedure key_help is begin pkg_frm_obj.message('Help not implemented'); end key_help; ------------------------------------------------------------------ -- KEY_MENU ------------------------------------------------------------------ procedure key_menu is begin pkg_frm_obj.toggle_va(pkg_frm_env.gv_module, 'N'); end key_menu; ------------------------------------------------------------------ -- KEY_PRINT ------------------------------------------------------------------ procedure key_print is begin null; -- call_form('vip_srw', no_hide, do_replace, query_only); end key_print; ------------------------------------------------------------------ -- PRE_FORM ------------------------------------------------------------------ procedure pre_form is begin set_window_property(forms_mdi_window, title, pkg_frm_env.gv_comments); pkg_frm_app.set_environment; -- pkg_frm_app.check_version; end pre_form; ------------------------------------------------------------------ -- POST_FORM ------------------------------------------------------------------ procedure post_form is begin null; end post_form; end pkg_frm_trg; ͫͫͫͫͫͫͫ /NKW_LIB_FRM/PKG_FRM_TRG SYSSTANDARD /NKW_LIB_FRM/PKG_FRM_APP SQLFORMS /NKW_LIB_FRM/PKG_FRM_OBJ FORMS4C FORMS4W /NKW_LIB_FRM/PKG_FRM_ENV $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ8%%}"PKG_FRM_TRG"ON_ERROR"LV_ERROR"ON_MESSAGE"LV_TYPE"LV_CODE"LV_TEXT"KEY_CLRFRM"KEY_HELP"KEY_MENU"KEY_PRINT"PRE_FORM"POST_FORM"" (.128;ADEMU]emuwy{}      ! " # $  Xej^ 9!(j  lcQcQjU==jU=j,  **+ ed     P    P  !!"P$& &'(()P+- -.//0P24 456 6!7" #9;;<=$%=&>' (@B!BCD)*D+E, -GI#I J./0LMMLKNK%PR(1Q 2TV*3U 4XYYXWZW,\^.5] 6`aa` _bc_7 #*18?FKW_ %,3:AHOSQU[]|d`LU]Q3HX,%A: ͫͫͫͫͫͫͫP<x 4444 44444 4$!h TTTTTL CHECK_VERSIONSET_ENVIRONMENTERRO@@K ]R ^Y _Y `z h i j_ n o py t uX vW xz z } ~ /tu^_/0m @@>/0>m @@KlMOVE@@--------------- -- TO_INTEGER ------------------------------------------------------------------ function to_integer(fv_string in varchar2) return number is lv_mask varchar2(255); begin if (fv_string is not null) then for i in 1 .. length(fv_string) loop if (ascii(substr(fv_string, i, 1)) between 48 and 57) then lv_mask := lv_mask || substr(fv_string, i, 1); end if; end loop; end if; return to_number(lv_mask); exception when others then return null; end to_integer; ------------------------------------------------------------------ -- TO_FEIRA ------------------------------------------------------------------ function to_feira(fv_date in date) return varchar2 is retval varchar2(255); begin if (fv_date is not null) then retval := initcap(ltrim(rtrim(to_char(fv_date, 'day')))) || ', ' || to_char(fv_date, 'dd') || ' de ' || initcap(ltrim(rtrim(to_char(fv_date, 'month')))) || ' de ' || to_char(fv_date, 'yyyy'); end if; return retval; exception when others then return null; end to_feira; ------------------------------------------------------------------ -- CIAO ------------------------------------------------------------------ function ciao return varchar2 is lv_when number(2) 0l1 $$ PKG_FRM_ENV?package pkg_frm_env is ------------------------------------------------------------------ -- Variables, Records, Constants, PL/SQL Tables... ------------------------------------------------------------------ gv_module varchar2(80); gv_file varchar2(240); gv_version varchar2(80); gv_comments varchar2(240); gv_username varchar2(80); gv_password varchar2(80); gv_tns varchar2(80); gv_os varchar2(128); gv_osid varchar2(128); gv_oskey varchar2(128); gv_connected boolean; end pkg_frm_env; 9:ͫͫͫͫͫͫͫ SYSSTANDARD $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ8 99z"PKG_FRM_ENV"GV_MODULE"GV_FILE"GV_VERSION"GV_COMMENTS"GV_USERNAME"GV_PASSWORD"GV_TNS"GV_OS"GV_OSID"GV_OSKEY"GV_CONNECTED"",!"(+,256<?@FIJPSTZ]^dghnqrxy{}8-P.  / P01P2P3P 4"! $5&% ( 6*) , 7TTHTTT8T  #'+$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ86TTTTX%eedAAeedAAeedAAeedAAeedAAeedAAeedAAeedAAeedAAeedAA "PACKAGE"PKG_FRM_ENV"GV_MODULE"VARCHAR2"80"GV_FILE"240"GV_VERSION"GV_COMMENTS"GV_USERNAME"GV_PASSWORD"GV_TNS"GV_OS"128"GV_OSID"GV_OSKEY"GV_CONNECTED"BOOLEAN""  '.258<=DKORUYZahlorvw~ $%,37:=ABIPTVXYcQcQcQcQcQcQcQcQcQcQ  SR     P    P  !!"$& &'(()P+- -.//0P24 456 6!7"#P9; ;<=$%=&>'(@BBCD)*D+E,-GI!I JK./K0L12NP#P Q345 #*18?FM %,3:AHOX d:O%3,HA ͫͫͫͫͫͫͫ,<  4444 44444 4$4(!`<< TTTTT @@  kn "#@l r0800 0800 0800"0*:JR(bfgjjqrryzzz(~ PL/SQL DE[PL/SQL LibraryMINGUS NKW_LIB_FRMDZxf:xf+$1(pp@&*0./MOUSEMINGUSu ;1(pp@&*0./MOUSEMINGUSu=5(p"p#@*.023PKG_FRM_APPMINGUSu 5(p"p#@*.023PKG_FRM_APPMINGUSu5(p"p#@*.023PKG_FRM_CRNMINGUSu 5(p"p#@*.023PKG_FRM_CRNMINGUSu5(p"p#@*.023PKG_FRM_EANMINGUSu R5(p"p#@*.023PKG_FRM_EANMINGUSu5(p"p#@*.023PKG_FRM_ENVMINGUSu5(p"p#@*.023PKG_FRM_OBJMINGUSu5(p"p#@*.023PKG_FRM_OBJMINGUSu5(p"p#@*.023PKG_FRM_STDMINGUSu5(p"p#@*.023PKG_FRM_STDMINGUSu 5(p"p#@*.023PKG_FRM_TRGMINGUSu=5(p"p#@*.023PKG_FRM_TRGMINGUSuMESSAGEENABLEDISABLE$ TOGGLE_VA t@@@0IS_DATE @@ 0800l     T&'$G88 T &'$HX ; &'$;;;X&'$ ! &'$! ! &'&'&'&'&'l L8$ ! ! !H0ON_ERRORl ON_MESSAGE-: KEY_HELP#Last Compilation: 02/11/2001 17:29h KEY_MENUL KEY_PRINTvip_srwPRE_FORM POST_FORM!c M!i"p)*129:AB"I"J a@@0800"0*:JR(bfgjjqrryzzz(~3 PL/SQL DEPL/SQL LibraryMINGUS STD_LIB_FRMDZxf:xfcV$ 1(pp@&*0./MOUSEMINGUSu u1(pp@&*0./MOUSEMINGUSuUS5(p"p#@*.023PKG_FRM_APPMINGUSu US5(p"p#@*.023PKG_FRM_APPMINGUSuUS5(p"p#@*.023PKG_FRM_CRNMINGUSu US5(p"p#@*.023PKG_FRM_CRNMINGUSuUS5(p"p#@*.023PKG_FRM_EANMINGUSu US5(p"p#@*.023PKG_FRM_EANMINGUSuUS5(p"p#@*.023PKG_FRM_ENVMINGUSu5(p"p#@*.023PKG_FRM_OBJMINGUSu&5(p"p#@*.023PKG_FRM_OBJMINGUSu$5(p"p#@*.023PKG_FRM_STDMINGUSuu r5(p"p#@*.023PKG_FRM_STDMINGUSu5(p"p#@*.023PKG_FRM_TRGMINGUSuave5(p"p#@*.023PKG_FRM_TRGMINGUSu) 0' Program Units( 0& Program Unit000000000000000000000000