ROS.60050 r    !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~dite un tatas,-+s *Aide en &ligne.... 31ur*Affiche l'aide en ligned.,*Aperu &produit...e 42*Affiche l'aperu produit-+r *&Forms sur OTN...senCAoc*'Aller la page d'accueil Forms sur OTNn86io*&A propos de Form Builder...MK*1Affiche des informations relatives Form Builderu+)+Afficher menu :(&+ Crer option(&+ Crer option+)+Crer sous-menue+)+Crer sous-menuh%#+ Supprimeru%#+ Supprimeri v&$ne+ Dvelopperev&$ne+ Dveloppersu#!es+ Rduireo#!+ Rduired+)Po+ Dvelopper toute+)+ Dvelopper tout(&e + Rduire tout(&si+ Rduire tout)', + Modifier senstyp)'n + Modifier sens/-oc+%s: Editeur de menu$"ct+F&ichier$"m+Nou&veau#!+Nouveaus.,+Application &Formsd'?=+#Cre une nouvelle application Forms'lE Case cocherl s42inEZone de liste droulante+)taE Elment affichau cadre dans l'Editeur de prsentation. Pour toute modification ultrieure de la prsentation, il suffit de rappeler l'assistant Prsentation. Pour ce faire, slectionnez le cadre dans l'Editeur de prsentation puis choisissez 'Assistant Prsentation' dans le menu 'Outils'. ! 0 headerbox/,0, 1 2 mclist mclist list3#  1 pushb#'P("+  ) 2 pushb#'P("+   3 pushb#'P("+   image_im drawn3#4XW}/0~ welcome_we label4X5; MS Sans Serif8:967  intro_in mlabel4X'(P  display_cb checkbox# US6p 0headerfieldo  intro_in mlabel4X'(n  display_cb checkbox# b pauseb stop formwiz blokwiz help 0800Y0@0800 P08000800 0800  @\r008x ( ,P08r85g85b5٘`0808 (08 00r1005b08.08 0800 g8080 808.b50008٘208 * ,.٘080٘208x ( * ,0885b7022p08x ( ,08r85g85b7٘0808 ( $00x "g85b70r70g0b00&00x $000 r55g40b402@$00x" * ,.Zr0g55b55P*08x (08 00r70g70b5500`*08x (008 00r85g85b55 00r70g85b852٘٘008x ( * ,. 00r85g85b85٘٘٘008x ( * ,.  00r100g85b85٘٘.08x' ( *,0g 00r0g85b100٘٘008x ( * ,.b8 00r40g85b100ff٘008x ( * ,. 00r55g85b100٘008x ( * ,.٘ 00r70g85b1002٘008x ( * ,. 00r85g85b100٘٘208x * , .0 00r100g85b100٘+08x $ &()00yellow2)08x# $&' (00green5٘-08x& (*+ &00r0g100b0ay/08x ( *,-  00r40g100b0ff/08x ( *,-² 00r55g100b0/08x ( *,-ò 00r70g100b02/08x ( *,-IJ 00r85g100b0٘/08x ( *,-Ų 00r100g100b0.08x' ( *,Ʋ 00r0g100b40ff008x ( * ,.Dz 00r40g100b40ffff008x ( * ,.Ȳ 00r55g100b40ff008x ( * ,.ɲ 00r70g100b402ff008x ( * ,.ʲ 00r85g100b40٘ff208x * , .0˲ 00r100g100b40ff.08x' ( *,00̲ 00r0g100b55008x ( * ,.00Ͳ 00r40g100b55ff008x ( * ,.00β 00r55g100b55008x ( * ,.00ϲ 00r70g100b552008x ( * ,.00в 00r85g100b55٘208x * , .0ͫѲ 00r100g100b55.08x' ( *,Ҳ 00r0g100b702008x ( * ,.Ӳ 00r40g100b70ff2008x ( * ,.Բ 00r55g100b702008x ( * ,.2"ղ 00r70g100b7022008x ( * ,.<ֲ 00r85g100b70٘2208x * , .0nײ 00r100g100b702.08x' ( *,ز 00r0g100b85٘008x ( * ,.ٲ 00r40g100b85ff٘008x ( * ,.ڲ 00r55g100b85٘008x ( * ,. ۲ 00r70g100b852٘008x ( * ,.ܲ 00r85g100b85٘٘208x * , .0ݲ 00r100g100b85٘008x( * ,.޲ 00r0g100b100208x * , .0_s߲ 00r40g100b100ffER208x * , .0 00r55g100b100208x * , .0 00r70g100b1002208x * , .0 00r85g100b100٘208x * , .0 00r100g100b100N*:BF((((( SQL*FormsFORM50:C:\Documents and Settings\degrelle\Bureau\WEBUTIL_DOCS.fmbxk *} ]xk *#];Copyright (c) Oracle Corporation 1990. All Rights Reserved.  (0US6p 0headerfieldo  intro_in mlabel4X'(n  display_cb checkbox# b pauseb stop formwiz blokwiz help 0800Y0@0800 P08000800 0800  x0rP0808N88HD1 $ $P12_07_SEP_200510_12_18BEGIN Enter_Query ; END;KEY-ENTQRY (BIN_DOCS)?ͫͫͫͫͫͫͫSQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"""b ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H   ics"A $&!0  R0808P::HD1 $ &P13_07_SEP_200510_12_18BEGIN Execute_Query ; END;KEY-EXEQRY (BIN_DOCS)?ͫͫͫͫͫͫͫSQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"""b ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H   ics"A $.!0  er senstyp)'n + Modifier sens/-oc+%s: Editeur de menu$"ct+F&ichier$"m+Nou&veau#!+Nouveaus.,+Application &Formsd'?=+#Cre une nouvelle application Forms'lE Case cocherl s42inEZone de liste droulante+)taE Elment affichau cadre dans l'Editeur de prsentation. Pour toute modification ultrieure de la prsentation, il suffit de rappeler l'assistant Prsentation. Pour ce faire, slectionnez le cadre dans l'Editeur de prsentation puis choisissez 'Assistant Prsentation' dans le menu 'Outils'. ! 0 headerbox/,0, 1 2 mclist mclist list3#  1 pushb#'P("+  ) 2 pushb#'P("+   3 pushb#'P("+   image_im drawn3#4XW}/0~ welcome_we label4X5; MS Sans Serif8:967  intro_in mlabel4X'(P  display_cb checkbox# US6p 0headerfieldo  intro_in mlabel4X'(n  display_cb checkbox# b pauseb stop formwiz blokwiz help 0800Y0@0800 P08000800 0800  @|r<hh: (FRM50_BUFFER table contains user's buffer.hh,8ROSATTRIBSclass attributes8+hh)ROSLFDESCros lf descrip)hh'b5ROSOBJMAPros name->id+hh) ,ROSSTRINGStk2 uiStrings2*hh( (ROSSTRUCTSstruct types2*hh(ROSTK2RESVtk2 reservedb7PhhN8TOOL_MODULEtable contains information about different module$pp"5gVG_COLORVG_COLOR+pp $&'()VG_COLORITEMIDk@(+pp $&'()VG_COLORCELLIDk@(-pp &()*+VG_COLORNAME_SET@ /pp (*+,-VG_COLORNAME_LENGTH /pp (*+,-VG_COLORCOLOR_NAMEx'pp "#$%VG_COLORRED )pp "$%&'VG_COLORGREEN 5b1)pp "$%&'VG_COLORBLUE 55g[0808YCCHD1 $ /P6_07_SEP_200510_12_18BEGIN Init ; END;$WHEN-NEW-FORM-INSTANCE (Appli Forms)Bͫͫͫͫͫͫͫ /NSPC6/INIT$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"""b ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H   ics"A $!0  .0808HD1  $ P11_07_SEP_200510_12_18BEGIN Open_Doc ; END;!WHEN-MOUSE-DOUBLECLICK (BIN_DOCS)b55008x ( * ,.00ϲ 00r70g100b552008x ( * ,.00в 00r85g100b55٘208x * , .0ͫѲ 00r100g100b55.08x' ( *,Ҳ 00r0g100b702008x ( * ,.Ӳ 00r40g100b70ff2008x ( * ,.Բ 00r55g100b702008x ( * ,.2"ղ 00r70g100b7022008x ( * ,.<ֲ 00r85g100b70٘2208x * , .0nײ 00r100g100b702.08x' ( *,ز 00r0g100b85٘008x ( * ,.ٲ 00r40g100b85ff٘008x ( * ,.ڲ 00r55g100b85٘008x ( * ,. ۲ 00r70g100b852٘008x ( * ,.ܲ 00r85g100b85٘٘208x * , .0ݲ 00r100g100b85٘008x( * ,.޲ 00r0g100b100208x * , .0_s߲ 00r40g100b100ffER208x * , .0 00r55g100b100208x * , .0 00r70g100b1002208x * , .0 00r85g100b100٘208x * , .0 00r100g100b100N*:BF((((( SQL*FormsFORM50:C:\Documents and Settings\degrelle\Bureau\WEBUTIL_DOCS.fmbxk *} ]xk *#];Copyright (c) Oracle Corporation 1990. All Rights Reserved.  (0US6p 0headerfieldo  intro_in mlabel4X'(n  display_cb checkbox# b pauseb stop formwiz blokwiz help 0800Y0@0800 P08000800 0800  Pdr_0808]GGHD1 $ 3P14_07_SEP_200510_12_18BEGIN Raise Form_Trigger_Failure ; END;KEY-CREREC (BIN_DOCS)?ͫͫͫͫͫͫͫSQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"""b ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H   ics"A h!0   * *)  ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H **ics" D m n   $!X@D 4D < ))mnINTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H   ics"A $!0  0808HD1  $ P11_07_SEP_200510_12_18BEGIN Open_Doc ; END;!WHEN-MOUSE-DOUBLECLICK (BIN_DOCS)/-oc+%s: Editeur de menu$"ct+F&ichier$"m+Nou&veau#!+Nouveaus.,+Application &Formsd'?=+#Cre une nouvelle application Forms'lE Case cocherl s42inEZone de liste droulante+)taE Elment affichau cadre dans l'Editeur de prsentation. Pour toute modification ultrieure de la prsentation, il suffit de rappeler l'assistant Prsentation. Pour ce faire, slectionnez le cadre dans l'Editeur de prsentation puis choisissez 'Assistant Prsentation' dans le menu 'Outils'. ! 0 headerbox/,0, 1 2 mclist mclist list3#  1 pushb#'P("+  ) 2 pushb#'P("+   3 pushb#'P("+   image_im drawn3#4XW}/0~ welcome_we label4X5; MS Sans Serif8:967  intro_in mlabel4X'(P  display_cb checkbox# US6p 0headerfieldo  intro_in mlabel4X'(n  display_cb checkbox# b pauseb stop formwiz blokwiz help 0800Y0@0800 P08000800 0800  `r`0808^HHHDh1 $"0P15_07_SEP_200510_12_18BEGIN AIf :system.last_record <> 'TRUE' Then Next_Record ; End if ;  END;KEY-DOWN (BIN_DOCS)tXͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 +"PKG INIT"":system.last_record""!%&(,0  h)( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ))ics" $h  $R!T<TRUED #( hP0808N88HD1 $ $P16_07_SEP_200510_12_18BEGIN Previous_record ; END;KEY-UP (BIN_DOCS)?ͫͫͫͫͫͫͫSQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"""b ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H   ics"A $[!0  ion &Formsd'?=+#Cre une nouvelle application Forms'lE Case cocherl s42inEZone de liste droulante+)taE Elment affichau cadre dans l'Editeur de prsentation. Pour toute modification ultrieure de la prsentation, il suffit de rappeler l'assistant Prsentation. Pour ce faire, slectionnez le cadre dans l'Editeur de prsentation puis choisissez 'Assistant Prsentation' dans le menu 'Outils'. ! 0 headerbox/,0, 1 2 mclist mclist list3#  1 pushb#'P("+  ) 2 pushb#'P("+   3 pushb#'P("+   image_im drawn3#4XW}/0~ welcome_we label4X5; MS Sans Serif8:967  intro_in mlabel4X'(P  display_cb checkbox# US6p 0headerfieldo  intro_in mlabel4X'(n  display_cb checkbox# b pauseb stop formwiz blokwiz help 0800Y0@0800 P08000800 0800  p lHDNOPQi1  $ P10_07_SEP_200510_12_18BEGIN Declare LN$But Pls_Integer ; LB$Res Boolean ; LC$Name Varchar2(128) ; LC$Sep Varchar2(1) ; Begin If :TRANSFERTS.FIC_SOURCE is not null And :TRANSFERTS.NOM_TABLE is not null And :TRANSFERTS.NOM_COLONNE is not null And :TRANSFERTS.CLAUSE_WHERE is not null Then If Upper(:TRANSFERTS.NOM_TABLE) = 'BIN_DOCS' Then LC$Sep := WEBUTIL_FILE.Get_File_Separator ; -- 10g If Instr( :TRANSFERTS.FIC_SOURCE, LC$Sep ) > 0 Then LC$Name := Substr( :TRANSFERTS.FIC_SOURCE, instr( :TRANSFERTS.FIC_SOURCE, LC$Sep, -1 ) + 1, 128 ) ; Else LC$Name := :TRANSFERTS.FIC_SOURCE ; End if ; End if ; -- Insert a new line in BIN_DOCS table -- LN$But := To_Number( Substr( :TRANSFERTS.CLAUSE_WHERE, Instr( :TRANSFERTS.CLAUSE_WHERE, '=' ) + 1, 200 ) ) ; Begin Select 1 Into LN$But From BIN_DOCS Where Doc_ID = LN$But ; Exception When no_data_found Then Insert Into BIN_DOCS ( DOC_ID, NAME ) Values ( LN$But, LC$Name ) ; End ; If :TRANSFERTS.CB_PROGRESS = 'N' Then If Not PKG_TRANSFERTS.Client_To_DB ( :Transferts.Fic_Source, :Transferts.nom_table, :Transferts.nom_colonne, :Transferts.clause_Where ) Then Set_Alert_Property( 'AL_ERROR', TITLE, 'Client to DB' ) ; Set_Alert_Property( 'AL_ERROR', ALERT_MESSAGE_TEXT, 'Error when transfering ' || :TRANSFERTS.Fic_Source ) ; LN$But := Show_Alert( 'AL_ERROR' ) ; Else Commit ; Clear_Message ; Message('File stored in the database', acknowledge ) ; End if ; Else If Not PKG_TRANSFERTS.Client_To_DB_With_Progress ( :Transferts.Fic_Source, :Transferts.nom_table, :Transferts.nom_colonne, :Transferts.clause_Where, 'Transfert Client -> BD', '>> ' || :Transferts.Fic_Source ) Then Set_Alert_Property( 'AL_ERROR', TITLE, 'Client to DB' ) ; Set_Alert_Property( 'AL_ERROR', ALERT_MESSAGE_TEXT, 'Error when transfering ' || :TRANSFERTS.Fic_Source ) ; LN$But := Show_Alert( 'AL_ERROR' ) ; Else Commit ; Clear_Message ; Message('File stored in the database', acknowledge ) ; End if ; End if ; Else Set_Alert_Property( 'AL_ERROR', TITLE, 'DB vers Client' ) ; Set_Alert_Property( 'AL_ERROR', ALERT_MESSAGE_TEXT, 'A source file name must be entered ' ) ; LN$But := Show_Alert( 'AL_ERROR' ) ; End if ; Clear_Record ; Go_Block( 'BIN_DOCS' ) ; Execute_Query ; Exception When others then Message(dbms_error_text, acknowledge); End ;  END;-WHEN-BUTTON-PRESSED (TRANSFERTS.BT_CLIENT_DB)q4Uq5Uq6Uq7Up2L-Nq$Vq%q&q'q(p-pOPlQRS-p$-p5-p OP[QRS-pOP]QRS-pOP[QRS-pOP]QRS-p0L-NpOPgQRSpOPgQRStttt-- LN+OPrQRSYOPtQRS(LNPOPkQ\r0808HD1  $ P17_07_SEP_200510_12_18BEGIN Open_Doc ; END;*WHEN-BUTTON-PRESSED (BIN_DOCS.BT_OPEN_DOC)0808 HDQ1  $ iP8_07_SEP_200510_12_18BEGIN Declare LC$Where Varchar2(128) ; Begin If :TRANSFERTS.Clause_Where IS NULL Then Select 'DOC_ID = ' || To_char( NVL( MAX( DOC_ID ), 0 ) + 1 ) Into :TRANSFERTS.Clause_Where From BIN_DOCS ; End if ; End ;  END;%WHEN-NEW-RECORD-INSTANCE (TRANSFERTS)EM.CUSTOM_ITEM_EVENT":SYSTEM.CUSTOM_ITEM_EVENT_PARAMETERS""!%&(,2679=AE m   n * *)  ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H **ics" D m n   $!X@D 4D < ))mn 0800) @ 0800P`0800 :0808}ggH:1 $$S PKG_FICHIERSPACKAGE PKG_FICHIERS IS -- Slection d'un fichier -- FUNCTION Selection ( PC$Filtre IN Varchar2 DEFAULT '|All files|*.*|' ) RETURN VARCHAR2 ; END;rBͫͫͫͫͫͫͫ wSYSSTANDARD $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG_FICHIERS""< $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8j $eddAAe?"PKG_FICHIERS"SELECTION"PC$FILTRE"VARCHAR2"|All files|*.*|"15"" #7;<ABJNSWY[^bXYj,=nQc  %6Q66       $d ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ics" mh SELECTION 0800 0800$< 0800- display_cb checkbox# US6p 0headerfieldo  intro_in mlabel4X'(n  display_cb checkbox# b pauseb stop formwiz blokwiz help 0800Y0@0800 P08000800 0800  r0808 ppHDN1 $"XP9_07_SEP_200510_12_18BEGIN Declare LC$Fichier Varchar2(128 ) ; Begin LC$Fichier := PKG_FICHIERS.Selection ; If LC$Fichier is not null Then :TRANSFERTS.FIC_SOURCE := LC$Fichier ; End if ; End ;  END;*WHEN-BUTTON-PRESSED (TRANSFERTS.BT_SELECT)cͫͫͫͫͫͫͫwSYSSTANDARD /NSPC6/PKG_FICHIERS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8E 9"PKG INIT""LC$FICHIER":TRANSFERTS.FIC_SOURCE""!%&(,2679=A  @   N4A@ ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H AAics" `0   $    4N4!T|All files|*.*|$D H 4N +4 @ @ N0800 Dp0808}ggH:1 $$S PKG_FICHIERSPACKAGE PKG_FICHIERS IS -- Slection d'un fichier -- FUNCTION Selection ( PC$Filtre IN Varchar2 DEFAULT '|All files|*.*|' ) RETURN VARCHAR2 ; END;rBͫͫͫͫͫͫͫ wSYSSTANDARD $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG_FICHIERS""< $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8j $eddAAe?"PKG_FICHIERS"SELECTION"PC$FILTRE"VARCHAR2"|All files|*.*|"15"" #7;<ABJNSWY[^bXYj,=nQc  %6Q66       $d ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ics" mh SELECTION 0800 0800$< 0800- display_cb checkbox# US6p 0headerfieldo  intro_in mlabel4X'(n  display_cb checkbox# b pauseb stop formwiz blokwiz help 0800Y0@0800 P08000800 0800  r0808 HDjk1 $"P7_07_SEP_200510_12_18BEGIN If :OLE.TEXT IS NOT NULL Then CheckSpell( :system.cursor_item ) ; Else bell ; Message('Please, enter a text'); Go_Item( 'OLE.TEXT' ) ; End if ;  END;'WHEN-BUTTON-PRESSED (OLE.BT_CORRECTION)nͫͫͫͫͫͫͫwSYSSTANDARD /NSPC6/CHECKSPELLSQLFORMS FORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8I 5"PKG INIT"":OLE.TEXT":system.cursor_item""!%&(,2679=AE }j   k T TS  ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H TT8ics" D<j   k  $&$G E$D$F!,\Please, enter a textOLE.TEXT 4}D < 38IS  4jk)Po+ Dvelopper toute+)+ Dvelopper tout(&e + Rduire tout(&si+ Rduire tout)', + Modifier senstyp)'n + Modifier sens/-oc+%s: Editeur de menu$"ct+F&ichier$"m+Nou&veau#!+Nouveaus.,+Application &Formsd'?=+#Cre une nouvelle application Forms'lE Case cocherl s42inEZone de liste droulante+)taE Elment affichau cadre dans l'Editeur de prsentation. Pour toute modification ultrieure de la prsentation, il suffit de rappeler l'assistant Prsentation. Pour ce faire, slectionnez le cadre dans l'Editeur de prsentation puis choisissez 'Assistant Prsentation' dans le menu 'Outils'. ! 0 headerbox/,0, 1 2 mclist mclist list3#  1 pushb#'P("+  ) 2 pushb#'P("+   3 pushb#'P("+   image_im drawn3#4XW}/0~ welcome_we label4X5; MS Sans Serif8:967  intro_in mlabel4X'(P  display_cb checkbox# US6p 0headerfieldo  intro_in mlabel4X'(n  display_cb checkbox# b pauseb stop formwiz blokwiz help 0800Y0@0800 P08000800 0800  r0808 HDl1 $"P18_06_SEP_200510_00_24BEGIN ]if :system.cursor_block = 'WEBUTIL' then next_block; end if; WebUtil_Core.ShowBeans(false); END;#WHEN-BUTTON-PRESSED (WEBUTIL.DUMMY)|ͫͫͫͫͫͫͫwSYSSTANDARD SQLFORMS /LwebutilWEBUTIL_CORE $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 4 ,"PKG INIT"":system.cursor_block""!%&(,0  l32 ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H 33(ics" $,l  $O$!d$DWEBUTILD #(2 (lG E$D$F!,\Please, enter a textOLE.TEXT 4}D < 38IS  4jk)Po+ Dvelopper toute+)+ Dvelopper tout(&e + Rduire tout(&si+ Rduire tout)', + Modifier senstyp)'n + Modifier sens/-oc+%s: Editeur de menu$"ct+F&ichier$"m+Nou&veau#!+Nouveaus.,+Application &Formsd'?=+#Cre une nouvelle application Forms'lE Case cocherl s42inEZone de liste droulante+)taE Elment affichau cadre dans l'Editeur de prsentation. Pour toute modification ultrieure de la prsentation, il suffit de rappeler l'assistant Prsentation. Pour ce faire, slectionnez le cadre dans l'Editeur de prsentation puis choisissez 'Assistant Prsentation' dans le menu 'Outils'. ! 0 headerbox/,0, 1 2 mclist mclist list3#  1 pushb#'P("+  ) 2 pushb#'P("+   3 pushb#'P("+   image_im drawn3#4XW}/0~ welcome_we label4X5; MS Sans Serif8:967  intro_in mlabel4X'(P  display_cb checkbox# US6p 0headerfieldo  intro_in mlabel4X'(n  display_cb checkbox# b pauseb stop formwiz blokwiz help 0800Y0@0800 P08000800 0800  @r;08089##HDmn1 $"P19_06_SEP_200510_00_24BEGIN pbegin WEBUTIL_CORE.CustomEventHandler(:SYSTEM.CUSTOM_ITEM_EVENT,:SYSTEM.CUSTOM_ITEM_EVENT_PARAMETERS); end;  END;=WHEN-CUSTOM-ITEM-EVENT (WEBUTIL.WEBUTIL_CLIENTINFO_FUNCTIONS)fͫͫͫͫͫͫͫwSYSSTANDARD /LwebutilWEBUTIL_CORE $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8I V"PKG INIT"":SYSTEM.CUSTOM_ITEM_EVENT":SYSTEM.CUSTOM_ITEM_EVENT_PARAMETERS""!%&(,2679=AE m   n * *)  ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H **ics" D m n   $!X@D 4D < ))mn 4}D < 38IS  4jk)Po+ Dvelopper toute+)+ Dvelopper tout(&e + Rduire tout(&si+ Rduire tout)', + Modifier senstyp)'n + Modifier sens/-oc+%s: Editeur de menu$"ct+F&ichier$"m+Nou&veau#!+Nouveaus.,+Application &Formsd'?=+#Cre une nouvelle application Forms'lE Case cocherl s42inEZone de liste droulante+)taE Elment affichau cadre dans l'Editeur de prsentation. Pour toute modification ultrieure de la prsentation, il suffit de rappeler l'assistant Prsentation. Pour ce faire, slectionnez le cadre dans l'Editeur de prsentation puis choisissez 'Assistant Prsentation' dans le menu 'Outils'. ! 0 headerbox/,0, 1 2 mclist mclist list3#  1 pushb#'P("+  ) 2 pushb#'P("+   3 pushb#'P("+   image_im drawn3#4XW}/0~ welcome_we label4X5; MS Sans Serif8:967  intro_in mlabel4X'(P  display_cb checkbox# US6p 0headerfieldo  intro_in mlabel4X'(n  display_cb checkbox# b pauseb stop formwiz blokwiz help 0800Y0@0800 P08000800 0800  <r508083HDmn1 $"P20_06_SEP_200510_00_24BEGIN pbegin WEBUTIL_CORE.CustomEventHandler(:SYSTEM.CUSTOM_ITEM_EVENT,:SYSTEM.CUSTOM_ITEM_EVENT_PARAMETERS); end;  END;7WHEN-CUSTOM-ITEM-EVENT (WEBUTIL.WEBUTIL_FILE_FUNCTIONS)fͫͫͫͫͫͫͫwSYSSTANDARD /LwebutilWEBUTIL_CORE $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8I V"PKG INIT"":SYSTEM.CUSTOM_ITEM_EVENT":SYSTEM.CUSTOM_ITEM_EVENT_PARAMETERS""!%&(,2679=AE m   n * *)  ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H **ics" D m n   $!X@D 4D < ))mn 4}D < 38IS  4jk)Po+ Dvelopper toute+)+ Dvelopper tout(&e + Rduire tout(&si+ Rduire tout)', + Modifier senstyp)'n + Modifier sens/-oc+%s: Editeur de menu$"ct+F&ichier$"m+Nou&veau#!+Nouveaus.,+Application &Formsd'?=+#Cre une nouvelle application Forms'lE Case cocherl s42inEZone de liste droulante+)taE Elment affichau cadre dans l'Editeur de prsentation. Pour toute modification ultrieure de la prsentation, il suffit de rappeler l'assistant Prsentation. Pour ce faire, slectionnez le cadre dans l'Editeur de prsentation puis choisissez 'Assistant Prsentation' dans le menu 'Outils'. ! 0 headerbox/,0, 1 2 mclist mclist list3#  1 pushb#'P("+  ) 2 pushb#'P("+   3 pushb#'P("+   image_im drawn3#4XW}/0~ welcome_we label4X5; MS Sans Serif8:967  intro_in mlabel4X'(P  display_cb checkbox# US6p 0headerfieldo  intro_in mlabel4X'(n  display_cb checkbox# b pauseb stop formwiz blokwiz help 0800Y0@0800 P08000800 0800  <r508083HDmn1 $"P21_06_SEP_200510_00_24BEGIN pbegin WEBUTIL_CORE.CustomEventHandler(:SYSTEM.CUSTOM_ITEM_EVENT,:SYSTEM.CUSTOM_ITEM_EVENT_PARAMETERS); end;  END;7WHEN-CUSTOM-ITEM-EVENT (WEBUTIL.WEBUTIL_HOST_FUNCTIONS)fͫͫͫͫͫͫͫwSYSSTANDARD /LwebutilWEBUTIL_CORE $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8I V"PKG INIT"":SYSTEM.CUSTOM_ITEM_EVENT":SYSTEM.CUSTOM_ITEM_EVENT_PARAMETERS""!%&(,2679=AE m   n * *)  ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H **ics" D m n   $!X@D 4D < ))mn 4}D < 38IS  4jk)Po+ Dvelopper toute+)+ Dvelopper tout(&e + Rduire tout(&si+ Rduire tout)', + Modifier senstyp)'n + Modifier sens/-oc+%s: Editeur de menu$"ct+F&ichier$"m+Nou&veau#!+Nouveaus.,+Application &Formsd'?=+#Cre une nouvelle application Forms'lE Case cocherl s42inEZone de liste droulante+)taE Elment affichau cadre dans l'Editeur de prsentation. Pour toute modification ultrieure de la prsentation, il suffit de rappeler l'assistant Prsentation. Pour ce faire, slectionnez le cadre dans l'Editeur de prsentation puis choisissez 'Assistant Prsentation' dans le menu 'Outils'. ! 0 headerbox/,0, 1 2 mclist mclist list3#  1 pushb#'P("+  ) 2 pushb#'P("+   3 pushb#'P("+   image_im drawn3#4XW}/0~ welcome_we label4X5; MS Sans Serif8:967  intro_in mlabel4X'(P  display_cb checkbox# US6p 0headerfieldo  intro_in mlabel4X'(n  display_cb checkbox# b pauseb stop formwiz blokwiz help 0800Y0@0800 P08000800 0800  <r808086  HDmn1 $"P22_06_SEP_200510_00_24BEGIN pbegin WEBUTIL_CORE.CustomEventHandler(:SYSTEM.CUSTOM_ITEM_EVENT,:SYSTEM.CUSTOM_ITEM_EVENT_PARAMETERS); end;  END;:WHEN-CUSTOM-ITEM-EVENT (WEBUTIL.WEBUTIL_SESSION_FUNCTIONS)fͫͫͫͫͫͫͫwSYSSTANDARD /LwebutilWEBUTIL_CORE $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8I V"PKG INIT"":SYSTEM.CUSTOM_ITEM_EVENT":SYSTEM.CUSTOM_ITEM_EVENT_PARAMETERS""!%&(,2679=AE m   n * *)  ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H **ics" D m n   $!X@D 4D < ))mn 4}D < 38IS  4jk)Po+ Dvelopper toute+)+ Dvelopper tout(&e + Rduire tout(&si+ Rduire tout)', + Modifier senstyp)'n + Modifier sens/-oc+%s: Editeur de menu$"ct+F&ichier$"m+Nou&veau#!+Nouveaus.,+Application &Formsd'?=+#Cre une nouvelle application Forms'lE Case cocherl s42inEZone de liste droulante+)taE Elment affichau cadre dans l'Editeur de prsentation. Pour toute modification ultrieure de la prsentation, il suffit de rappeler l'assistant Prsentation. Pour ce faire, slectionnez le cadre dans l'Editeur de prsentation puis choisissez 'Assistant Prsentation' dans le menu 'Outils'. ! 0 headerbox/,0, 1 2 mclist mclist list3#  1 pushb#'P("+  ) 2 pushb#'P("+   3 pushb#'P("+   image_im drawn3#4XW}/0~ welcome_we label4X5; MS Sans Serif8:967  intro_in mlabel4X'(P  display_cb checkbox# US6p 0headerfieldo  intro_in mlabel4X'(n  display_cb checkbox# b pauseb stop formwiz blokwiz help 0800Y0@0800 P08000800 0800  Dr=0808;%%HDmn1 $" P23_06_SEP_200510_00_24BEGIN pbegin WEBUTIL_CORE.CustomEventHandler(:SYSTEM.CUSTOM_ITEM_EVENT,:SYSTEM.CUSTOM_ITEM_EVENT_PARAMETERS); end;  END;?WHEN-CUSTOM-ITEM-EVENT (WEBUTIL.WEBUTIL_FILETRANSFER_FUNCTIONS)fͫͫͫͫͫͫͫwSYSSTANDARD /LwebutilWEBUTIL_CORE $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8I V"PKG INIT"":SYSTEM.CUSTOM_ITEM_EVENT":SYSTEM.CUSTOM_ITEM_EVENT_PARAMETERS""!%&(,2679=AE m   n * *)  ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H **ics" D m n   $!X@D 4D < ))mn 4}D < 38IS  4jk)Po+ Dvelopper toute+)+ Dvelopper tout(&e + Rduire tout(&si+ Rduire tout)', + Modifier senstyp)'n + Modifier sens/-oc+%s: Editeur de menu$"ct+F&ichier$"m+Nou&veau#!+Nouveaus.,+Application &Formsd'?=+#Cre une nouvelle application Forms'lE Case cocherl s42inEZone de liste droulante+)taE Elment affichau cadre dans l'Editeur de prsentation. Pour toute modification ultrieure de la prsentation, il suffit de rappeler l'assistant Prsentation. Pour ce faire, slectionnez le cadre dans l'Editeur de prsentation puis choisissez 'Assistant Prsentation' dans le menu 'Outils'. ! 0 headerbox/,0, 1 2 mclist mclist list3#  1 pushb#'P("+  ) 2 pushb#'P("+   3 pushb#'P("+   image_im drawn3#4XW}/0~ welcome_we label4X5; MS Sans Serif8:967  intro_in mlabel4X'(P  display_cb checkbox# US6p 0headerfieldo  intro_in mlabel4X'(n  display_cb checkbox# b pauseb stop formwiz blokwiz help 0800Y0@0800 P08000800 0800  8r408082HDmn1 $"P24_06_SEP_200510_00_24BEGIN pbegin WEBUTIL_CORE.CustomEventHandler(:SYSTEM.CUSTOM_ITEM_EVENT,:SYSTEM.CUSTOM_ITEM_EVENT_PARAMETERS); end;  END;6WHEN-CUSTOM-ITEM-EVENT (WEBUTIL.WEBUTIL_OLE_FUNCTIONS)fͫͫͫͫͫͫͫwSYSSTANDARD /LwebutilWEBUTIL_CORE $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8I V"PKG INIT"":SYSTEM.CUSTOM_ITEM_EVENT":SYSTEM.CUSTOM_ITEM_EVENT_PARAMETERS""!%&(,2679=AE m   n * *)  ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H **ics" D m n   $!X@D 4D < ))mn 4}D < 38IS  4jk)Po+ Dvelopper toute+)+ Dvelopper tout(&e + Rduire tout(&si+ Rduire tout)', + Modifier senstyp)'n + Modifier sens/-oc+%s: Editeur de menu$"ct+F&ichier$"m+Nou&veau#!+Nouveaus.,+Application &Formsd'?=+#Cre une nouvelle application Forms'lE Case cocherl s42inEZone de liste droulante+)taE Elment affichau cadre dans l'Editeur de prsentation. Pour toute modification ultrieure de la prsentation, il suffit de rappeler l'assistant Prsentation. Pour ce faire, slectionnez le cadre dans l'Editeur de prsentation puis choisissez 'Assistant Prsentation' dans le menu 'Outils'. ! 0 headerbox/,0, 1 2 mclist mclist list3#  1 pushb#'P("+  ) 2 pushb#'P("+   3 pushb#'P("+   image_im drawn3#4XW}/0~ welcome_we label4X5; MS Sans Serif8:967  intro_in mlabel4X'(P  display_cb checkbox# US6p 0headerfieldo  intro_in mlabel4X'(n  display_cb checkbox# b pauseb stop formwiz blokwiz help 0800Y0@0800 P08000800 0800   lH:1 $$) CHECKSPELLPROCEDURE CheckSpell ( PC$Item in Varchar2 ) IS ------------------------------------------- -- Call the MSWord CheckSpell function -- ------------------------------------------- MyApplication client_ole2.OBJ_TYPE; MyDocuments client_ole2.OBJ_TYPE; MyDocument client_ole2.OBJ_TYPE; MySelection client_ole2.OBJ_TYPE; args client_ole2.LIST_TYPE; BEGIN MyApplication:=client_ole2.CREATE_OBJ('Word.Application'); client_ole2.SET_PROPERTY(MyApplication, 'Visible', 0); MyDocuments:=client_ole2.GET_OBJ_PROPERTY(MyApplication, 'Documents'); MyDocument := CLIENT_OLE2.INVOKE_OBJ(MyDocuments,'add'); Myselection := CLIENT_OLE2.GET_OBJ_PROPERTY(Myapplication,'Selection'); CLIENT_OLE2.SET_PROPERTY(Myselection,'Text',Name_in(PC$item)); client_ole2.INVOKE(MyDocument,'CheckSpelling'); MySelection:=client_ole2.GET_OBJ_PROPERTY(MyApplication, 'Selection'); client_ole2.INVOKE(mYSelection,'WholeStory'); client_ole2.INVOKE(MYSelection,'Copy'); COPY( CLIENT_OLE2.GET_CHAR_PROPERTY(Myapplication,'Selection'), PC$Item ) ; args := CLIENT_OLE2.CREATE_ARGLIST; CLIENT_OLE2.ADD_ARG(args,0); CLIENT_OLE2.INVOKE(MyDocument,'Close',args); CLIENT_OLE2.DESTROY_ARGLIST(args); client_ole2.INVOKE(MyApplication,'Quit'); client_ole2.RELEASE_OBJ(MySelection); client_ole2.RELEASE_OBJ(MyDocument); client_ole2.RELEASE_OBJ(MyDocuments); client_ole2.RELEASE_OBJ(MyApplication); copy(Substr(Replace(Name_in(PC$Item),CHR(13),CHR(10)),1,Length(Name_in(PC$Item))-1), PC$item ); Exception When others then Null ; End; #d{ͫͫͫͫͫͫͫwSYSSTANDARD /LwebutilCLIENT_OLE2 SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 lT"PKG INIT"CHECKSPELL"PC$ITEM"MYAPPLICATION"MYDOCUMENTS"MYDOCUMENT"MYSELECTION"ARGS""X!%'-04:=AGJNTW[adh         $ $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 82;;;;edKCKCKCKC KC] A   9ef ffe 1AfUf4444>9eAeAeeA-9eH AeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAeAAe AAeAAeuuu u"CHECKSPELL"PC$ITEM"VARCHAR2"MYAPPLICATION"CLIENT_OLE2"OBJ_TYPE"MYDOCUMENTS"MYDOCUMENT"MYSELECTION"ARGS"LIST_TYPE"CREATE_OBJ"Word.Application"SET_PROPERTY"Visible"0"GET_OBJ_PROPERTY"Documents"INVOKE_OBJ"add"Selection"Text"NAME_IN"INVOKE"CheckSpelling"WholeStory"Copy"COPY"GET_CHAR_PROPERTY"CREATE_ARGLIST"ADD_ARG"Close"DESTROY_ARGLIST"Quit"RELEASE_OBJ"SUBSTR"REPLACE"CHR"13"10"1"LENGTH"-"16"7"9"3"4"5"" %)*/08<>EIMPX]^eimpx}~ !%(,127;?CGJNSTY]aeilpuv{ #&*/059:?CGKNRVZ]adejnruy~  %),-269:?@EHLPTUZ[`dghmnswx}0l !%-.15=>AEMNOTUVWZ^fghkowxyz{|}~hU=kkkkkkn. knQWkn. kn. kn. kn.WknWkn. knWknWkn.Wk kQWknWkWknWkWkWkWkW.Q.Q..Q..|Q..WSO OQcQcQcQcQcQcQcQcQcQcQc.QcQc  !!!!!!!""""""""######$$$$$$$&&&&&&''''''(((((())))))++++++++++++++++++++++++++++++++++./...-0 !"""#$$$&'()+++++++++ (*5,;'3.<'.6.. ,;!!&4B  (#'+''/3//8:AIAA::RS::W((**;;33<<''. ;;!!!!44 ##'/A:: /         %"#$'% , )*+.,  01 24/5 78 !9="#@A BE$?F%&IJKN'HO !()RS TW*QX+,Z[ ! - _a. "\c /0ef&gj !12mn )or3ls45uv !,wz67|} !/~89: 2; 5  (<=!>? (@8$AB ' (;(C!D (?)EF ","A-G#H !D.I#JF/K#LH0M#N J1O$P%QR LS2&T'U NV3&W(X PY4RZ5)[*\] V^6X_7+`)aZb8]c9 a:dz|~,defg-hijk.l mno/pqrs.t uvw0xyz{'| @l } ~ . ( 0. "#1%&&0*++  !(3:;<CDLMUV`]^bhipqxy6>GPYdkt{&-3:;<CDLMUV`]^bhipqxy:d! ( ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H dics"   x($(.,(, $ D 0$0` 4$ 4| 8$8 %<<$I < $  $| P$P   $  $| TT$T%$h$h$.l$l$$ $$$$ $ $$$$%pp$I@ L p %$I..XB,X %$ k!\$H CHECKSPELLWord.ApplicationVisibleDocumentsaddSelectionTextCheckSpellingWholeStoryCopyCloseQuit AAAA A$,A(8A,DA0dA4pA8|(<AP(TAhAl(p(((A(AA$ADAd(p  >\z !P _!s"#$&'()+/0 dt(xD `|   $@LX "PKG INIT"""b ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H   ics"A $.!0  _0808]GGHD1 $ 3P14_07_SEP_200510_12_18BEGIN Raise Form_Trigger_Failure ; END;KEY-CREREC (BIN_DOCS)?ͫͫͫͫͫͫͫSQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG INIT"""b ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H   ics"A h!0   s GET_NET_CONNECTION s READ_REGISTRYPlH:e1 $&INIT----------------- -- Form init -- ----------------- PROCEDURE init IS Timer_id TIMER ; LI$Duree PLS_INTEGER := 500 ; -- 1/2 seconde LN$Larg PLS_INTEGER ; LN$Haut PLS_INTEGER ; Begin -- Timer d'attente pour l'instantiation des beans -- Timer_id := Create_Timer( 'tempo_1', LI$Duree, NO_REPEAT ) ; -- MDI Window -- LN$Larg := Get_Window_Property( 'FENETRE1', WIDTH ) ; LN$Haut := Get_Window_Property( 'FENETRE1', HEIGHT ) ; Set_Window_Property ( FORMS_MDI_WINDOW, WINDOW_SIZE, LN$Larg + 20 , LN$Haut + 125 ) ; -- MDI title -- Set_Window_Property ( FORMS_MDI_WINDOW, TITLE, 'Oracle Forms 10g - Webutil ' ) ; Show_View( 'CV1' ) ; -- Enable OLE tab page only for Windows system -- If Get_Application_Property( OPERATING_SYSTEM ) Like '%WIN%' Then Set_Tab_Page_Property( 'ONGLETS.OLE', ENABLED, PROPERTY_TRUE ) ; Else Set_Tab_Page_Property( 'ONGLETS.OLE', ENABLED, PROPERTY_FALSE ) ; End if ; Go_Block( 'BIN_DOCS' ) ; :system.message_level := 25 ; Execute_Query ; :system.message_level := 0 ; Go_Item( 'TRANSFERTS.FIC_SOURCE' ) ; END; ͫͫͫͫͫͫͫwSYSSTANDARD FORMS4C FORMS40 FORMS4W FORMS4G SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8 tK"PKG INIT"INIT"TIMER_ID"ID"LI$DUREE"LN$LARG"LN$HAUT":system.message_level""x!#),04:=AGJNTW[aefhlp         $(e $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8b3899JKCAJKCJKC9ee:AKAKper #h#nAYAeeAAAeAAeAAeAAeAAeAAeAAeAAeAAeAAe"INIT"TIMER_ID"TIMER"LI$DUREE"PLS_INTEGER"500"LN$LARG"LN$HAUT"CREATE_TIMER"tempo_1"NO_REPEAT"GET_WINDOW_PROPERTY"FENETRE1"WIDTH"HEIGHT"SET_WINDOW_PROPERTY"FORMS_MDI_WINDOW"WINDOW_SIZE"+"20"125"TITLE"Oracle Forms 10g - Webutil "SHOW_VIEW"CV1"GET_APPLICATION_PROPERTY"OPERATING_SYSTEM"LIKE"%WIN%"SET_TAB_PAGE_PROPERTY"ONGLETS.OLE"ENABLED"PROPERTY_TRUE"PROPERTY_FALSE"GO_BLOCK"BIN_DOCS"system.message_level""25"EXECUTE_QUERY"0"GO_ITEM"TRANSFERTS.FIC_SOURCE"7"8"27"3"5"11"21""  %)*,37?DELPX[`ahltyz   $(-.37<=BFJKPSXY^bgkopuw{ "&./26>?@ABEIQRUYabcfjrsvzhUQn. n. n. |Q.|Q.WnWnW.~n.nWnW<nWQ WQ nWOcQQcQcQcQcQcQcQcQcQcQc  !$$$$''''''''(((((('******)'''----....///0001111 4 !!$$`l$''''(((***---/111      (2 ".  ".  8+4@+4  "" "" 88  Hzz/   yy  y y     "#w  &)%*w  -0,1w79 !}<>"3@w#$% BFw&$HJw'(&LN)*(PR+, -!.+TXZ/b/ 0"11[_a5cSZzdazd7w#2$$:egw%&|ej%&|e'3ikw(4mow%|ej)5pqw*6++<suwOzzzJzywx78~}9,:;<=D->?@AA-BCDE>]`c.FGHIh/JKLMln0NOPQp1R STUs1V WXYw-Z[\]{2^_`a}  !'(./68;=45:?CDEIMOQUVWY\]^`bcft./'( !j  $+2AGKdhlnrv{68;=45:?CDEIMOQUVW\]^ft4dj ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H dics"  HH . ,T,GI0 0$0pGI<< $)<$pGIPP $)P(J$d.dhJ(l.lpGIGIh p$>GIGI $?$FGE\tt$2t . &GIGI $9 GIGI $9$:/0e$./<eH$F!P<INIT &)*&)*4(0tempo_1FENETRE1}Oracle Forms 10g - Webutil CV1%WIN%ONGLETS.OLEBIN_DOCSTRANSFERTS.FIC_SOURCE}HA A$A(A,(H0H(<(PAdAhAlAp(tA((e   7Z}$'(2*L-W.i/n014 XHTp   0(<,H0 e ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H   ics"A h!0   s GET_NET_CONNECTION s READ_REGISTRYp<r608084HDmn1 $"P25_06_SEP_200510_00_24BEGIN pbegin WEBUTIL_CORE.CustomEventHandler(:SYSTEM.CUSTOM_ITEM_EVENT,:SYSTEM.CUSTOM_ITEM_EVENT_PARAMETERS); end;  END;8WHEN-CUSTOM-ITEM-EVENT (WEBUTIL.WEBUTIL_C_API_FUNCTIONS)fͫͫͫͫͫͫͫwSYSSTANDARD /LwebutilWEBUTIL_CORE $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8I V"PKG INIT"":SYSTEM.CUSTOM_ITEM_EVENT":SYSTEM.CUSTOM_ITEM_EVENT_PARAMETERS""!%&(,2679=AE m   n * *)  ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H **ics" D m n   $!X@D 4D < ))mnINTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H   ics"A $!0  0808HD1  $ P11_07_SEP_200510_12_18BEGIN Open_Doc ; END;!WHEN-MOUSE-DOUBLECLICK (BIN_DOCS)/-oc+%s: Editeur de menu$"ct+F&ichier$"m+Nou&veau#!+Nouveaus.,+Application &Formsd'?=+#Cre une nouvelle application Forms'lE Case cocherl s42inEZone de liste droulante+)taE Elment affichau cadre dans l'Editeur de prsentation. Pour toute modification ultrieure de la prsentation, il suffit de rappeler l'assistant Prsentation. Pour ce faire, slectionnez le cadre dans l'Editeur de prsentation puis choisissez 'Assistant Prsentation' dans le menu 'Outils'. ! 0 headerbox/,0, 1 2 mclist mclist list3#  1 pushb#'P("+  ) 2 pushb#'P("+   3 pushb#'P("+   image_im drawn3#4XW}/0~ welcome_we label4X5; MS Sans Serif8:967  intro_in mlabel4X'(P  display_cb checkbox# US6p 0headerfieldo  intro_in mlabel4X'(n  display_cb checkbox# b pauseb stop formwiz blokwiz help 0800Y0@0800 P08000800 0800  lH:fg1  $$ OPEN_DOC PROCEDURE Open_Doc IS ------------------------------ -- Open a stored document -- ------------------------------ LC$Cmd Varchar2(128) ; LC$Nom Varchar2(100) ; LC$Fic Varchar2(128); LC$Path Varchar2(128); LC$Sep Varchar2(1) ; LN$But Pls_Integer ; LB$Ok Boolean ; -- Current Process ID -- ret WEBUTIL_HOST.PROCESS_ID ; Begin ------------------------------- -- Local temporary file name -- ------------------------------- LC$Sep := WEBUTIL_FILE.Get_File_Separator ; -- 10g LC$Nom := Substr( :BIN_DOCS.Name, instr( :BIN_DOCS.Name, LC$Sep, -1 ) + 1, 100 ) ; LC$Path := CLIENT_WIN_API_ENVIRONMENT.Get_Temp_Directory ; LC$Fic := LC$Path || LC$Sep || LC$Nom ; ---------------------- -- File extraction -- ---------------------- If Not PKG_TRANSFERTS.DB_To_Client ( LC$Fic, 'BIN_DOCS', 'DOC', 'DOC_ID = ' || To_Char( :BIN_DOCS.Doc_ID ) ) Then Set_Alert_Property( 'AL_ERROR', TITLE, 'DB to Client' ) ; Set_Alert_Property( 'AL_ERROR', ALERT_MESSAGE_TEXT, 'Error transfering local file' ) ; LN$But := Show_Alert( 'AL_ERROR' ) ; Raise Form_trigger_Failure ; End if ; ----------------------------------- -- Open the local temporary file -- ----------------------------------- LC$Cmd := 'cmd /c start "" /WAIT "' || LC$Fic || '"' ; Ret := WEBUTIL_HOST.blocking( LC$Cmd ) ; LN$But := WEBUTIL_HOST.Get_return_Code( Ret ) ; If LN$But <> 0 Then Set_Alert_Property( 'AL_ERROR', TITLE, 'Host() command' ) ; Set_Alert_Property( 'AL_ERROR', ALERT_MESSAGE_TEXT, 'Host() command error : ' || To_Char( LN$But ) ) ; LN$But := Show_Alert( 'AL_ERROR' ) ; LB$Ok := WEBUTIL_FILE.DELETE_FILE( LC$Fic ) ; Raise Form_Trigger_Failure ; End if ; ------------------------------------------------ -- Re-store the modified file in the database -- ------------------------------------------------ If Not PKG_TRANSFERTS.Client_To_DB ( LC$Fic, 'BIN_DOCS', 'DOC', 'DOC_ID = ' || To_Char( :BIN_DOCS.Doc_ID ) ) Then Set_Alert_Property( 'AL_ERROR', TITLE, 'Client to DB' ) ; Set_Alert_Property( 'AL_ERROR', ALERT_MESSAGE_TEXT, 'Error on storing file' ) ; LN$But := Show_Alert( 'AL_ERROR' ) ; Raise Form_trigger_Failure ; Else Commit ; Clear_Message ; Message('File re-stored in the database', no_acknowledge ) ; End if ; ------------------------------------- -- Remove the temporary local file -- ------------------------------------- LB$Ok := WEBUTIL_FILE.DELETE_FILE( LC$Fic ) ; If LB$Ok = FALSE Then Bell ; Message( 'Error removing local file ', no_acknowledge ) ; End if ; Clear_Message ; Exception When Form_Trigger_Failure Then Raise ; End Open_Doc ; /{CADRE75CADRE75r100g100b100Upload a local file into the databaseblackTahomaLeXGL$L0/]OLEOLECheckSpellfLGKq`jjlNN[NNNNgOhjikUZr~`:w !"#$%&'()*+,-./ 01 23w456789:;dblackr100g100b85transparentblackblacktransparentTahomaOg  O_^oO`aiyy/]dO WEBUTIL_CANVASWEBUTIL_r808086  HDmn1 $"P26_06_SEP_200510_00_24BEGIN pbegin WEBUTIL_CORE.CustomEventHandler(:SYSTEM.CUSTOM_ITEM_EVENT,:SYSTEM.CUSTOM_ITEM_EVENT_PARAMETERS); end;  END;:WHEN-CUSTOM-ITEM-EVENT (WEBUTIL.WEBUTIL_BROWSER_FUNCTIONS)fͫͫͫͫͫͫͫwSYSSTANDARD /LwebutilWEBUTIL_CORE $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8I V"PKG INIT"":SYSTEM.CUSTOM_ITEM_EVENT":SYSTEM.CUSTOM_ITEM_EVENT_PARAMETERS""!%&(,2679=AE m   n * *)  ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H **ics" D m n   $!X@D 4D < ))mn 0800) @ 0800P`0800 :_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H   ics"A $!0  .0808HD1  $ P11_07_SEP_200510_12_18BEGIN Open_Doc ; END;!WHEN-MOUSE-DOUBLECLICK (BIN_DOCS)b55008x ( * ,.00ϲ 00r70g100b552008x ( * ,.00в 00r85g100b55٘208x * , .0ͫѲ 00r100g100b55.08x' ( *,Ҳ 00r0g100b702008x ( * ,.Ӳ 00r40g100b70ff2008x ( * ,.Բ 00r55g100b702008x ( * ,.2"ղ 00r70g100b7022008x ( * ,.<ֲ 00r85g100b70٘2208x * , .0nײ 00r100g100b702.08x' ( *,ز 00r0g100b85٘008x ( * ,.ٲ 00r40g100b85ff٘008x ( * ,.ڲ 00r55g100b85٘008x ( * ,. ۲ 00r70g100b852٘008x ( * ,.ܲ 00r85g100b85٘٘208x * , .0ݲ 00r100g100b85٘008x( * ,.޲ 00r0g100b100208x * , .0_s߲ 00r40g100b100ffER208x * , .0 00r55g100b100208x * , .0 00r70g100b1002208x * , .0 00r85g100b100٘208x * , .0 00r100g100b100N*:BF((((( SQL*FormsFORM50:C:\Documents and Settings\degrelle\Bureau\WEBUTIL_DOCS.fmbxk *} ]xk *#];Copyright (c) Oracle Corporation 1990. All Rights Reserved.  (0US6p 0headerfieldo  intro_in mlabel4X'(n  display_cb checkbox# b pauseb stop formwiz blokwiz help 0800Y0@0800 P08000800 0800  !lH:1 $$ PKG_FICHIERS;PACKAGE BODY PKG_FICHIERS IS ---------------------------- -- Slection d'un fichier -- ---------------------------- FUNCTION Selection ( PC$Filtre IN Varchar2 DEFAULT '|All files|*.*|' )RETURN VARCHAR2 IS LC$Path Varchar2(128) ; LC$Fichier Varchar2(256) ; LC$Filtre Varchar2(100) := PC$Filtre ; Begin -- Rpertoire temporaire -- LC$Path := CLIENT_WIN_API_ENVIRONMENT.Get_Temp_Directory ; LC$Fichier := WEBUTIL_FILE.FILE_OPEN_DIALOG ( LC$Path, '', LC$Filtre, 'Select a file to upload' ) ; Return LC$Fichier ; END Selection ; END;ͫͫͫͫͫͫͫ /NSPC6/PKG_FICHIERS wSYSSTANDARD $/LwebutilCLIENT_WIN_API_ENVIRONMENT /LwebutilWEBUTIL_FILE $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8j @"PKG_FICHIERS"SELECTION"PC$FILTRE"LC$PATH"LC$FICHIER"LC$FILTRE""n!%'-139=>@DJNOQU[_`bf      g,gd@gf ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H gg(Dics" O %@TT$T @ (hh$h,,% hg!0 SELECTIONSelect a file to upload8D|D(,D@ d(Tx(h ,Va(h (l 4P23_06_SEP_200510_00_24P24_06_SEP_200510_00_24P25_06_SEP_200510_00_24P26_06_SEP_200510_00_24hdhCnDEFGHhASYSTEM.CUSTOM_ITEM_EVENT_PARAMETERSSYSTEM.CUSTOM_ITEM_EVENT_PARAMETERSiHihiiiijj(P19_06_SEP_200510_00_24P20_06_SEP_200510_00_24P21_06_SEP_200510_00_24P22_06_SEP_200510_00_24P23_06_SEP_200510_00_24P24_06_SEP_200510_00_24P25_06_SEP_200510_00_24P26_06_SEP_200510_00_24em.cursor_item""!%&(,2679=AE }j   k T TS  ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H TT8ics" D<j   k  $&$G E$D$F!,\Please, enter a textOLE.TEXT 4}D < 38IS  4jkb`vOTPRS`wOTPRS`xOTPRSbOTPRS`1OTPRSbbbbLNbbb#lH:1 $$$(PKG_TRANSFERTSPACKAGE PKG_TRANSFERTS IS -- Client to DB -- FUNCTION Client_To_DB ( clientFile in VARCHAR2, tableName in VARCHAR2, columnName in VARCHAR2, whereClause in VARCHAR2, asynchronous in BOOLEAN default FALSE, callbackTrigger in VARCHAR2 default NULL ) RETURN BOOLEAN; FUNCTION Client_To_DB_With_Progress ( clientFile in VARCHAR2, tableName in VARCHAR2, columnName in VARCHAR2, whereClause in VARCHAR2, progressTitle in VARCHAR2, progressSubTitle in VARCHAR2, asynchronous in BOOLEAN default FALSE, callbackTrigger in VARCHAR2 default NULL ) RETURN BOOLEAN; -- DB to Client -- FUNCTION DB_To_Client ( clientFile in VARCHAR2, tableName in VARCHAR2, columnName in VARCHAR2, whereClause in VARCHAR2 ) RETURN BOOLEAN; FUNCTION DB_To_Client_With_Progress ( clientFile in VARCHAR2, tableName in VARCHAR2, columnName in VARCHAR2, whereClause in VARCHAR2, progressTitle in VARCHAR2, progressSubTitle in VARCHAR2 ) RETURN BOOLEAN; -- Client to AS -- FUNCTION Client_To_AS ( clientFile in VARCHAR2, serverFile in VARCHAR2, asynchronous in BOOLEAN default FALSE, callbackTrigger in VARCHAR2 default NULL ) return BOOLEAN; -- Client to AS -- FUNCTION Client_To_AS_With_Progress ( clientFile in VARCHAR2, serverFile in VARCHAR2, progressTitle in VARCHAR2, progressSubTitle in VARCHAR2, asynchronous in BOOLEAN default FALSE, callbackTrigger in VARCHAR2 default NULL ) return BOOLEAN; -- AS to Client -- FUNCTION AS_To_Client ( clientFile in VARCHAR2, serverFile in VARCHAR2 ) return BOOLEAN; FUNCTION AS_To_Client_With_Progress ( clientFile in VARCHAR2, serverFile in VARCHAR2, progressTitle in VARCHAR2, progressSubTitle in VARCHAR2 ) return BOOLEAN; -- Dialog buttons state -- PROCEDURE Etat_Boutons ; END; Bͫͫͫͫͫͫͫ wSYSSTANDARD $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG_TRANSFERTS""< $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8],xedededed  ededededededed  ededededededededededededed  ededededed  edededededededH"PKG_TRANSFERTS"CLIENT_TO_DB"CLIENTFILE"VARCHAR2"TABLENAME"COLUMNNAME"WHERECLAUSE"ASYNCHRONOUS"BOOLEAN"FALSE"CALLBACKTRIGGER"CLIENT_TO_DB_WITH_PROGRESS"PROGRESSTITLE"PROGRESSSUBTITLE"DB_TO_CLIENT"DB_TO_CLIENT_WITH_PROGRESS"CLIENT_TO_AS"SERVERFILE"CLIENT_TO_AS_WITH_PROGRESS"AS_TO_CLIENT"AS_TO_CLIENT_WITH_PROGRESS"ETAT_BOUTONS""Z #7;<ABJNST\`efnrwx  $(-.6:?@HLPUV^bcgk #()15:;CGLMUY]auyz #$,056>BFKLTXY]auyz #'(*XYj,======Mj,===l=====Mj,====j,======j,====Mj,======Mj,==j,====jU  !!!!""""#%%%&''''(((())))****++++,,,,-00012222333344444555556999:;;;;<<<<====>>>>?????@@@@@AEEEFGGGGHHHHIKKKLMMMMNNNNOOOOPPPPQTTTT  *+  *+      *+  *+         %    !#$ $" '( ('&)L& +-),'/1+0'35-4 '79/8 ';=1 < '?A3@ 'CEF5FD '  HJK7 KI' NOONMPaM9RT>!SN"VX@#WN$Z\B%[N&^`D'_N( )cddcbe~bFgiM*hc+kmO,lc-oqQ.pc/suS0tc1wyU 2xc3{}W4|c5 6 Y^78`9:b; < =d >? @'fmA!BoC"Dq E#FsG$HuI% J Kw L&M N*y|O(P~Q)R S/ T+UV,W X-YZ.[ \    &Mb   "*.26:>BG,048<@DIQUY]SW[_fjnrvzhlptx|N2d  I" |@ Dp[4'c hS,  x<N t_8lW0,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"lͫͫͫͫͫͫͫ  ics" |Dp e` CLIENT_TO_DB  ( CLIENT_TO_DB_WITH_PROGRESS  DB_TO_CLIENT( DB_TO_CLIENT_WITH_PROGRESS  CLIENT_TO_AS( CLIENT_TO_AS_WITH_PROGRESS  AS_TO_CLIENT( AS_TO_CLIENT_WITH_PROGRESS ETAT_BOUTONS $*3 &2 Fichier,*(*4Ouvre ce fichier&$*5 &3 Fichier,*8*6Ouvre ce fichier&$*7 &4 FichierP1,**8Ouvre ce fichier0.dl*9Quitte l'application$"VE*:&Edition53EN*;Annule la dernire actionIL_EC*<)Annule l'annulation de la dernire actionw., *=Coupe la slectionL_.,ͫ*>Copie la slection.,*?Colle la slection/-*@Efface la slection><on*A"Rechercher et remplacer PL/S&QL...US+)ER*BPrfrence&s...!?=A*C#Modifie vos prfrences utilisateur m   n * *)  ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H **ics" D m n   $!X@D 4D < ))mn508083HDmn1 $"P20_06_SEP_200510_00_24BEGIN pbegin WEBUTIL_CORE.CustomEventHandler(:SYSTEM.CUSTOM_ITEM_EVENT,:SYSTEM.CUSTOM_ITEM_EVENT_PARAMETERS); end;  END;7WHEN-CUSTOM-ITEM-EVENT (WEBUTIL.WEBUTIL_FILE_FUNCTIONS)fͫͫͫͫͫͫͫwSYSSTANDARD /LwebutilWEBUTIL_CORE $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8I V"PKG INIT"":SYSTEM.CUSTOM_ITEM_EVENT":SYSTEM.CUSTOM_ITEM_EVENT_PARAMETERS""!%&(,2679=AE m   n * *)  ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H **ics" D m n   $!X@D 4D < ))mnOE QRRD UVVFXYYD \]]G`lH:NOPQ1 $&-PKG_TRANSFERTSPACKAGE BODY PKG_TRANSFERTS IS -------------------- -- Client to DB -- -------------------- FUNCTION Client_To_DB ( clientFile in VARCHAR2, tableName in VARCHAR2, columnName in VARCHAR2, whereClause in VARCHAR2, asynchronous in BOOLEAN default FALSE, callbackTrigger in VARCHAR2 default NULL ) RETURN BOOLEAN IS LB$Res Boolean ; LC$Req Varchar2(256) ; LC$Sep Varchar2(1) ; LC$Nom Varchar2(100) ; BEGIN LB$Res := Webutil_File_Transfer.Client_To_DB ( clientFile, tableName, columnName, whereClause, asynchronous, callbackTrigger ) ; Return LB$Res ; END Client_To_DB ; FUNCTION Client_To_DB_With_Progress ( clientFile in VARCHAR2, tableName in VARCHAR2, columnName in VARCHAR2, whereClause in VARCHAR2, progressTitle in VARCHAR2, progressSubTitle in VARCHAR2, asynchronous in BOOLEAN default FALSE, callbackTrigger in VARCHAR2 default NULL ) RETURN BOOLEAN IS LB$Res Boolean ; LC$Req Varchar2(256) ; LC$Sep Varchar2(1) ; LC$Nom Varchar2(100) ; BEGIN LB$Res := Webutil_File_Transfer.Client_To_DB_With_Progress ( clientFile, tableName, columnName, whereClause, progressTitle, progressSubTitle, asynchronous, callbackTrigger ) ; Return LB$Res ; END Client_To_DB_With_Progress ; -------------------- -- DB to Client -- -------------------- FUNCTION DB_To_Client ( clientFile in VARCHAR2, tableName in VARCHAR2, columnName in VARCHAR2, whereClause in VARCHAR2 ) RETURN BOOLEAN IS LB$Res Boolean ; BEGIN LB$Res := Webutil_File_Transfer.DB_To_Client ( clientFile, tableName, columnName, whereClause ) ; Return LB$Res ; END DB_To_Client ; FUNCTION DB_To_Client_With_Progress ( clientFile in VARCHAR2, tableName in VARCHAR2, columnName in VARCHAR2, whereClause in VARCHAR2, progressTitle in VARCHAR2, progressSubTitle in VARCHAR2 ) RETURN BOOLEAN IS LB$Res Boolean ; BEGIN LB$Res := Webutil_File_Transfer.DB_To_Client_With_Progress ( clientFile, tableName, columnName, whereClause, progressTitle, progressSubTitle ) ; Return LB$Res ; END DB_To_Client_With_Progress ; -------------------- -- Client to AS -- -------------------- FUNCTION Client_To_AS ( clientFile in VARCHAR2, serverFile in VARCHAR2, asynchronous in BOOLEAN default FALSE, callbackTrigger in VARCHAR2 default NULL ) return BOOLEAN IS LB$Res Boolean ; BEGIN LB$Res := Webutil_File_Transfer.Client_To_AS ( clientFile, serverFile, asynchronous, callbackTrigger ) ; Return LB$Res ; END Client_To_AS; FUNCTION Client_To_AS_With_Progress ( clientFile in VARCHAR2, serverFile in VARCHAR2, progressTitle in VARCHAR2, progressSubTitle in VARCHAR2, asynchronous in BOOLEAN default FALSE, callbackTrigger in VARCHAR2 default NULL ) return BOOLEAN IS LB$Res Boolean ; BEGIN LB$Res := Webutil_File_Transfer.Client_To_AS_With_Progress ( clientFile, serverFile, progressTitle, progressSubTitle, asynchronous, callbackTrigger ) ; Return LB$Res ; END Client_To_AS_With_Progress; ---------------------- -- AS to Client -- ---------------------- FUNCTION AS_To_Client ( clientFile in VARCHAR2, serverFile in VARCHAR2 ) return BOOLEAN IS LB$Res Boolean ; BEGIN LB$Res := Webutil_File_Transfer.AS_To_Client ( clientFile, serverFile ) ; Return LB$Res ; END AS_To_Client; FUNCTION AS_To_Client_With_Progress ( clientFile in VARCHAR2, serverFile in VARCHAR2, progressTitle inl VARCHAR2, progressSubTitle in VARCHAR2 ) return BOOLEAN IS LB$Res Boolean ; BEGIN LB$Res := Webutil_File_Transfer.AS_To_Client_With_Progress ( clientFile, serverFile, progressTitle, progressSubTitle ) ; Return LB$Res ; END AS_To_Client_With_Progress; ---------------------------- -- Dialog buttons state -- ---------------------------- PROCEDURE Etat_Boutons IS BEGIN If :TRANSFERTS.Fic_Source IS NULL Then Set_Item_Property( 'TRANSFERTS.BT_CLIENT_DB', ENABLED, PROPERTY_FALSE ) ; End if ; If :TRANSFERTS.Nom_Table IS NULL Or :TRANSFERTS.Nom_Colonne IS NULL Or :TRANSFERTS.Clause_Where IS NULL Then Set_Item_Property( 'TRANSFERTS.BT_CLIENT_DB', ENABLED, PROPERTY_FALSE ) ; Else If :TRANSFERTS.Fic_Source IS NULL Then Set_Item_Property( 'TRANSFERTS.BT_CLIENT_DB', ENABLED, PROPERTY_FALSE ) ; Else Set_Item_Property( 'TRANSFERTS.BT_CLIENT_DB', ENABLED, PROPERTY_TRUE ) ; End if ; End if ; End Etat_Boutons ; END;ͫͫͫͫͫͫͫ wSYSSTANDARD /NSPC6/PKG_TRANSFERTS /LwebutilWEBUTIL_FILE_TRANSFER FORMS4C FORMS40 $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8f"PKG_TRANSFERTS"CLIENT_TO_DB"CLIENTFILE"TABLENAME"COLUMNNAME"WHERECLAUSE"ASYNCHRONOUS"CALLBACKTRIGGER"LB$RES"LC$REQ"LC$SEP"LC$NOM"CLIENT_TO_DB_WITH_PROGRESS"PROGRESSTITLE"PROGRESSSUBTITLE"DB_TO_CLIENT"DB_TO_CLIENT_WITH_PROGRESS"CLIENT_TO_AS"SERVERFILE"CLIENT_TO_AS_WITH_PROGRESS"AS_TO_CLIENT"AS_TO_CLIENT_WITH_PROGRESS"ETAT_BOUTONS":TRANSFERTS.Fic_Source":TRANSFERTS.Nom_Table":TRANSFERTS.Nom_Colonne":TRANSFERTS.Clause_Where"" z!%'-139=?EIKQRX\^deklpvz{} $%'+1568<BFGIMW]acimouy{ %&,0289?@DNTXZ`dflprx|~ #-378:>DHIKOUYZ\`fjkmquy};aF  K      g $"!#$g &*(')8g ,0.-/dLg  P6345789;<=?@ACDEGHIKMNOQ  ST(g VZXWY,g \`^]_@g bfdcedTgUUijkmnoqrsuvwy {|Wn B#Y Bl)[ 1] 5_ > N O P Q(<IgS?IB?I5?>  26:>BFJLPhlptx~ 1g}%+RU[az,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ  ics"0gTB>0  ! %%%  %%%`$`  % hg! %%%  %%%%%  h$$h((%$ hg! 8,%%%  %$% hg! @D%%%  %%%$$$  % hg! 8\%%%  %$% hg! @t%%%  %%%$$$  % hg! 0%% $ %  hg! 8%%%  %$ % hg! N#GIGI $O,PQ  )GIGI $PN)GIGI $ GIGI $! && CLIENT_TO_DB  ( CLIENT_TO_DB_WITH_PROGRESS  DB_TO_CLIENT( DB_TO_CLIENT_WITH_PROGRESS  CLIENT_TO_AS( CLIENT_TO_AS_WITH_PROGRESS  AS_TO_CLIENT( AS_TO_CLIENT_WITH_PROGRESS ETAT_BOUTONSTRANSFERTS.BT_CLIENT_DB+DDDD  /A dD $pD8xDLdA`/A(lD ,xD@DTdAhA A,A (A$4A A,A (A$4AA$A A,)V a"r6BDU]_n1x<zMp{ -8DTnp NOPQSpOPgQRStttt-- LN+OPrQRSYOPtQRS(LNPOPkQr0808}ggH:1 $$S PKG_FICHIERSPACKAGE PKG_FICHIERS IS -- Slection d'un fichier -- FUNCTION Selection ( PC$Filtre IN Varchar2 DEFAULT '|All files|*.*|' ) RETURN VARCHAR2 ; END;rBͫͫͫͫͫͫͫ wSYSSTANDARD $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8"PKG_FICHIERS""< $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8j $eddAAe?"PKG_FICHIERS"SELECTION"PC$FILTRE"VARCHAR2"|All files|*.*|"15"" #7;<ABJNSWY[^bXYj,=nQc  %6Q66       $d ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ics" mh SELECTION T0800 0800$< 0800- 0800jHp$00x !"black(00x " $&white%00x !"#r0g0b0_FI(00x "$%&r40g0b0ff(00x "$%&r55g0b0$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8j $eddAAe?"PKG_FICHIERS"SELECTION"PC$FILTRE"VARCHAR2"|All files|*.*|"15"" #7;<ABJNSWY[^bXYj,=nQc  %6Q66       $d ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ics" mh SELECTION 0800 0800$< 0800- display_cb checkbox# US6p 0headerfieldo  intro_in mlabel4X'(n  display_cb checkbox# b pauseb stop formwiz blokwiz help 0800Y0@0800 P08000800 0800   r(00x "$%&gr70g0b02(00x "$%&r85g0b0٘(00x "$%& r100g0b0(00x!" $& Sr0g0b40ff*00x "$ &(|A r40g0b40fffffET*00x "$ &( r55g0b40fffͫ*00x "$ &( r70g0b402fffAN*00x "$ &(ͫ r85g0b40٘fffͫ,00x $& (* r100g0b40fff(00x!" $&r0g0b55*00x "$ &(PKr40g0b55ff*00x "$ &(r55g0b55 *00x "$ &(r70g0b552*00x "$ &(ͫr85g0b55٘,00x $& (* r100g0b55(00x!" $&r0g0b702*00x "$ &(r40g0b70ff2IE*00x "$ &(CHr55g0b702|"*00x "$ &(r70g0b7022W*00x "$ &(,r85g0b70٘2Q,00x $& (* r100g0b702(00x!" $&r0g0b85٘*00x "$ &(r40g0b85ff٘*00x "$ &(r55g0b85٘*00x "$ &(r70g0b852٘*00x "$ &(r85g0b85٘٘,00x $& (* r100g0b85٘(00x"# $& r0g0b100,00x $& (*s"! r40g0b100ff,00x $& (*,D" r55g0b100,00x $& (*# r70g0b1002,00x $& (*cs$ r85g0b100٘,00x $& (*% r100g0b100(00x " $&&gray60ffffff$00x "'blue'00x! "$%(r0g40b0ff)00x " $&')r40g40b0ffff)00x " $&'*r55g40b0ff)00x " $&'p+r70g40b02ff)00x " $&',r85g40b0٘ff" $+00x $ &()- r100g40b0ff*00x" $ &(0.r0g40b40ffff,00x $ & (*/ r40g40b40ffffff0b0$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8j $eddAAe?"PKG_FICHIERS"SELECTION"PC$FILTRE"VARCHAR2"|All files|*.*|"15"" #7;<ABJNSWY[^bXYj,=nQc  %6Q66       $d ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ics" mh SELECTION 0800 0800$< 0800- display_cb checkbox# US6p 0headerfieldo  intro_in mlabel4X'(n  display_cb checkbox# b pauseb stop formwiz blokwiz help 0800Y0@0800 P08000800 0800  0r,00x $ & (*g0 r55g40b40ffff,00x $ & (*1 r70g40b402ffff,00x $ & (*002 r85g40b40٘ffff,00x $ & (*03 r100g40b40ffff*00x" $ &(f4r0g40b550ff,00x $ & (*f5 r40g40b55ffff,00x $ & (*f6 r55g40b55ff,00x $ & (*f7 r70g40b552ff,00x $ & (*8 r85g40b55٘ff,00x $ & (*9 r100g40b55ff*00x" $ &(:r0g40b705ff2 ",00x $ & (* ; r40g40b70ffff2,00x $ & (*< r55g40b70ff2,00x $ & (*= r70g40b702ff2,00x $ & (*> r85g40b70٘ff2,00x $ & (*? r100g40b70ff2*00x" $ &(@r0g40b850ff٘ &,00x $ & (*A r40g40b85ffff٘,00x $ & (*B r55g40b85ff٘,00x $ & (*C r70g40b852ff٘,00x $ & (*D r85g40b85٘ff٘,00x $ & (*E r100g40b85ff٘*00x# $ &(F r0g40b100ff,00x $ & (*G r40g40b100ffff,00x $ & (*H r55g40b100ff,00x $ & (*I r70g40b1002ff,00x $ & (*J r85g40b100٘ff.00x & ( *,0K r100g40b100ff0g(00x " $&Lgray45̌̌*00x "$ &(0Mmagenta '00x! "$%0Nr0g55b0s)00x " $&'Or40g55b0ff*)00x " $&'Pr55g55b0̌&)00x " $&'0Qr70g55b02')00x " $&'!Rr85g55b0٘b0+00x $ &()&S r100g55b0f*00x" $ &(&Tr0g55b40ffff,00x $ & (*&U r40g55b40ffff,00x $ & (*&V r55g55b40̌ff,00x $ & (*(W r70g55b402ff,00x $ & (* &X r85g55b40٘ff,00x $ & (* (Y r100g55b40ffffff0b0$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8j $eddAAe?"PKG_FICHIERS"SELECTION"PC$FILTRE"VARCHAR2"|All files|*.*|"15"" #7;<ABJNSWY[^bXYj,=nQc  %6Q66       $d ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ics" mh SELECTION 0800 0800$< 0800- display_cb checkbox# US6p 0headerfieldo  intro_in mlabel4X'(n  display_cb checkbox# b pauseb stop formwiz blokwiz help 0800Y0@0800 P08000800 0800  @r*00x" $ &(gZr0g55b550̌ff,00x $ & (*[ r40g55b55ff̌,00x $ & (*00\ r55g55b55̌̌,00x $ & (*0] r70g55b552̌,00x $ & (*f^ r85g55b55٘̌,00x $ & (*f_ r100g55b55̌*00x" $ &(f`r0g55b705̳2,00x $ & (*fa r40g55b70ff̳2,00x $ & (*b r55g55b70̳̌2,00x $ & (*c r70g55b702̳2,00x $ & (*d r85g55b70̳٘2,00x $ & (* e r100g55b70̳2*00x" $ &(fr0g55b850٘2,00x $ & (*g r40g55b85ff٘,00x $ & (*h r55g55b85̌٘,00x $ & (*i r70g55b852٘,00x $ & (*j r85g55b85٘٘,00x $ & (*k r100g55b85٘*00x# $ &(l r0g55b100٘,00x $ & (*m r40g55b100ff,00x $ & (*n r55g55b100̌,00x $ & (*o r70g55b1002,00x $ & (*p r85g55b100٘.00x & ( *,q r100g55b100(00x " $& rgray30222$00x  !"sred'00x! "$% $tr0g70b02g)00x " $&'ur40g70b0ff2100)00x " $&'0vr55g70b0̳2L)00x " $&'wr70g70b022age)00x " $&'xr85g70b0٘20g5+00x $ &() "y r100g70b020*00x" $ &( "zr0g70b402ffb0,00x $ & (* "{ r40g70b40ff2ff,00x $ & (* "| r55g70b40̳2ff,00x $ & (* $} r70g70b4022ff,00x $ & (*"~ r85g70b40٘2ff,00x $ & (* $ r100g70b402ff.08x& ( *, $00r0g70b552̌008x ( * ,. ( 00r40g70b55ff2008x ( * ,. & 00r55g70b55̳2,00x $ & (* (Y r100g55b40ffffff0b0$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8j $eddAAe?"PKG_FICHIERS"SELECTION"PC$FILTRE"VARCHAR2"|All files|*.*|"15"" #7;<ABJNSWY[^bXYj,=nQc  %6Q66       $d ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ics" mh SELECTION 0800 0800$< 0800- display_cb checkbox# US6p 0headerfieldo  intro_in mlabel4X'(n  display_cb checkbox# b pauseb stop formwiz blokwiz help 0800Y0@0800 P08000800 0800  Pr008x ( * ,.g 00r70g70b5522008x ( * ,.  00r85g70b55٘2008x ( * ,.5g 00r100g70b552.08x& ( *,b500r0g70b70522008x ( * ,.٘ 00r40g70b70ff22008x ( * ,. 00r55g70b70̳22008x ( * ,. 00r70g70b70222008x ( * ,. 00r85g70b70٘22008x ( * ,.0 00r100g70b7022.08x& ( *,00r0g70b8502٘b7008x ( * ,. $ 00r40g70b85ff2٘008x ( * ,. & 00r55g70b85̳2٘008x ( * ,. 00r70g70b8522٘008x ( * ,.  00r85g70b85٘2٘008x ( * ,.0g 00r100g70b852٘.08x' ( *,b8 00r0g70b1002008x ( * ,. 00r40g70b100ff2008x ( * ,.٘ 00r55g70b100̳2008x ( * ,. 00r70g70b10022008x ( * ,. 00r85g70b100٘2208x * , .00 00r100g70b1002b1,08x $ & (* &00gray15٘٘٘*08x" $ &(00cyan5ay+08x% &() 00r0g85b0٘-08x & (*+ $00r40g85b0ff٘)-08x & (*+0g00r55g85b0٘0-08x & (*+b000r70g85b02٘-08x & (*+200r85g85b0٘٘ "/08x ( *,-g5 00r100g85b0٘(.08x& ( *,00r0g85b40٘ff "008x ( * ,. 00r40g85b40ff٘ff008x ( * ,.0 00r55g85b40٘ff008x ( * ,. 00r70g85b402٘ff008x ( * ,. $ 00r85g85b40٘٘ff008x ( * ,. ( 00r100g85b40٘ff.08x& ( *, $00r0g85b550٘̌008x ( * ,. ( 00r40g85b55ff٘008x ( * ,. & 00r55g85b55٘008x ( * ,.  00r70g85b552٘̌$ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ 8j $eddAAe?"PKG_FICHIERS"SELECTION"PC$FILTRE"VARCHAR2"|All files|*.*|"15"" #7;<ABJNSWY[^bXYj,=nQc  %6Q66       $d ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H ics" mh SELECTION 0800 0800$< 0800- display_cb checkbox# US6p 0headerfieldo  intro_in mlabel4X'(n  display_cb checkbox# b pauseb stop formwiz blokwiz help 0800Y0@0800 P08000800 0800  ` r008x ( * ,.g 00r85g85b55٘٘008x ( * ,.  00r100g85b55٘.08x& ( *,5g00r0g85b705٘2008x ( * ,.b5 00r40g85b70ff٘2008x ( * ,.٘ 00r55g85b70٘2008x ( * ,. 00r70g85b702٘2008x ( * ,. 00r85g85b70٘٘2008x ( * ,. 00r100g85b70٘2.08x& ( *,000r0g85b850٘٘2008x ( * ,. 00r40g85b85ff٘٘008x ( * ,. $ 00r55g85b85٘٘008x ( * ,. & 00r70g85b852٘٘008x ( * ,. 00r85g85b85٘٘٘008x ( * ,.  00r100g85b85٘٘.08x' ( *,0g 00r0g85b100٘٘008x ( * ,.b8 00r40g85b100ff٘008x ( * ,. 00r55g85b100٘008x ( * ,.٘ 00r70g85b1002٘008x ( * ,. 00r85g85b100٘٘208x * , .0 00r100g85b100٘+08x $ &()00yellow2)08x# $&' (00green5٘-08x& (*+ &00r0g100b0ay/08x ( *,-  00r40g100b0ff/08x ( *,-² 00r55g100b0/08x ( *,-ò 00r70g100b02/08x ( *,-IJ 00r85g100b0٘/08x ( *,-Ų 00r100g100b0.08x' ( *,Ʋ 00r0g100b40ff008x ( * ,.Dz 00r40g100b40ffff008x ( * ,.Ȳ 00r55g100b40ff008x ( * ,.ɲ 00r70g100b402ff008x ( * ,.ʲ 00r85g100b40٘ff208x * , .0˲ 00r100g100b40ff.08x' ( *,00̲ 00r0g100b55008x ( * ,.00Ͳ 00r40g100b55ff008x ( * ,.00β 00r55g100b55008x ( * ,.00ϲ 00r70g100b552008x ( * ,.00в 00r85g100b55٘208x * , .0ͫѲ 00r100g100b55.08x' ( *,Ҳ 00r0g100b702008x ( * ,.Ӳ 00r40g100b70ff2008x ( * ,.Բ 00r55g100b702008x ( * ,.2"ղ 00r70g100b7022008x ( * ,.<ֲ 00r85g100b70٘2208x * , .0nײ 00r100g100b702.08x' ( *,ز 00r0g100b85٘008x ( * ,.ٲ 00r40g100b85ff٘008x ( * ,.ڲ 00r55g100b85٘008x ( * ,. ۲ 00r70g100b852٘008x ( * ,.ܲ 00r85g100b85٘٘208x * , .0ݲ 00r100g100b85٘008x( * ,.޲ 00r0g100b100208x * , .0_s߲ 00r40g100b100ffER208x * , .0 00r55g100b100208x * , .0 00r70g100b1002208x * , .0 00r85g100b100٘208x * , .0 00r100g100b100N*:BF((((( SQL*FormsFORM50:C:\Documents and Settings\degrelle\Bureau\WEBUTIL_DOCS.fmbxk *} ]xk *#];Copyright (c) Oracle Corporation 1990. All Rights Reserved.  (0US6p 0headerfieldo  intro_in mlabel4X'(n  display_cb checkbox# b pauseb stop formwiz blokwiz help 0800Y0@0800 P08000800 0800  pl   3 ; a ] :    4 @RUHkXPn!/G``AYoWEBUTIL_DOCSiD( pjdk Fld& Hd,4H|LTp 0@XpWebutil load/edit/store documentsCheckSpellUpload a local file into the databaseList of stored filesLoad and Edit documentsDownload, edit, upload documents and run checkspellLancer la correction par WordLancer la correction par WordStart the Word checkspellingText to checkStore the local binary file to the databaseStore the local binary file to the databaseStore local doc to databaseAfficher la barre de progression pendant le transfertAfficher la barre de progression pendant le transfertNDisplay progress barLocal file nameSelect a local file nameSelect a local file nameSelect a local file...Where clauseColumn nameDOCTable nameBIN_DOCSEdit the documentEdit the documentEdit and saveWebutil DocsWebUtil InformationOKErrorm &} &3G||||||333~ &NX  XVNFWEBUTIL_DOCSWebutil DocsFENETRE1TRANSFERTS E8 0 h D /C:WHEN-NEW-FORM-INSTANCEWHEN-NEW-FORM-INSTANCE   D   3 0 <n&%/AL_ERRORAL_ERRORError |   $/WEBUTIL_ERRORWEBUTIL_ERROR     $/ WEBUTILWEBUTILwebutil l',4D  U TdgT\BA h("xd&H'%:/BIN_DOCSBIN_DOCSBIN_DOCS| l   XZ[Y/IDENTIFIANT l  p XdZ[Y/NOM l   XZ[Y/DOCl l  H XZ[Y/IMAGEDOC_IDBIN_DOCSONGLETSBINAIRESE88P888X8D l4/:WHEN-MOUSE-DOUBLECLICKWHEN-MOUSE-DOUBLECLICKD l/8:KEY-ENTQRYKEY-ENTQRYD l/::KEY-EXEQRYKEY-EXEQRY8D lH/G:KEY-CRERECKEY-CRERECD l/H:KEY-DOWNKEY-DOWND l/8:KEY-UPKEY-UP04h l$t XB!t'uiylghjikC 7LJO /Z ~oNAMENAMENAMEONGLETSBINAIRESblackwhiteTahomar0g0b100Tahoma  l XJ!tu%iKylg(hjik/Z~DOC_IDDOC_IDDOC_IDblackwhiteTahoma<! lPd!xtuiylghjik||:/Z5~BT_OPEN_DOCBT_OPEN_DOCEdit and saveONGLETSBINAIRESr25g25b50whiteTahomaEdit the documentEdit the document"E8H#D4d/:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSED$U%:/TRANSFERTSTRANSFERTS%E8P&Dp/ :WHEN-NEW-RECORD-INSTANCEWHEN-NEW-RECORD-INSTANCE'l8!|#4%\ (%0 J!@Htu^iLylP\ghhjiktC 7LJO|/Z ~oNOM_TABLENOM_TABLEblackwhiteTahomaTable namer0g0b100Tahoma)% J!tuviLyl$g0hjik<CP `7LJO|/Z ~oNOM_COLONNENOM_COLONNEblackwhiteTahomaColumn namer0g0b100Tahoma*% J!tuiLylghjikC ,7LJO|/Z ~oCLAUSE_WHERECLAUSE_WHEREblackwhiteTahomaWhere clauser0g0b100Tahoma (+ 8 H! d ttuiyl  g hjik| | : /Zl5~BT_SELECTBT_SELECTSelect a local file...ONGLETSBINAIRESr25g25b50whiteTahomaSelect a local file nameSelect a local file name,E8! !D-D8!`/ p:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSED".!" !""tu;i7yl""g"hjik#C# #(7LJO|/Z ~oFIC_SOURCEFIC_SOURCEONGLETSBINAIRESblackwhiteTahomaLocal file namer0g0b100Tahoma$D/$X$l*$A$&!$$tuRiyl$$g$hjik|$|% /Z~CB_PROGRESSCB_PROGRESSDisplay progress barONONGLETSBINAIRESblackr100g100b100TahomaAfficher la barre de progression pendant le transfertAfficher la barre de progression pendant le transfert&L0&`&t!&&tumiyl&&g&hjik|&|':'H  /Z5~BT_CLIENT_DBBT_CLIENT_DBStore local doc to databaseONGLETSBINAIRESr25g25b50whiteTahomaStore the local binary file to the databaseStore the local binary file to the database1E8'h'2D%\'/  D:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSED(83 (DU%(P/OLEOLE4(x*d)5'() }!))tu0iy[l**g* hjik*,C*@ *P7LJO|*\|  /Z5 ~oTEXTTEXTONGLETSOLEr25g25b50whiteTahomaText to checkr0g0b100Tahoma+d6'+x+!++tuiyl++g+hjik|+|,:,< /Z5~BT_CORRECTIONBT_CORRECTIONStart the Word checkspellingONGLETSOLEr25g25b50whiteTahomaLancer la correction par WordLancer la correction par Word7E8,\,8D*d,/ :WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSED- 9-%-,/WEBUTILWEBUTIL: -/ 1l357: <8>`.D;,.P.\!.dtuiUyl.xg.hjik:.#/Z~DUMMYDUMMYOKWEBUTIL_CANVASblackArial<E8..=D-// :WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSED/>, /9/0!00tuioy:0/WEBUTIL_CLIENTINFO_FUNCTIONSWEBUTIL_CLIElNTINFO_FUNCTIONSBean Area that implements the various Client Machine Information features of WebUtil - Implementation Class isoracle.forms.webutil.clientInfo.GetClientInfooracle.forms.webutil.clientInfo.GetClientInfoWEBUTIL_CANVAS?E8014@D/ 1P/#:WHEN-CUSTOM-ITEM-EVENTWHEN-CUSTOM-ITEM-EVENT1A, 292$2!22tu#ioy:3/WEBUTIL_FILE_FUNCTIONSWEBUTIL_FILE_FUNCTIONSBean Area that implements the various File Handling features of WebUtil - Implementation Class is oracle.forms.webutil.file.FileFunctionsoracle.forms.webutil.file.FileFunctionsWEBUTIL_CANVASBE83 3XCD1l3t/:WHEN-CUSTOM-ITEM-EVENTWHEN-CUSTOM-ITEM-EVENT4D, 4,94H4!45 tu@ioy:5/WEBUTIL_HOST_FUNCTIONSWEBUTIL_HOST_FUNCTIONSBean Area that implements the various Host (OS Command) features of WebUtil - Implementation Class is oracle.forms.webutil.host.Hostoracle.forms.webutil.host.HostWEBUTIL_CANVASEE8545lFD35/:WHEN-CUSTOM-ITEM-EVENTWHEN-CUSTOM-ITEM-EVENT6$G, 6D96d7!747Htu]ioy:7P/WEBUTIL_SESSION_FUNCTIONSWEBUTIL_SESSION_FUNCTIONSBean Area that implements the various Session monitoring features of WebUtil - Implementation Class is oracle.forms.webutil.session.SessionFunctionsoracle.forms.webutil.session.SessionFunctionsWEBUTIL_CANVASHE87p7ID57/ :WHEN-CUSTOM-ITEM-EVENTWHEN-CUSTOM-ITEM-EVENT8`J, 8989@!9t9tu{ioy:9/WEBUTIL_FILETRANSFER_FUNCTIONSWEBUTIL_FILETRANSFER_FUNCTIONSBean Area that implements the various File Transfer features of WebUtil - Implementation Class is oracle.forms.webutil.fileTransfer.FileTransferoracle.forms.webutil.fileTransfer.FileTransferWEBUTIL_CANVASKE899LD7:/%:WHEN-CUSTOM-ITEM-EVENTWHEN-CUSTOM-ITEM-EVENT:M, :9:;`!;;tuioy:;/WEBUTIL_OLE_FUNCTIONSWEBUTIL_OLE_FUNCTIONSBean Area that implements the OLE Interface features of WebUtil - Implementation Class is oracle.forms.webutil.ole.OleFunctionsoracle.forms.webutil.ole.OleFunctionsWEBUTIL_CANVASNE8;<OD: </:WHEN-CUSTOM-ITEM-EVENTWHEN-CUSTOM-ITEM-EVENT<P, <9<=!==tuioy:=/WEBUTIL_C_API_FUNCTIONSWEBUTIL_C_API_FUNCTIONSBean Area that implements the low level C API feature of WebUtil - Implementation Class is oracle.forms.webutil.cApi.CApiFunctionsoracle.forms.webutil.cApi.CApiFunctionsWEBUTIL_CANVASQE8=>(RD<8>D/:WHEN-CUSTOM-ITEM-EVENTWHEN-CUSTOM-ITEM-EVENT>S, ?9? ?!@@tuioy:@/WEBUTIL_BROWSER_FUNCTIONSWEBUTIL_BROWSER_FUNCTIONSBean Area that implements the various Browser/SeprateFrame manipulation features of WebUtil - Implementation Class is oracle.forms.webutil.browser.BrowserFunctilons oracle.forms.webutil.browser.BrowserFunctionsWEBUTIL_CANVASTE8@<@tUD>`@/ :WHEN-CUSTOM-ITEM-EVENTWHEN-CUSTOM-ITEM-EVENTV @GOA\W  Ah_^oAtiyAA/]dD4 CV1CV1FENETRE1r100g100b100X ABxY @B  %tzu iy[BBBB/rTEXTE16TEXTE16nonewhitenoneZUBC[TACC$CMPTXT17CMPTXT17\WCDC]VB CGClDgD(hxjikm/Z[~TEXTSTR18TEXTSTR18Download, edit, upload documents and run checkspellr25g50b50Tahoma^L@K jjlFF[FFFFgGhjikUZr~`:` !"#$%&'()*+,-./ 01 234`56789:;dblackr100g100b100transparentblackblacktransparentTahomaG_ G-N O1_^oGiylGGH/LZdL@ ONGLETSONGLETSFENETRE1blackr100g100b100`YH8KHaXGHHH/]BINAIRESBINAIRESLoad and Edit documentsb HJXIc H8J%tuiyqJJ$ zJ@JL/{CADRE74CADRE74r100g100b100List of stored filesblackTahomaK`d H8Kp%tu iyqKK zKK/{CADRE75CADRE75r100g100b100Upload a local file into the databaseblackTahomaLeXGL$L0/]OLEOLECheckSpellfLGKq`jjlNN[NNNNgOhjikUZr~`:w !"#$%&'()*+,-./ 01 23w456789:;dblackr100g100b85transparentblackblacktransparentTahomaOg  O_^oO`aiyy/]dO WEBUTIL_CANVASWEBUTIL_ lCANVASWEBUTIL_HIDDEN_WINDOWhLOK@0lRHRT[R`RlRxRgRh jikZr~) !"#$%&'()*+,-./ 0X1 234)56789:;dblackgray20noneblackblacktransparentTahomai5RSj4S9S$jS/WEBUTILWEBUTILThe WebUtil object group contains everything needed to use WebUtil in your form - Subclass the Object Group into your Form k7ST8TTTl6RT$/jWEBUTIL_ERRORWEBUTIL_ERRORThm6RTN/jWEBUTIL_HIDDEN_WINDOWWEBUTIL_HIDDEN_WINDOWTn6RT /jWEBUTIL_CANVASWEBUTIL_CANVASU(o6RU8/jWEBUTILWEBUTILp;UUVPVWWWUq:U/)CHECKSPELLCHECKSPELLV8r:VD/INITINITVs:V/ :OPEN_DOCOPEN_DOCVt:W/gPKG_FICHIERSPKG_FICHIERSWXu:Wl/PKG_FICHIERSPKG_FICHIERSWv:W/$<PKG_TRANSFERTSPKG_TRANSFERTSX(w:X</-PKG_TRANSFERTSPKG_TRANSFERTSxOjXxjYXyNX3Xri yn/kFENETRE1FENETRE1Webutil load/edit/store documentsYpzN Y3YrY`vixyn"/kWEBUTIL_HIDDEN_WINDOWWEBUTIL_HIDDEN_WINDOWWebUtil InformationWEBUTIL_CANVAS{e @ZP@[@]|@_@`@al@b,@c@d@e@f`@hHZ|dZZCNDEFGH[xATRANSFERTS.FIC_SOURCETRANSFERTS.FIC_SOURCE}][[@~^ZP[0FIC_SOURCE^ZP[hTRANSFERTS[[[PKG_TRANSFERTSP9_07_SEP_200510_12_18P10_07_SEP_200510_12_18\Pd\l\CODEFGH] ATRANSFERTS.NOM_TABLETRANSFERTS.NOM_TABLE]\\^[\NOM_TABLE^[]TRANSFERTS]H]\PKG_TRANSFERTSP10_07_SEP_200510_12_18]d]^ CPDEFGH^ATRANSFERTS.NOM_COLONNETRANSFERTS.NOM_COLONNE]^4^p^]|^\NOM_COLONNE^]|^TRANSFERTS^^PKG_TRANSFERTSP10_07_SEP_200510_12_18_\d_|_CQDEFGH`8ATRANSFERTS.CLAUSE_WHERETRANSFERTS.CLAUSE_WHERE"l]_`^__CLAUSE_WHERE^_`(TRANSFERTS`h`|`PKG_TRANSFERTSP8_07_SEP_200510_12_18P10_07_SEP_200510_12_18ada$CeDEFGHa@ASYSTEM.MESSAGE_LEVELSYSTEM.MESSAGE_LEVELa`INITadaChDEFGHaASYSTEM.LAST_RECORDSYSTEM.LAST_RECORDb P15_07_SEP_200510_12_18bdbbCiDEFGHcXATRANSFERTS.CB_PROGRESSTRANSFERTS.CB_PROGRESS]bc ^b,c CB_PROGRESS^b,cHTRANSFERTScxP10_07_SEP_200510_12_18cdddCjDEF}GHdAOLE.TEXTOLE.TEXT]d8dl^cd`TEXT^cdOLEdP7_07_SEP_200510_12_18e,deDCkDEFGHe\ASYSTEM.CURSOR_ITEMSYSTEM.CURSOR_ITEMe|P7_07_SEP_200510_12_18edfClDEFGHf ASYSTEM.CURSOR_BLOCKSYSTEM.CURSOR_BLOCKf@P18_06_SEP_200510_00_24fdfCmDEFGHfASYSTEM.CUSTOM_ITEM_EVENTSYSTEM.CUSTOM_ITEM_EVENTgHghgggghh(P19_06_SEP_200510_00_24P20_06_SEP_200510_00_24P21_06_SEP_200510_00_24P22_06_SEP_200510_00_24P23_06_SEP_200510_00_24P24_06_SEP_200510_00_24P25_06_SEP_200510_00_24P26_06_SEP_200510_00_24hdhCnDEFGHhASYSTEM.CUSTOM_ITEM_EVENT_PARAMETERSSYSTEM.CUSTOM_ITEM_EVENT_PARAMETERSiHihiiiijj(P19_06_SEP_200510_00_24P20_06_SEP_200510_00_24P21_06_SEP_200510_00_24P22_06_SEP_200510_00_24P23_06_SEP_200510_00_24P24_06_SEP_200510_00_24P25_06_SEP_200510_00_24P26_06_SEP_200510_00_24em.cursor_item""!%&(,2679=AE }j   k T TS  ,plsql_compiler_flags"nls_length_semantics"INTERPRETED,DEBUG"BYTE"ͫͫͫͫͫͫͫ H TT8ics" D<j   k  $&$G E$D$F!,\Please, enter a textOLE.TEXT 4}D < 38IS  4jk<ABJNST\`efnrwx  $(-.6:?@HLPUV^bcgk #()15:;CGLMUY]auyz #$,056>BFKLTXY]auyz #'(*XYj,======Mj,===