Merhaba aşağıdaki kodlar hangi kodlama diline ait söylermisiniz.



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