BeginForm(Anaform)
    MenuItem(Cikis,"Çıkış","",14)
    MenuItem(BarkodSorgu,"Barkod Sorgulama","",1)
    MenuItem(CariListe,"Cari Hesap Listesi","",16)
    MenuItem(CariTablo,"Cari Hesap Tablosu","",16)
    MenuItem(SiparisListe,"Sipariş Listesi","",20)
    MenuItem(GetItemInformationByItemCode,"Malzeme Sorgula","",20)
    MenuItem(EmirOlustur,"Emir Oluştur","",18)
    MenuRun(0,1,"Ana Menü")
EndForm()

BeginForm(Cikis)
    Logout()
EndForm()

BeginForm(BarkodSorgu)
        Set(@merhaba, 2 + 2)
Giris:    
    ResetVariables({"name":["@merhaba","@@Item"]})
    Text(0,0,"@merhaba Barkod sorgulama")
    //    SetReturnLine()
    //Goto(etiket)
    For(@i,1,3,1)
        ShowMessage({"title": "BİLGİ", "message" : "@i . kez döndü","buttons": "TAMAM"}, @secim)
    Next()
    
    Input(0,0,"Barkod Okutunuz",{"type":"text","min":"1","max":"20"},@barkod)
    If(@barkod=1)
        ShowMessage({"title": "BİLGİ", "message" : "@barkod DOĞRU","buttons": "TAMAM"}, @secim)
    Else()
        ShowMessage({"title": "HATA", "message" : "@barkod YANLIŞ. DEVAM ETMEK İSTİYOR MUSUNUZ?!","buttons": "EVET|HAYIR|YENİDEN"}, @secim)
        CaseGoto(@secim,{"1":"Devam","2":"Cikis","3":"Giris"})
    EndIf()
Devam:    
    Text(1,1,"Barkod : @barkod")
    //ClearScreen()
    //Beep(2)
    //Input(1,2,"@barkod için Belge tarihi yazınız",{"type":"date","min":"1-1-2000","max":"31-12-2100"},@tarih)
    //Text(1,1,"Tarih: @tarih.1 /@tarih.2 / @tarih.3 ")
    //ClearLines(1,5)
    //etiket:
    //    SetReturnLine()
    Input(1,2,"BEKLE",{"type":"text","min":"1","max":"31"},@bekle)
Cikis:    
EndForm()


BeginForm(CariListe)
    //Sql("SELECT Code, Title FROM Arp", @cariListe)
    Arp.List("Code LIKE 'CH%'","",@cariListe)
    If(@cariListe.rowCount = 0)
        ShowMessage({"title": "HATA", "message" : "Hiç kayıt bulunamadı","buttons": "TAMAM"}, @secim)
    Else()
        PopupView(@cariListe.rows, {"mode":"card","title":"Cari Listesi","fields":["Code|Kodu|10|L","Title|Ünvanı|20|L"]},@secim)    
        Text(1,1,"Ünvanı : @cariListe.rows.@secim.Title")
    EndIf()
    Input(1,2,"BEKLE",{"type":"text","min":"1","max":"31"},@bekle)
EndForm()


BeginForm(CariTablo)
    Sql("SELECT Code, Title FROM Arp", @cariListe)
    If(@cariListe.rowCount = 0)
        ShowMessage({"title": "HATA", "message" : "Hiç kayıt bulunamadı","buttons": "TAMAM"}, @secim)
    Else()
        TableView(@cariListe.rows,2,5, {"rows":50,"columns":["Code|Kodu|10|L","Title|Ünvanı|20|L"]})
    EndIf()
    Input(1,1,"Cari kodu girin",{"type":"text","min":"1","max":"31"},@bekle)
EndForm()

