class= " lineNumbers " de
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
23 :
24 :
25 :
26 :
27 :
28 :
29 :
30 :
31 :
32 :
33 :
34 :
35 :
36 :
37 :
38 :
39 :
40 :
41 :
42 :
43 :
44 :
45 :
46 :
47 :
48 :
49 :
50 :
51 :
52 :
53 :
54 :
55 :
56 :
57 :
58 :
59 :
60 :
61 :
62 :
63 :
64 :
65 :
66 :
67 :
68 :
69 :
70 :
71 :
72 :
73 :
74 :
75 :
76 :
77 :
78 :
79 :
80 :
81 :
82 :
83 :
84 :
85 :
86 :
87 :
88 :
89 :
90 :
91 :
92 :
93 :
94 :
95 :
96 :
97 :
98 :
99 :
100 :
101 :
102 :
103 :
104 :
105 :
106 :
107 :
108 :
109 :
110 :
111 :
112 :
113 :
114 :
115 :
116 :
117 :
118 :
119 :
120 :
121 :
122 :
123 :
124 :
125 :
126 :
127 :
128 :
129 :
130 :
131 :
132 :
133 :
134 :
135 :
136 :
137 :
138 :
139 :
140 :
141 :
142 :
143 :
144 :
145 :
146 :
147 :
148 :
149 :
150 :
151 :
152 :
153 :
154 :
155 :
156 :
157 :
158 :
159 :
160 :
161 :
162 :
163 :
164 :
165 :
166 :
167 :
168 :
169 :
170 :
171 :
172 :
173 :
174 :
175 :
176 :
177 :
178 :
179 :
180 :
181 :
182 :
183 :
184 :
185 :
186 :
187 :
188 :
189 :
190 :
191 :
192 :
193 :
194 :
195 :
196 :
197 :
198 :
199 :
200 :
201 :
202 :
203 :
204 :
205 :
206 :
207 :
208 :
209 :
210 :
211 :
212 :
213 :
214 :
215 :
216 :
217 :
218 :
219 :
220 :
221 :
222 :
223 :
224 :
225 :
226 :
227 :
228 :
229 :
230 :
231 :
232 :
|
class= de
># " de l'id= " codeSnippet786631 de new ($xls_file) ;
mon $worksheet = $workbook->addworksheet (« écritures comptables de signalisation ») ;
mon $worksheet1 = $workbook->addworksheet (« authentification ») ;
mon $format1 = $workbook->add_format () ;
mon $format2 = $workbook->add_format () ;
mon $format3 = $workbook->add_format (=> « mm/dd/yy de num_format ") ;
$format1->set_size (12) ;
$format1->set_bold () ;
$format1->set_color (« bleu ") ;
$format1->set_align (« centre ") ;
$format1->set_bg_color (« jaune ") ;
#$format2->set_num_format (« général ") ;
Le ############# définissent le cahier de travail pour le ############################### de questions de SQL
mon $sql_parser = bilan : : ParseExcel->new () ;
mon $sql_workbook = $sql_parser->parse (« /ms/user/s/sayantag/SQL_Queries.xls ») ;
mon $sql_worksheet ;
############################################################################
mon $col=0 ;
mon $row=0 ;
foreach mon $i (
« JRNL_ID »
, « ACCTNG_PERIOD_ID »
, « FCP_ID »
, « LDGR_TYPE_CDE »
, « BA_HRCHY_ID »
, « BA_NID »
, « LE_HRCHY_ID »
, « LE_NID »
, « REGION_HRCHY_ID »
, « REGION_NID »
, « ASSET_ID »
, « QTP_KEY_ID »
, « CHANGE_CTGRY_ID »
, « ELIMINATION_ID »
, « SRC_ID »
, « JRNL_VAL »
, « EFFECTIVE_DTE »
, « RULE_ID »
, « JRNL_SET_ID »
, « CCY »
, « TRANSLATED_CCY »
, « UOM_CCY »
, « RUN_GROUP_ID »
, « BA_CNTRPTY_ID »
, « INTERCPNY_CNTRPTY_ID »
, « REGION_CNTRPTY_ID »
, « TICKET_REF_NO »
, « MASTER_TICKET_REF_NO »
, « HEADER_ID »
)
{
$worksheet->write (0, $col++, $i, $format1) ;
}
La question d'Accesing de ################## du SQL questionne le ##################### de cahier de travail
pour $sql_worksheet ($sql_workbook->worksheets ()) {
mon ($row_min, $row_max) = $sql_worksheet->row_range () ;
mon ($col_min, $col_max) = $sql_worksheet->col_range () ;
pour mon $row ($row_min. $row_max) {for## de ##First
pour mon $col ($col_min. $col_max) {for## de ##Second
mon $cell = $sql_worksheet->get_cell ($row, $col) ;
si ($col==0 && $row ! && =0 eq « Query1 » (de $sql_worksheet->get_cell ($row, 0))) {
$col++ ;
mon $query = $sql_worksheet->get_cell ($row, $col) - >value ;
##############################################################################
mon $dbh = DBI->connect (« dbi : MSDB2 : NQ200001 », '', '', {« RaiseError » => 1}) ou
mourir « ne peut pas se relier à la base de données : $DBI : : errstr » ;
mon $sql = « $query » ;
mon $sth = $dbh->prepare ($sql) ;
$sth->execute () ;
$row = 1 ;
tandis que (mon $a = $sth->fetchrow_hashref ()) {
$worksheet->write ($row, 0, (défini ($a-> {« JRNL_ID »}) ? $a-> {« JRNL_ID »} : « [NULLE] "), $format2) ;
$worksheet->write ($row, 1, (défini ($a-> {« ACCTNG_PERIOD_ID »}) ? $a-> {« ACCTNG_PERIOD_ID »} : « [NULLE] "), $format2) ;
$worksheet->write ($row, 2, (définis ($a-> {« FCP_ID »}) ? $a-> {« FCP_ID »} : « [NULLE] "), $format2) ;
$worksheet->write ($row, 3, (définis ($a-> {« LDGR_TYPE_CDE »}) ? $a-> {« LDGR_TYPE_CDE »} : « [NULLE] "), $format2) ;
$worksheet->write ($row, 4, (définis ($a-> {« BA_HRCHY_ID »}) ? $a-> {« BA_HRCHY_ID »} : « [NULLE] "), $format2) ;
$worksheet->write ($row, 5, (définis ($a-> {« BA_NID »}) ? $a-> {« BA_NID »} : « [NULLE] "), $format2) ;
$worksheet->write ($row, 6, (définis ($a-> {« LE_HRCHY_ID »}) ? $a-> {« LE_HRCHY_ID »} : « [NULLE] "), $format2) ;
$worksheet->write ($row, 7, (définis ($a-> {« LE_NID »}) ? $a-> {« LE_NID »} : « [NULLE] "), $format2) ;
$worksheet->write ($row, 8, (définis ($a-> {« REGION_HRCHY_ID »}) ? $a-> {« REGION_HRCHY_ID »} : « [NULLE] "), $format2) ;
$worksheet->write ($row, 9, (définis ($a-> {« REGION_NID »}) ? $a-> {« REGION_NID »} : « [NULLE] "), $format2) ;
$worksheet->write ($row, 10, (définis ($a-> {« ASSET_ID »}) ? $a-> {« ASSET_ID »} : « [NULLE] "), $format2) ;
$worksheet->write ($row, 11, (définis ($a-> {« QTP_KEY_ID »}) ? $a-> {« QTP_KEY_ID »} : « [NULLE] "), $format2) ;
$worksheet->write ($row, 12, (définis ($a-> {« CHANGE_CTGRY_ID »}) ? $a-> {« CHANGE_CTGRY_ID »} : « [NULLE] "), $format2) ;
$worksheet->write ($row, 13, (définis ($a-> {« ELIMINATION_ID »}) ? $a-> {« ELIMINATION_ID »} : « [NULLE] "), $format2) ;
$worksheet->write ($row, 14, (définis ($a-> {« SRC_ID »}) ? $a-> {« SRC_ID »} : « [NULLE] "), $format2) ;
$worksheet->write ($row, 15, (définis ($a-> {« JRNL_VAL »}) ? $a-> {« JRNL_VAL »} : « [NULLE] "), $format2) ;
$worksheet->write ($row, 16, (définis ($a-> {« EFFECTIVE_DTE »}) ? $a-> {« EFFECTIVE_DTE »} : « [NULLE] "), $format3) ;
$worksheet->write ($row, 17, (définis ($a-> {« RULE_ID »}) ? $a-> {« RULE_ID »} : « [NULLE] "), $format2) ;
$worksheet->write ($row, 18, (définis ($a-> {« JRNL_SET_ID »}) ? $a-> {« JRNL_SET_ID »} : « [NULLE] "), $format2) ;
$worksheet->write ($row, 19, (définis ($a-> {« CCY »}) ? $a-> {« CCY »} : « [NULLE] "), $format2) ;
$worksheet->write ($row, 20, (définis ($a-> {« TRANSLATED_CCY »}) ? $a-> {« TRANSLATED_CCY »} : « [NULLE] "), $format2) ;
$worksheet->write ($row, 21, (définis ($a-> {« UOM_CCY »}) ? $a-> {« UOM_CCY »} : « [NULLE] "), $format2) ;
$worksheet->write ($row, 22, (définis ($a-> {« RUN_GROUP_ID »}) ? $a-> {« RUN_GROUP_ID »} : « [NULLE] "), $format2) ;
$worksheet->write ($row, 23, (définis ($a-> {« BA_CNTRPTY_ID »}) ? $a-> {« BA_CNTRPTY_ID »} : « [NULLE] "), $format2) ;
$worksheet->write ($row, 24, (défini ($a-> {« INTERCPNY_CNTRPTY_ID »}) ? $a-> {« INTERCPNY_CNTRPTY_ID »} : « [NULLE] "), $format2) ;
$worksheet->write ($row, 25, (définis ($a-> {« REGION_CNTRPTY_ID »}) ? $a-> {« REGION_CNTRPTY_ID »} : « [NULLE] "), $format2) ;
$worksheet->write ($row, 26, (définis ($a-> {« TICKET_REF_NO »}) ? $a-> {« TICKET_REF_NO »} : « [NULLE] "), $format2) ;
$worksheet->write ($row, 27, (définis ($a-> {« MASTER_TICKET_REF_NO »}) ? $a-> {« MASTER_TICKET_REF_NO »} : « [NULLE] "), $format2) ;
$worksheet->write ($row, 28, (définis ($a-> {« HEADER_ID »}) ? $a-> {« HEADER_ID »} : « [NULLE] "), $format2) ;
$row++ ;
}
$sth->finish () ;
} le ###End si pour le SQL questionne le ### de cahier de travail
#################################### DE FEUILLE DE ###################### DEUXIÈMES
$col=0 ;
foreach mon $i (« NUM_ROWS », « NUM_PROCESSED », « NUM_FAILED », « NUM_OUTPUT_ROWS »)
{
$worksheet1->write (0, $col++, $i, $format1) ;
}
Le ##################### Accesing SQL questionne le ######################### de cahier de travail encore
si ($col==0 && $row ! && =0 eq « Query2 » (de $sql_worksheet->get_cell ($row, 0))) {
$col++ ;
mon $query = $sql_worksheet->get_cell ($row, $col) - >value ;
mon $dbh = DBI->connect (« dbi : MSDB2 : NQ230001 », '', '', {« RaiseError » => 1}) ou
mourir « ne peut pas se relier à la base de données : $DBI : : errstr » ;
mon $sql = « $query » ;
mon $sth = $dbh->prepare ($sql) ;
$sth->execute () ;
$row = 1 ;
tandis que (mon $a = $sth->fetchrow_hashref ()) {
$worksheet1->write ($row, 0, $a-> {« NUM_ROWS »}, $format2) ;
$worksheet1->write ($row, 1, $a-> {« NUM_PROCESSED »}, $format2) ;
$worksheet1->write ($row, 2, $a-> {« NUM_FAILED »}, $format2) ;
$worksheet1->write ($row, 3, $a-> {« NUM_OUTPUT_ROWS »}, $format2) ;
$row++ ;
}
$sth->finish () ;
} #########End si pour la deuxième fois (pour la feuille de travail d'authentification du dossier produit original) pour le SQL questionne le ######## de cahier de travail
}
}
}
$workbook->close () ;
#exit ;
si (- s $xls_file) {
« d'impression \ n \ nFile être comparé est produit avec la taille différente de zéro. \ n \ n » ;
}
autrement {
« d'impression \ n \ nFile produit est de zéro-taille. La difficulté de Pls les issues et les régénèrent encore avant de comparer \ n \ n » ;
}
|
