procedure Start;
Begin
End;

Procedure Finish;
Begin
End;

Procedure Execute;
Var
  IDS: String;
begin 
  IDS:= SelectRecord(
     'SELECT ID, KARTNO, KOD, ACIKLAMA FROM TBLDEPOLAR WHERE DELETED = 0', 
     'KOD;ACIKLAMA', 
	 'Depo Kodu; Açıklama', 
	 'KARTNO', 
	 'Depo Kodu / Açıklama', 
	 'KOD;ACIKLAMA',  
	 False);
  if IDS <> '' Then
  Begin
    if askFor('Danışma', #13#10 + GetDBValue('SELECT KOD FROM TBLDEPOLAR WHERE KARTNO = ' + IDS) + #13#10#13#10'Deposunda Tüm Ürünler Sıfırlanacak'#13#10#13#10'Emin misiniz?') Then
    Begin
	  execSQL('INSERT INTO TBLSAYIM(BIRIMID, DEPOID, MIKTAR, TARIH, RENKID, BEDENID, DESENID) ' + 
	       ' SELECT ANABIRIM, ' + IDS + ', -1 * DEPO, GETDATE(), 0, 0, 0 from DEPOSTOKDURUMU DD  LEFT OUTER JOIN TBLSTOKLAR S WITH(INDEX=TBLSTOKLAR_KARTNO) ON S.KARTNO = DD.STOKID ' + 
		   ' WHERE DEPOID = ' + IDS + ' AND DEPO <> 0');
		   
	  execSQL('UPDATE TBLSTOKLAR SET' +
	          '  GIREN = (Select SUM(GIREN) From STOKDURUMU WHERE STOKKARTNO = TBLSTOKLAR.KARTNO),' +
	          '  CIKAN = (Select SUM(CIKAN) From STOKDURUMU WHERE STOKKARTNO = TBLSTOKLAR.KARTNO)');
	End;
  End;
End;

Begin
End.
