mirror of
https://github.com/OpenXE-org/OpenXE.git
synced 2024-12-26 06:30:29 +01:00
40 lines
1.2 KiB
PHP
40 lines
1.2 KiB
PHP
<?
|
|
include(dirname(__FILE__)."/../conf/main.conf.php");
|
|
include(dirname(__FILE__)."/../phpwf/plugins/class.mysql.php");
|
|
include(dirname(__FILE__)."/../www/lib/imap.inc.php");
|
|
include(dirname(__FILE__)."/../www/lib/class.erpapi.php");
|
|
|
|
class app_t {
|
|
var $DB;
|
|
var $user;
|
|
}
|
|
|
|
$app = new app_t();
|
|
$conf = new Config();
|
|
$app->DB = new DB($conf->WFdbhost,$conf->WFdbname,$conf->WFdbuser,$conf->WFdbpass,null,$conf->WFdbport);
|
|
|
|
// wenn das skript laeuft hier abbrechen
|
|
$arradresse = $app->DB->SelectArr("SELECT id, konto,blz,iban FROM adresse WHERE iban=''");
|
|
|
|
for($i=0;$i<count($arradresse);$i++)
|
|
{
|
|
if($arradresse[$i]['konto']!="" && $arradresse[$i]['blz']!="")
|
|
{
|
|
$iban=make_iban($arradresse[$i]['blz'], $arradresse[$i]['konto']);
|
|
$app->DB->SelectArr("UPDATE adresse SET iban='$iban' WHERE id='".$arradresse[$i]['id']."' LIMIT 1");
|
|
$iban="";
|
|
}
|
|
}
|
|
|
|
function make_iban($blz, $kontonr) {
|
|
$blz8 = str_pad ( $blz, 8, "0", STR_PAD_RIGHT);
|
|
$kontonr10 = str_pad ( $kontonr, 10, "0", STR_PAD_LEFT);
|
|
$bban = $blz8 . $kontonr10;
|
|
$pruefsumme = $bban . "131400";
|
|
$modulo = (bcmod($pruefsumme,"97"));
|
|
$pruefziffer =str_pad ( 98 - $modulo, 2, "0",STR_PAD_LEFT);
|
|
$iban = "DE" . $pruefziffer . $bban;
|
|
return $iban;
|
|
}
|
|
?>
|