CK
S|Eski şirket gdb:|30|2|127.0.0.1:c:\yil2006\dat2006.gdb';
$bugun='D|Puan hangi tarihe işlenecek:|30|2|';
$str1=sprintf("
select clitrans.code,
sum(cast( (asign || cast(clitrans.amountdue as char(20))) as double precision))
from clitrans
join clicards on clicards.code=clitrans.code
where %s and clitrans.excode='PUAN'
group by clitrans.code ", "CK");
$counter=0;
$dbh = ibase_connect ($servernold, $suser, $spass,'WIN1254');
if($dbh){
echo $str1;
$sth = ibase_query ($dbh, $str1);
if($sth){
$toplam1=0;
while ($row = ibase_fetch_row ($sth))
$data[$counter++]=$row;
}
ibase_close ($dbh);
}
$dbh = ibase_connect ($servern, $suser, $spass,'win1254');
if($dbh){
$tr = ibase_trans();
while (list ($key, $val) = each ($data)) {
if($val[1]<=0.00) continue;
/* get next fiş no*/
$sth = ibase_query ($dbh, "select fno from next_fno('','CR','A','L')");
if($sth) {
while ($row = ibase_fetch_row ($sth)) { $fno=$row[0]; }
}
/*guncelle fis no*/
$sth = ibase_query ($dbh, "select fno from next_fnoupdate('','CR','A','L','$fno')");
if($sth) {
while ($row = ibase_fetch_row ($sth)) { $fno=$row[0]; }
}
$fno=trim($fno);
/* get next transid*/
$sth = ibase_query ($dbh, "select gen_id(ZTRANSID,1) from rdb\$database");
if($sth) {
while ($row = ibase_fetch_row ($sth)) { $ftransid=$row[0]; }
}
$sql_str=sprintf(
"INSERT INTO CLITRANS
(CODE,FDATE,FCLASS,FTYPE,FNO,FTRANSID,GENEXP,DUEDATE,EXCLICODE,
AMOUNTDUE,CUR_ID,CUR_VALUE,CAST_TOTAL,CAST_CUR_ID,CAST_CUR_VALUE,
SITEID,USERID,EXCODE,AUTHCODE,STATUS,TIMEENTERED,TIMECHANGED,
PRINT_CNT,ACCOUNTED,ACCODE,AC_FTRANSID,EX_FTRANSID,MANUAL_ENTRY,ASIGN,SYSAMOUNT)
VALUES (
'%s','%s','%s','%s','%s',%d,'%s','%s',NULL,
%.3f,%d,%.3f,%.3f,%d,%.3f,NULL,%d,'%s',NULL,%d,
'%s','%s',%d,'',NULL,%d,%d,'%s','%s',%.3f)",
trim($val[0]),$bugun,"A","L",
$fno,$ftransid,"DEVIR-PUAN",$bugun,
$val[1],0,1.00,
$val[1],0,1.00,
0,"PUAN",0,
$bugun,$bugun,0,0,0,'Y',"+",0.00);
$sth1 = ibase_query ($dbh, $sql_str) or die("ERROR:Cari puan eklenemiyor..:".trim($val[0]));
/* get next transid*/
$sth = ibase_query ($dbh, "select gen_id(ZTRANSID,1) from rdb\$database");
if($sth) {
while ($row = ibase_fetch_row ($sth)) { $ftransid=$row[0]; }
}
$sql_str=sprintf(
"INSERT INTO CLITRANS
(CODE,FDATE,FCLASS,FTYPE,FNO,FTRANSID,GENEXP,DUEDATE,EXCLICODE,
AMOUNTDUE,CUR_ID,CUR_VALUE,CAST_TOTAL,CAST_CUR_ID,CAST_CUR_VALUE,
SITEID,USERID,EXCODE,AUTHCODE,STATUS,TIMEENTERED,TIMECHANGED,
PRINT_CNT,ACCOUNTED,ACCODE,AC_FTRANSID,EX_FTRANSID,MANUAL_ENTRY,ASIGN,SYSAMOUNT)
VALUES (
'%s','%s','%s','%s','%s',%d,'%s','%s',NULL,
%.3f,%d,%.3f,%.3f,%d,%.3f,NULL,%d,'%s',NULL,%d,
'%s','%s',%d,'',NULL,%d,%d,'%s','%s',%.3f)",
trim($val[0]),$bugun,"A","L",
$fno."-V",$ftransid,"DEVIR-PUAN VIRMAN",$bugun,
$val[1],0,1.00,
$val[1],0,1.00,
0,"",0,
$bugun,$bugun,0,0,0,'Y',"-",0.00);
$sth1 = ibase_query ($dbh, $sql_str) or die("ERROR:Cari puan eklenemiyor..:".trim($val[0]));
}
ibase_commit($tr);
ibase_close ($dbh);
}
?>