Set MAIN = doc.CreateTableObject("MTABLE=STACK","IO")
MAIN.Addfield2 "KKDID", "CHAR", 30, 0,"L","",""
MAIN.Addfield2 "KKKOD", "CHAR", 24, 0,"L","",""
MAIN.Addfield2 "KKAD", "CHAR", 50, 0,"L","",""
MAIN.Addfield2 "KKLOT", "CHAR", 12, 0,"L","",""
MAIN.Addfield2 "KKEVRAKNO", "CHAR", 24, 0,"L","",""
MAIN.Addfield2 "KKSERI", "CHAR", 20, 0,"L","",""
MAIN.Addfield2 "KKMIKTAR", "DOUBLE", 10, 2,"L","",""
MAIN.Addfield2 "KKDEPO", "CHAR", 24, 0,"L","",""
MAIN.Setd7FieldEvent "DDS", "ONVALIDATE","33s." & SC_SCRIPTMODULEFILENAME,"KK_OK2"
Dim Par
Set Par=Nothing
doc.LoadSubForm_Dyn "DID",SC_SCRIPTMODULEFILENAME,Par
End Sub
Sub DIDCIKIS()
Clear_DID
End Sub
Sub KK_OK2()
Set MAIN = doc.GetTableObject("MTABLE")
ParcaBarkodu = trim(MAIN.KKDID)
Set S01 = Doc.GetTableObject("STOK01")
Set S01 = Doc.Select1("_tmp","STOK01","LOTNUMBER='"&ParcaBarkodu&"'&AMBCODE='M-MA'","",-1)
If S01.GetRecCount() <> 0 Then
If trim(S01.ALLOC_SYSSTATUS(1)) = "" Then
MAIN.KKKOD = trim(S01.KOD(1))
MAIN.KKAD = trim(doc.GetKartValue("STOK00","AD",trim(S01.KOD(1)),-1))
MAIN.KKLOT = trim(S01.LOTNUMBER(1))
MAIN.KKSERI = trim(S01.SERINO(1))
MAIN.KKMIKTAR = trim(S01.SF_MIKTAR(1))
MAIN.KKDEPO = trim(S01.AMBCODE(1))
Else
MsgBox "Okuttuğunuz malzemenin üzerinde rezervasyon var...! Kullanılamaz..!"
Clear_DID
End If
Else
Set S012 = Doc.Select1("_tmp2","STOK01","LOTNUMBER='"&ParcaBarkodu&"'&AMBCODE='M-HM'","",-1)
If S012.GetRecCount() <> 0 Then
If trim(S012.ALLOC_SYSSTATUS(1)) = "" Then
MAIN.KKKOD = trim(S012.KOD(1))
MAIN.KKAD = trim(doc.GetKartValue("STOK00","AD",trim(S012.KOD(1)),-1))
MAIN.KKLOT = trim(S012.2(1))
MAIN.KKSERI = trim(S012.3(1))
MAIN.KKMIKTAR = trim(S012.4(1))
MAIN.KKDEPO = trim(S012.5(1))
Else
MsgBox "Okuttuğunuz malzemenin üzerinde rezervasyon var...! Kullanılamaz..!"
Clear_DID
End If
Else
Clear_DID
End If
End If
End Sub
Bu Kodlar Hangi Kodlama Diline Ait |
4 Mesajlar | 1.036 Okunma | ||
- Üyelik 15.07.2016
- Yaş/Cinsiyet 39 / E
- Meslek Muhasebe
- Konum Tekirdağ
- Ad Soyad F** Y**
- Mesajlar 94
- Beğeniler 30 / 5
- Ticaret 1, (%100)
Merhaba aşağıdaki kodlar hangi kodlama diline ait söylermisiniz.
- Üyelik 11.09.2013
- Yaş/Cinsiyet 30 / E
- Meslek Bilgisayar Mühendisi
- Konum İzmir
- Ad Soyad A** K**
- Mesajlar 1077
- Beğeniler 361 / 361
- Ticaret 33, (%100)
Visual basic gibi duruyor hocam
- Üyelik 03.10.2013
- Yaş/Cinsiyet 44 / E
- Meslek Yazılım Uzmanı, Matematikçi
- Konum Ankara
- Ad Soyad S** T**
- Mesajlar 1118
- Beğeniler 325 / 324
- Ticaret 2, (%100)
Visual Basic fakat makro vs.. dediğine göre Excel için ayrı bir yapısı olabilir.
www.ontedi.com
www.cizgi.site
www.cizgi.site
- Üyelik 06.09.2013
- Yaş/Cinsiyet 32 / E
- Meslek Cyber Sec & Project Manager
- Konum Ankara
- Ad Soyad M** G**
- Mesajlar 3356
- Beğeniler 481 / 1987
- Ticaret 10, (%100)
Excel Visual Basic makrosu
Konuyu toplam 1 kişi okuyor. (0 kullanıcı ve 1 misafir)