iskonto ve ötv uygulaması

[erdogan_ozkaya]

iskonto ve ötv uygulaması kullanmak isteyen arkadaşlar için,

Kod: Tümünü seç

procedure TFATURA_KAYIT_ISKONTO_EKLE.C(Sender: TObject);
var
        A,B,C,D,E:variant;
        F,G,H,I,J:variant;
        K,L,M,N,O:variant;
        P,R,S,T,U:variant;
        V,Y,Z,W,Q:variant;
        AA,BB,CC,DD:variant;
        FF,GG,HH,II:variant;
begin
////////////////////İLK İSKONTO
       A:=strtofloat(Edit1.Text);
       B:=A * RzNumericEdit1.Text ;
       C:=b/100;
       D:=floattostr(C);
       E:=strtofloat(A)-C;
////////////////////İKİNCİ İSKONTO
       F:=strtofloat(E);
       G:=F * RzNumericEdit2.Text;
       H:=G/100;
       I:=floattostr(H);
       J:=strtofloat(F)-H;
////////////////////ÜÇÜNCÜ İSKONTO
       K:=strtofloat(J);
       L:=K * RzNumericEdit3.Text ;
       M:=L/100;
       N:=floattostr(M);
       O:=strtofloat(K)-M;
////////////////////DÖRDÜNCÜ İSKONTO
       P:=strtofloat(O);
       R:=P * RzNumericEdit4.Text ;
       S:=R/100;
       T:=floattostr(S);
       U:=strtofloat(P)-T;
     Edit6.Text:=floattostr(U);

////////////////////SONUC ÖTV UYGULA

       FF:=RzNumericEdit6.Value; //ÖTV ORAN
       //GG:=floattostr(U); // MATRAH
       HH:=U * FF /100+GG;
       II:=U * FF /100;
   //      Edit6.Text:=floattostr(HH);

end;