BeginForm(SiparisListe)
    OrderSlip.List("","",@siparisListe)
    If(@siparisListe.rowCount = 0)
        ShowMessage({"title": "HATA", "message" : "Hiç kayıt bulunamadı","buttons": "TAMAM"}, @secim)
    Else()
        PopupView(@siparisListe.rows, {"mode":"list","title":"Sipariş Listesi","fields":["SlipNumber|Fiş No|10|L","ArpTitle|Cari|20|L"]},@secim)    
//        Text(1,1,"Sipariş No : @siparisListe.rows.@secim.SlipNumber")
        OrderSlip.Get(@siparisListe.rows.@secim.Id)
        Text(1,1,"Sipariş No : @@OrderSlip.SlipNumber")
    EndIf()
    Input(1,2,"BEKLE",{"type":"text","min":"1","max":"31"},@bekle)
EndForm()


BeginForm(GetItemInformationByItemCode)
    KeyFunction("ESC",GoForm(InformationMenu))
    ClearScreen()
    ItemInfo:
        Text(0,0," Malzeme Sorgula")
        Input(1,6,"Malzeme Kodu ",{"type":"text", "min":"1", "max":"16"},@item_code)
        Item.Get("Code='@item_code'")
        If(@@Item.Code="")
            ShowMessage({"title":"Dikkat !","message":" *@item_code* Kodlu Malzeme bulunamadı ","buttons":"Tamam"},@secim)
        Else()         
              CallForm(DisplayItemInfo)
        
              Input(1,7,"Bekle",{"type":"text", "min":"1", "max":"16"},@bekle)
                   
              ItemUnit.List("ItemId = @@Item.Id","",@unitresult)
              If(@unitresult.rowCount > 0)  
                  PopupView(@unitresult.rows,{"mode":"list","title":"Birimler", "fields":["Code|Birim|1O|L","ConvFactor1|BCarpani1|15|R","ConvFactor2|BCarpani2|15|R"]},@choice)
                Text(1,5,"Birim  : @unitresult.rows.@choice.Code") 
              EndIf()
        EndIf()
        Goto(ItemInfo)
EndForm()

BeginForm(DisplayItemInfo)
    Text(0,0,"Malzeme Bilgileri")
    Beep()
    Image(1,2, {"RecordType" : "145", "RecordId": "@@Item.Id"})
    Text(1,3,"Kodu : @@Item.Code")
    Text(1,4,"Adı  : @@Item.Name") 
    ReturnForm() 
EndForm()


BeginForm(GetItemInformationByItemUnitBarcode)
    KeyFunction("ESC",GoForm(InformationMenu))
    ClearScreen()
    ItemInfo:
        Text(0,0," Barkod Sorgula")
        Input(1,6,"Barkod ",{"type":"text", "min":"1", "max":"16"},@item_barcode)
        UnitBarcode.Get("Barcode='@item_barcode'")
        If(@@Item.Code="")
            ShowMessage({"title":"Dikkat !","message":" *@item_barcode* Birim Barkodlu Malzeme bulunamadı ","buttons":"Tamam"},@secim)
        Else()    
             CallForm(DisplayItemInfo)
             Text(1,5,"Birim  : @@ItemUnit.Code") 
         EndIf()
        Goto(ItemInfo)
EndForm() 


BeginForm(EmirOlustur)
    ClearScreen()
    CustomSlipType.Get(11) //"Description='Satınalma İrsaliyesi'"
    WorkOrder.New({"SlipType":"1"},1)  //@@WorkOrder nesnesi de doldu
    //    WorkOrder.Save()
    
    Item.Get("Code='N01.001'")
    If(@Response.Status="-1")
        ShowMessage({"title":"Hata", "message" : "@Response.Message ", "buttons" : "Tamam"},@secim) 
        GoForm(Anaform)
    EndIf()
    WorkOrderLine.New({"SlipType":"1"},0)
    WorkOrderLine.Set({"Quantity":"1"})
    WorkOrderLine.Save()
    //WorkOrderLine.New({"SlipType":"1","Quantity":"1"},1)
    
    
EndForm()