Dim ItemClsLines As Object = ProdApp.NewPrdItmClsLines()
Dim tMamulRef As Integer = 2262
Dim tReceteRef As Integer = 4430
Dim tRevRef As Integer = 4344
Dim tHedefTarihi As Date = CDate(Now)
Dim tFabrikaNr As Integer = 0
Dim tPlanMiktar As Double = 100
Dim tFisTarihi As Date = CDate(Now)
Dim tFisNo As String = "Ahmors - 0003"
Dim tUomRef As Integer = 38
Dim a As Integer = ProdApp.ProdOrderAutomaticGenerate(tMamulRef, tReceteRef, tRevRef, tHedefTarihi, tFabrikaNr, tPlanMiktar, ItemClsLines, tFisTarihi, tFisNo, tUomRef)
ProdOrderAutomaticGenerate metodu eksik satırlı üretim emri oluşturuyor.
01/04/21 11:16   Tiger/Logo Objects DiğerProdOrderAutomaticGenerate metodu eksik satırlı üretim emri oluşturuyor.
Reçete 6 satırdan oluşurken Üretim emrine 3 satır gelmektedir.
Ekteki resimde üstteki obje ile oluşturulan üretim emri iken, aşağıdaki ise program içerisinde manuel oluşturulandır.
Örnek kod ise aşağıdadır.
Dim ProdApp As UnityObjects.ProductionApplication = New UnityObjects.ProductionApplication
Dim ItemClsLines As Object = ProdApp.NewPrdItmClsLines()
Dim tMamulRef As Integer = 2262
Dim tReceteRef As Integer = 4430
Dim tRevRef As Integer = 4344
Dim tHedefTarihi As Date = CDate(Now)
Dim tFabrikaNr As Integer = 0
Dim tPlanMiktar As Double = 100
Dim tFisTarihi As Date = CDate(Now)
Dim tFisNo As String = "Ahmors - 0003"
Dim tUomRef As Integer = 38
Dim a As Integer = ProdApp.ProdOrderAutomaticGenerate(tMamulRef, tReceteRef, tRevRef, tHedefTarihi, tFabrikaNr, tPlanMiktar, ItemClsLines, tFisTarihi, tFisNo, tUomRef)
f a = 1 Then
MsgBox("Kayıt OK" & ProdApp.GetLastError)
Else
MsgBox(Str(ProdApp.GetLastError) + " : " + ProdApp.GetLastErrorString)
End If
ProdOrderAutomaticGenerate Logo Objects