Seri Kodundan Stok Kodu ve Seri Kayd� Deste�i : Seri Kodundan Stok Kodu ve Seri...

Fri, 26 Oct 2018 09:03:54 +0000

Yazar: mervenur.demic
Konu: 339
G�nderim Zaman�: 26 Ekim 2018 Saat 09:03

Seri Kodundan Stok Kodu ve Seri Kayd� Deste�i

Seri kodunu barkod gibi g�r�p bir faturada kalem say�s� fazla olan i�letmelerde

sat�� Faturas�, sat�� rsaliyesi gibi �r�n y�n� ��k�� olan belgelerde LPS uygulamas� a��kken,

sistemde olan bir serinin belgede girilip hem stok kart�n�n bulunmas� hem de LPS hareketinin olu�mas� istenebilir.

�ncelikle bu i�lemin olmas� i�in;

1-) Belge Se�eneklerinden LPS i�leminin a��k ve tipinin Belge Kay�t⁽¹⁾ olmas�,

2-) Belge Se�eneklerinden Kalemde H�zl� Giri� Deste�inin a��k olmas�,

3-) Belge Se�eneklerinden Miktar i�in �n de�er parametresinin �1� olmas�

Ayr�ca her serinin ayr� ayr� kalem olmamas� i�in;

4-) Belge Se�eneklerinden �Tekrar Eden Stok Engellensin� ve �Tekrar Eden Stok Listeden Bulunsun� parametrelerinin a��k olmas�,

5-) E�er stoklarda fiyat yok ve fiyatlar�n sonradan girilmesi isteniyorsa �Tutars�z Kay�t Giri�ine �zin Ver� parametresinin gerekmektedir.

6-) Ayr�ca Elle Seri yaz�l�yorsa h�zl� giri� a��k olmas�ndan dolay� �Tab� De�il �Enter� tu�una bas�lmas� gerekmektedir.

��lem Ad�mlar� ;

1-) A�a��daki fonksiyonu sisteme ekleyiniz.

CREATE FUNCTION dbo.ZZ_PrgFn_GetStokKoduWithSeriNo(@SERI_NO VARCHAR(100))

RETURNS TABLE

RETURN

(

/* ***** Bakiye Kontrol� Olmadan Seri Deste�i ***** */

--SELECT STOK_KODU FROM TBLSTOKLPSHR HR (NOLOCK)

--INNER JOIN TBLSTOKSB SB (NOLOCK) ON SB.REC_NO=HR.STOK_KODU_RECID WHERE ISNULL(SERI_NO,'')=@SERI_NO

/* ***** Bakiye Kontrol� ile Seri Deste�i ***** */

SELECT STOK_KODU FROM PRG_VIEW_LPSSTOKHR WITH(NOLOCK)

WHERE ISNULL(SERI_NO,'')=@SERI_NO

GROUP BY STOK_KODU,SERI_NO HAVING SUM(GCMIK*GC_ISLEM)>0

)

2-) Aktif Kodlamalar� ilgili alanlara yaz�n�z.

STOK_KODU.OnAfterChange

if STOK_KODU.Text <> '' then

if AppInfo.AppGlobalInteger = 0 then

begin

AppInfo.AppGlobalString := STOK_KODU.Text;

end;

STOK_KODU.OnBeforeExit(Seri Numaras�n�n Kontrol�Yap�l�yor)

AppQuery.Close;

AppQuery.SQL.Text:='SELECT * FROM TBLSTOKSB WHERE STOK_KODU='+QuotedStr(AppInfo.AppGlobalString);

AppQuery.Open;

If AppQuery.Found Then

Begin

AppInfo.AppGlobalString := '';

AppInfo.AppGlobalInteger := 0;

End

Else

Begin

AppQuery.SQL.Text:='SELECT * FROM DBO.ZZ_PrgFn_GetStokKoduWithSeriNo('+quotedstr(AppInfo.AppGlobalString)+')';

AppQuery.Open;

If AppQuery.RecordCount > 1 Then

Begin

ShowMessage('Seri Kodu Birden Fazla Stok �le E�le�ti! Kay�tlar� Kontrol Ediniz.');

Exit;

End;

If AppQuery.Found Then

Begin

AppInfo.AppGlobalInteger := 1; //Seri Bulundu �se

STOK_KODU.Text := AppQuery.Fields[0].AsString;

STOK_KODU.SetFocus;

STOK_ADI.SetFocus;

End

Else

Begin

End;

AppQuery.Close;

Public.OnLoad

