Revision b65a230d
Von Sven Schöling vor fast 15 Jahren hinzugefügt
| bin/mozilla/gl.pl | ||
|---|---|---|
| 250 | 250 |
} |
| 251 | 251 |
|
| 252 | 252 |
my $department = qq| |
| 253 |
<tr>
|
|
| 254 |
<th align=right nowrap>| . $locale->text('Department') . qq|</th>
|
|
| 255 |
<td colspan=3><select name=department>$form->{selectdepartment}</select></td>
|
|
| 256 |
</tr>
|
|
| 253 |
<tr>
|
|
| 254 |
<th align=right nowrap>| . $locale->text('Department') . qq|</th>
|
|
| 255 |
<td colspan=3><select name=department>$form->{selectdepartment}</select></td>
|
|
| 256 |
</tr>
|
|
| 257 | 257 |
| if $form->{selectdepartment};
|
| 258 | 258 |
|
| 259 | 259 |
$form->get_lists("projects" => { "key" => "ALL_PROJECTS",
|
| ... | ... | |
| 321 | 321 |
<tr> |
| 322 | 322 |
<td> |
| 323 | 323 |
<table> |
| 324 |
<tr>
|
|
| 325 |
<th align=right>| . $locale->text('Reference') . qq|</th>
|
|
| 326 |
<td><input name=reference size=20></td>
|
|
| 327 |
<th align=right>| . $locale->text('Source') . qq|</th>
|
|
| 328 |
<td><input name=source size=20></td>
|
|
| 329 |
</tr>
|
|
| 330 |
$department
|
|
| 331 |
<tr>
|
|
| 332 |
<th align=right>| . $locale->text('Description') . qq|</th>
|
|
| 333 |
<td colspan=3><input name=description size=40></td>
|
|
| 334 |
</tr>
|
|
| 335 |
<tr>
|
|
| 336 |
<th align=right>| . $locale->text('Notes') . qq|</th>
|
|
| 337 |
<td colspan=3><input name=notes size=40></td>
|
|
| 338 |
</tr>
|
|
| 339 |
<tr>
|
|
| 340 |
<th align=right>| . $locale->text('Project Number') . qq|</th>
|
|
| 341 |
<td colspan=3>$projectnumber</td>
|
|
| 342 |
</tr>
|
|
| 343 |
<tr>
|
|
| 344 |
<th align=right>| . $locale->text('From') . qq|</th>
|
|
| 324 |
<tr>
|
|
| 325 |
<th align=right>| . $locale->text('Reference') . qq|</th>
|
|
| 326 |
<td><input name=reference size=20></td>
|
|
| 327 |
<th align=right>| . $locale->text('Source') . qq|</th>
|
|
| 328 |
<td><input name=source size=20></td>
|
|
| 329 |
</tr>
|
|
| 330 |
$department
|
|
| 331 |
<tr>
|
|
| 332 |
<th align=right>| . $locale->text('Description') . qq|</th>
|
|
| 333 |
<td colspan=3><input name=description size=40></td>
|
|
| 334 |
</tr>
|
|
| 335 |
<tr>
|
|
| 336 |
<th align=right>| . $locale->text('Notes') . qq|</th>
|
|
| 337 |
<td colspan=3><input name=notes size=40></td>
|
|
| 338 |
</tr>
|
|
| 339 |
<tr>
|
|
| 340 |
<th align=right>| . $locale->text('Project Number') . qq|</th>
|
|
| 341 |
<td colspan=3>$projectnumber</td>
|
|
| 342 |
</tr>
|
|
| 343 |
<tr>
|
|
| 344 |
<th align=right>| . $locale->text('From') . qq|</th>
|
|
| 345 | 345 |
$button1 |
| 346 |
<th align=right>| . $locale->text('To (time)') . qq|</th>
|
|
| 346 |
<th align=right>| . $locale->text('To (time)') . qq|</th>
|
|
| 347 | 347 |
$button2 |
| 348 |
</tr>
|
|
| 349 |
<tr>
|
|
| 350 |
<th align=right>| . $locale->text('Include in Report') . qq|</th>
|
|
| 351 |
<td colspan=3>
|
|
| 352 |
<table>
|
|
| 353 |
<tr>
|
|
| 354 |
<td>
|
|
| 355 |
<input name="category" class=radio type=radio value=X checked> |
|
|
| 348 |
</tr>
|
|
| 349 |
<tr>
|
|
| 350 |
<th align=right>| . $locale->text('Include in Report') . qq|</th>
|
|
| 351 |
<td colspan=3>
|
|
| 352 |
<table>
|
|
| 353 |
<tr>
|
|
| 354 |
<td>
|
|
| 355 |
<input name="category" class=radio type=radio value=X checked> |
|
|
| 356 | 356 |
. $locale->text('All') . qq|
|
| 357 |
<input name="category" class=radio type=radio value=A> |
|
|
| 357 |
<input name="category" class=radio type=radio value=A> |
|
|
| 358 | 358 |
. $locale->text('Asset') . qq|
|
| 359 |
<input name="category" class=radio type=radio value=L> |
|
|
| 359 |
<input name="category" class=radio type=radio value=L> |
|
|
| 360 | 360 |
. $locale->text('Liability') . qq|
|
| 361 |
<input name="category" class=radio type=radio value=I> |
|
|
| 361 |
<input name="category" class=radio type=radio value=I> |
|
|
| 362 | 362 |
. $locale->text('Revenue') . qq|
|
| 363 |
<input name="category" class=radio type=radio value=E> |
|
|
| 363 |
<input name="category" class=radio type=radio value=E> |
|
|
| 364 | 364 |
. $locale->text('Expense') . qq|
|
| 365 |
</td>
|
|
| 366 |
</tr>
|
|
| 367 |
<tr>
|
|
| 368 |
<table>
|
|
| 369 |
<tr>
|
|
| 370 |
<td align=right><input name="l_id" class=checkbox type=checkbox value=Y></td>
|
|
| 371 |
<td>| . $locale->text('ID') . qq|</td>
|
|
| 372 |
<td align=right><input name="l_transdate" class=checkbox type=checkbox value=Y checked></td>
|
|
| 373 |
<td>| . $locale->text('Date') . qq|</td>
|
|
| 374 |
<td align=right><input name="l_reference" class=checkbox type=checkbox value=Y checked></td>
|
|
| 375 |
<td>| . $locale->text('Reference') . qq|</td>
|
|
| 376 |
<td align=right><input name="l_description" class=checkbox type=checkbox value=Y checked></td>
|
|
| 377 |
<td>| . $locale->text('Description') . qq|</td>
|
|
| 378 |
<td align=right><input name="l_notes" class=checkbox type=checkbox value=Y></td>
|
|
| 379 |
<td>| . $locale->text('Notes') . qq|</td>
|
|
| 380 |
</tr>
|
|
| 381 |
<tr>
|
|
| 382 |
<td align=right><input name="l_debit" class=checkbox type=checkbox value=Y checked></td>
|
|
| 383 |
<td>| . $locale->text('Debit') . qq|</td>
|
|
| 384 |
<td align=right><input name="l_credit" class=checkbox type=checkbox value=Y checked></td>
|
|
| 385 |
<td>| . $locale->text('Credit') . qq|</td>
|
|
| 386 |
<td align=right><input name="l_source" class=checkbox type=checkbox value=Y checked></td>
|
|
| 387 |
<td>| . $locale->text('Source') . qq|</td>
|
|
| 388 |
<td align=right><input name="l_accno" class=checkbox type=checkbox value=Y checked></td>
|
|
| 389 |
<td>| . $locale->text('Account') . qq|</td>
|
|
| 390 |
</tr>
|
|
| 391 |
<tr>
|
|
| 392 |
<td align=right><input name="l_subtotal" class=checkbox type=checkbox value=Y></td>
|
|
| 393 |
<td>| . $locale->text('Subtotal') . qq|</td>
|
|
| 394 |
<td align=right><input name="l_projectnumbers" class=checkbox type=checkbox value=Y></td>
|
|
| 395 |
<td>| . $locale->text('Project Number') . qq|</td>
|
|
| 396 |
</tr>
|
|
| 397 |
</table>
|
|
| 398 |
</tr>
|
|
| 399 |
</table>
|
|
| 400 |
</tr>
|
|
| 365 |
</td>
|
|
| 366 |
</tr>
|
|
| 367 |
<tr>
|
|
| 368 |
<table>
|
|
| 369 |
<tr>
|
|
| 370 |
<td align=right><input name="l_id" class=checkbox type=checkbox value=Y></td>
|
|
| 371 |
<td>| . $locale->text('ID') . qq|</td>
|
|
| 372 |
<td align=right><input name="l_transdate" class=checkbox type=checkbox value=Y checked></td>
|
|
| 373 |
<td>| . $locale->text('Date') . qq|</td>
|
|
| 374 |
<td align=right><input name="l_reference" class=checkbox type=checkbox value=Y checked></td>
|
|
| 375 |
<td>| . $locale->text('Reference') . qq|</td>
|
|
| 376 |
<td align=right><input name="l_description" class=checkbox type=checkbox value=Y checked></td>
|
|
| 377 |
<td>| . $locale->text('Description') . qq|</td>
|
|
| 378 |
<td align=right><input name="l_notes" class=checkbox type=checkbox value=Y></td>
|
|
| 379 |
<td>| . $locale->text('Notes') . qq|</td>
|
|
| 380 |
</tr>
|
|
| 381 |
<tr>
|
|
| 382 |
<td align=right><input name="l_debit" class=checkbox type=checkbox value=Y checked></td>
|
|
| 383 |
<td>| . $locale->text('Debit') . qq|</td>
|
|
| 384 |
<td align=right><input name="l_credit" class=checkbox type=checkbox value=Y checked></td>
|
|
| 385 |
<td>| . $locale->text('Credit') . qq|</td>
|
|
| 386 |
<td align=right><input name="l_source" class=checkbox type=checkbox value=Y checked></td>
|
|
| 387 |
<td>| . $locale->text('Source') . qq|</td>
|
|
| 388 |
<td align=right><input name="l_accno" class=checkbox type=checkbox value=Y checked></td>
|
|
| 389 |
<td>| . $locale->text('Account') . qq|</td>
|
|
| 390 |
</tr>
|
|
| 391 |
<tr>
|
|
| 392 |
<td align=right><input name="l_subtotal" class=checkbox type=checkbox value=Y></td>
|
|
| 393 |
<td>| . $locale->text('Subtotal') . qq|</td>
|
|
| 394 |
<td align=right><input name="l_projectnumbers" class=checkbox type=checkbox value=Y></td>
|
|
| 395 |
<td>| . $locale->text('Project Number') . qq|</td>
|
|
| 396 |
</tr>
|
|
| 397 |
</table>
|
|
| 398 |
</tr>
|
|
| 399 |
</table>
|
|
| 400 |
</tr>
|
|
| 401 | 401 |
</table> |
| 402 | 402 |
</td> |
| 403 | 403 |
</tr> |
| ... | ... | |
| 1085 | 1085 |
|
| 1086 | 1086 |
my $department; |
| 1087 | 1087 |
$department = qq| |
| 1088 |
<tr>
|
|
| 1089 |
<th align=right nowrap>| . $locale->text('Department') . qq|</th>
|
|
| 1090 |
<td colspan=3><select name=department>$form->{selectdepartment}</select></td>
|
|
| 1091 |
<input type=hidden name=selectdepartment value="$form->{selectdepartment}">
|
|
| 1092 |
</tr>
|
|
| 1088 |
<tr>
|
|
| 1089 |
<th align=right nowrap>| . $locale->text('Department') . qq|</th>
|
|
| 1090 |
<td colspan=3><select name=department>$form->{selectdepartment}</select></td>
|
|
| 1091 |
<input type=hidden name=selectdepartment value="$form->{selectdepartment}">
|
|
| 1092 |
</tr>
|
|
| 1093 | 1093 |
| if $form->{selectdepartment};
|
| 1094 | 1094 |
if ($init) {
|
| 1095 | 1095 |
$form->{fokus} = "gl.reference";
|
| ... | ... | |
| 1161 | 1161 |
. " $form->{previous_gldate}"
|
| 1162 | 1162 |
. qq|</td> |
| 1163 | 1163 |
</tr> |
| 1164 |
<tr>
|
|
| 1165 |
<th align=right>| . $locale->text('Reference') . qq|</th>
|
|
| 1166 |
<td><input name=reference size=20 value="$form->{reference}" $readonly></td>
|
|
| 1167 |
<td align=left>
|
|
| 1168 |
<table>
|
|
| 1169 |
<tr>
|
|
| 1170 |
<th align=right nowrap>| . $locale->text('Date') . qq|</th>
|
|
| 1164 |
<tr>
|
|
| 1165 |
<th align=right>| . $locale->text('Reference') . qq|</th>
|
|
| 1166 |
<td><input name=reference size=20 value="$form->{reference}" $readonly></td>
|
|
| 1167 |
<td align=left>
|
|
| 1168 |
<table>
|
|
| 1169 |
<tr>
|
|
| 1170 |
<th align=right nowrap>| . $locale->text('Date') . qq|</th>
|
|
| 1171 | 1171 |
$button1 |
| 1172 |
</tr>
|
|
| 1173 |
</table>
|
|
| 1174 |
</td>
|
|
| 1175 |
</tr>|;
|
|
| 1172 |
</tr>
|
|
| 1173 |
</table>
|
|
| 1174 |
</td>
|
|
| 1175 |
</tr>|;
|
|
| 1176 | 1176 |
if ($form->{id}) {
|
| 1177 | 1177 |
print qq| |
| 1178 |
<tr>
|
|
| 1179 |
<th align=right>| . $locale->text('Belegnummer') . qq|</th>
|
|
| 1180 |
<td><input name=id size=20 value="$form->{id}" $readonly></td>
|
|
| 1181 |
<td align=left>
|
|
| 1182 |
<table>
|
|
| 1183 |
<tr>
|
|
| 1184 |
<th align=right width=50%>| . $locale->text('Buchungsdatum') . qq|</th>
|
|
| 1185 |
<td align=left><input name=gldate size=11 title="$myconfig{dateformat}" value=$form->{gldate} $readonly onBlur=\"check_right_date_format(this)\"></td>
|
|
| 1186 |
</tr>
|
|
| 1187 |
</table>
|
|
| 1188 |
</td>
|
|
| 1189 |
</tr>|;
|
|
| 1178 |
<tr>
|
|
| 1179 |
<th align=right>| . $locale->text('Belegnummer') . qq|</th>
|
|
| 1180 |
<td><input name=id size=20 value="$form->{id}" $readonly></td>
|
|
| 1181 |
<td align=left>
|
|
| 1182 |
<table>
|
|
| 1183 |
<tr>
|
|
| 1184 |
<th align=right width=50%>| . $locale->text('Buchungsdatum') . qq|</th>
|
|
| 1185 |
<td align=left><input name=gldate size=11 title="$myconfig{dateformat}" value=$form->{gldate} $readonly onBlur=\"check_right_date_format(this)\"></td>
|
|
| 1186 |
</tr>
|
|
| 1187 |
</table>
|
|
| 1188 |
</td>
|
|
| 1189 |
</tr>|;
|
|
| 1190 | 1190 |
} |
| 1191 | 1191 |
print qq| |
| 1192 |
$department|;
|
|
| 1192 |
$department|;
|
|
| 1193 | 1193 |
if ($form->{id}) {
|
| 1194 | 1194 |
print qq| |
| 1195 |
<tr>
|
|
| 1196 |
<th align=right width=1%>| . $locale->text('Description') . qq|</th>
|
|
| 1197 |
<td width=1%>$description</td>
|
|
| 1195 |
<tr>
|
|
| 1196 |
<th align=right width=1%>| . $locale->text('Description') . qq|</th>
|
|
| 1197 |
<td width=1%>$description</td>
|
|
| 1198 | 1198 |
<td> |
| 1199 |
<table>
|
|
| 1200 |
<tr>
|
|
| 1201 |
<th align=left>| . $locale->text('MwSt. inkl.') . qq|</th>
|
|
| 1202 |
<td><input type=checkbox name=taxincluded value=1 $taxincluded></td>
|
|
| 1203 |
</tr>
|
|
| 1204 |
</table>
|
|
| 1205 |
</td>
|
|
| 1206 |
<td align=left>
|
|
| 1207 |
<table width=100%>
|
|
| 1208 |
<tr>
|
|
| 1209 |
<th align=right width=50%>| . $locale->text('Mitarbeiter') . qq|</th>
|
|
| 1210 |
<td align=left><input name=employee size=20 value="| . H($form->{employee}) . qq|" readonly></td>
|
|
| 1211 |
</tr>
|
|
| 1212 |
</table>
|
|
| 1213 |
</td>
|
|
| 1214 |
</tr>|;
|
|
| 1199 |
<table>
|
|
| 1200 |
<tr>
|
|
| 1201 |
<th align=left>| . $locale->text('MwSt. inkl.') . qq|</th>
|
|
| 1202 |
<td><input type=checkbox name=taxincluded value=1 $taxincluded></td>
|
|
| 1203 |
</tr>
|
|
| 1204 |
</table>
|
|
| 1205 |
</td>
|
|
| 1206 |
<td align=left>
|
|
| 1207 |
<table width=100%>
|
|
| 1208 |
<tr>
|
|
| 1209 |
<th align=right width=50%>| . $locale->text('Mitarbeiter') . qq|</th>
|
|
| 1210 |
<td align=left><input name=employee size=20 value="| . H($form->{employee}) . qq|" readonly></td>
|
|
| 1211 |
</tr>
|
|
| 1212 |
</table>
|
|
| 1213 |
</td>
|
|
| 1214 |
</tr>|;
|
|
| 1215 | 1215 |
} else {
|
| 1216 | 1216 |
print qq| |
| 1217 |
<tr>
|
|
| 1218 |
<th align=left width=1%>| . $locale->text('Description') . qq|</th>
|
|
| 1219 |
<td width=1%>$description</td>
|
|
| 1220 |
<td>
|
|
| 1221 |
<table>
|
|
| 1222 |
<tr>
|
|
| 1223 |
<th align=left>| . $locale->text('MwSt. inkl.') . qq|</th>
|
|
| 1224 |
<td><input type=checkbox name=taxincluded value=1 $taxincluded></td>
|
|
| 1225 |
</tr>
|
|
| 1226 |
</table>
|
|
| 1227 |
</td>
|
|
| 1228 |
</tr>|;
|
|
| 1217 |
<tr>
|
|
| 1218 |
<th align=left width=1%>| . $locale->text('Description') . qq|</th>
|
|
| 1219 |
<td width=1%>$description</td>
|
|
| 1220 |
<td>
|
|
| 1221 |
<table>
|
|
| 1222 |
<tr>
|
|
| 1223 |
<th align=left>| . $locale->text('MwSt. inkl.') . qq|</th>
|
|
| 1224 |
<td><input type=checkbox name=taxincluded value=1 $taxincluded></td>
|
|
| 1225 |
</tr>
|
|
| 1226 |
</table>
|
|
| 1227 |
</td>
|
|
| 1228 |
</tr>|;
|
|
| 1229 | 1229 |
} |
| 1230 | 1230 |
|
| 1231 | 1231 |
print qq| |
| ... | ... | |
| 1247 | 1247 |
<tr> |
| 1248 | 1248 |
<td colspan=4> |
| 1249 | 1249 |
<table width=100%> |
| 1250 |
<tr class=listheading>
|
|
| 1251 |
<th class=listheading style="width:15%">|
|
|
| 1250 |
<tr class=listheading>
|
|
| 1251 |
<th class=listheading style="width:15%">|
|
|
| 1252 | 1252 |
. $locale->text('Account') . qq|</th>
|
| 1253 |
<th class=listheading style="width:10%">| . $locale->text('Chart balance') . qq|</th>
|
|
| 1254 |
<th class=listheading style="width:10%">|
|
|
| 1253 |
<th class=listheading style="width:10%">| . $locale->text('Chart balance') . qq|</th>
|
|
| 1254 |
<th class=listheading style="width:10%">|
|
|
| 1255 | 1255 |
. $locale->text('Debit') . qq|</th>
|
| 1256 |
<th class=listheading style="width:10%">|
|
|
| 1256 |
<th class=listheading style="width:10%">|
|
|
| 1257 | 1257 |
. $locale->text('Credit') . qq|</th>
|
| 1258 | 1258 |
<th class=listheading style="width:10%">| |
| 1259 | 1259 |
. $locale->text('Tax') . qq|</th>
|
| ... | ... | |
| 1262 | 1262 |
|
| 1263 | 1263 |
if ($form->{show_details}) {
|
| 1264 | 1264 |
print qq| |
| 1265 |
<th class=listheading style="width:20%">| . $locale->text('Source') . qq|</th>
|
|
| 1266 |
<th class=listheading style="width:20%">| . $locale->text('Memo') . qq|</th>
|
|
| 1267 |
<th class=listheading style="width:20%">| . $locale->text('Project Number') . qq|</th>
|
|
| 1265 |
<th class=listheading style="width:20%">| . $locale->text('Source') . qq|</th>
|
|
| 1266 |
<th class=listheading style="width:20%">| . $locale->text('Memo') . qq|</th>
|
|
| 1267 |
<th class=listheading style="width:20%">| . $locale->text('Project Number') . qq|</th>
|
|
| 1268 | 1268 |
|; |
| 1269 | 1269 |
} |
| 1270 | 1270 |
|
| 1271 | 1271 |
print qq| |
| 1272 |
</tr>
|
|
| 1272 |
</tr>
|
|
| 1273 | 1273 |
|
| 1274 | 1274 |
$jsscript |
| 1275 | 1275 |
|; |
| ... | ... | |
| 1422 | 1422 |
# saving the history |
| 1423 | 1423 |
if(!exists $form->{addition} && $form->{id} ne "") {
|
| 1424 | 1424 |
$form->{snumbers} = qq|ordnumber_| . $form->{ordnumber};
|
| 1425 |
$form->{addition} = "DELETED";
|
|
| 1426 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 1425 |
$form->{addition} = "DELETED";
|
|
| 1426 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 1427 | 1427 |
} |
| 1428 | 1428 |
# /saving the history |
| 1429 | 1429 |
$form->redirect($locale->text('Transaction deleted!'))
|
Auch abrufbar als: Unified diff
Tabs aus *.pl Dateien entfernt.