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