AppInfo.AppGlobalInteger := 0; //Seri Bulundu Flag� 0ise bulunmad� 0 ise bulundu.

BtnStokKayit.OnAfterPost(Seri Kayd�n�n Yap�ld�� Kodlama)

var

xSTOK_KODU: String;

Qry:TBtQuery;

function GetStokRecID(STOK_KODU:String):Integer;

begin

AppQuery.Close;

AppQuery.SQL.Text:='SELECT REC_NO FROM TBLSTOKSB WHERESTOK_KODU=' + QUOTEDSTR(STOK_KODU);

AppQuery.Open;

Result := AppQuery.FieldByName('REC_NO').AsInteger;

AppQuery.Close;

end;

function GetBelgeListNo(KALEM_RECNO:Integer):Integer;

begin

AppQuery.Close;

AppQuery.SQL.Text:='SELECT BELGE_LIST_NO FROM TBLSTOKHRWHERE REC_NO=' + QUOTEDSTR(KALEM_RECNO);

AppQuery.Open;

Result := AppQuery.FieldByName('BELGE_LIST_NO').AsInteger;

AppQuery.Close;

end;

begin

AppQuery.Close;

AppQuery.SQL.Text:='SELECT * FROMDBO.ZZ_PrgFn_GetStokKoduWithSeriNo('+quotedstr(AppInfo.AppGlobalString)+')';

AppQuery.Open;

if AppQuery.Foundthen

begin

xSTOK_KODU := AppQuery.Fields[0].AsString;

end

else

begin

xSTOK_KODU := AppInfo.AppGlobalString;

end;

AppQuery.Close;

if AppInfo.AppGlobalInteger = 1 then

begin

Qry := TBtQuery.Create(nil);

Qry.Close;

Qry.RequestLive := True;

Qry.SQL.Text:='SELECT * FROM TBLSTOKLPSHRWHERE 1=1';

Qry.SQL.Add('AND SERI_NO=' + QuotedStr(AppInfo.AppGlobalString));

Qry.SQL.Add('ANDBELGE_TIPI=1');

Qry.SQL.Add('AND ILK_REC_NO=' +IntToStr(BtnStokKayit.BtTag));

Qry.Open;

if Qry.Found then Qry.Edit elseQry.Insert;

Qry.FieldByName('STOK_KODU_RECID').AsInteger:= GetStokRecID(xSTOK_KODU);

Qry.FieldByName('SERI_NO').AsString:= AppInfo.AppGlobalString;

Qry.FieldByName('LOT_NO').AsString :='';

Qry.FieldByName('PARTI_NO').AsString:= '';

Qry.FieldByName('GCMIK').AsFloat :=1;

Qry.FieldByName('BELGE_NO').AsString:= BELGE_NO.Text;

Qry.FieldByName('BELGE_TIPI').AsInteger:= 1;

Qry.FieldByName('ILK_REC_NO').AsInteger:= BtnStokKayit.BtTag;

Qry.FieldByName('BELGE_LIST_NO').AsInteger:= GetBelgeListNo(BtnStokKayit.BtTag);

Qry.Post;

Qry.Close;

end;

AppInfo.AppGlobalInteger := 0;

AppInfo.AppGlobalString := '';

end;

Menu.PopupMenu:5_OnClick(Fazla okutulan serilerinkalemden miktar� azalt�ld�ktan sonra silinmesi i�in)

var

xSeriNo : String;

Qry : TBtQuery;

begin

xSeriNo := '';

if InputQuery('Seri Silme','Silinecek Seri No Giriniz : ', xSeriNo) then

begin

Qry :=TBtQuery.Create(nil);

Qry.Close;

Qry.RequestLive:= True;

Qry.SQL.Text:= 'SELECT * FROM TBLSTOKLPSHR WHERE BELGE_NO=' + BELGE_NO.SQLText;

Qry.SQL.Add('ANDSERI_NO=' +QuotedStr(xSeriNo));

Qry.Open;

if Qry.Foundthen

begin

Qry.Delete;

AppInfo.AppMes('SeriSilindi!');

end

else

begin

AppInfo.AppMes('Seri Bulunamad�!');

Exit;

end;

Qry.Close;

end;

D�zenleyen mervenur.demic - 02 Kas�m 2018 Saat 08:57

Atiker Yazılım | Forum : Seri Kodundan Stok Kodu ve Seri Kayd� Deste�i

Seri Kodundan Stok Kodu ve Seri Kayd� Deste�i : Seri Kodundan Stok Kodu ve Seri...