| | |
|---|
| | | TextBody: |
|---|
| | | [* |
|---|
| | | // 甄兰鸽 Aug-20-2024 (created) |
|---|
| | | cdlast := maxobject( interfaceDataset, AssemblyOnlinePlanPPPSPush, cd, cd.InterfaceTime(), cd.PlanningDate(), cd.Product() ); |
|---|
| | | if( not isnull( cdlast ) ){ |
|---|
| | | loginfo := cdlast.InterfaceLoginfo(); |
|---|
| | | loginfo := maxobject( interfaceDataset, InterfaceLoginfo, loginfo, loginfo.Name() = Translations::InterfaceDataset_AssemblyOnlinePlanPPPSPush_Name(), loginfo.InterfaceDateTime() ); |
|---|
| | | if( not isnull( loginfo ) ){ |
|---|
| | | if( not loginfo.IsShow() ){ |
|---|
| | | loginfo.Delete(); |
|---|
| | | }else{ |
|---|
| | |
|---|
| | | , Success := true |
|---|
| | | ); |
|---|
| | | traverse( macroplan, AssemblyOnlinePlanColumn, column ){ |
|---|
| | | traverse( column, AssemblyOnlinePlanCell, cell, cell.Value() <> '' and cell.AssemblyOnlinePlanRow().RowNr() = '1' ){ |
|---|
| | | traverse( column, AssemblyOnlinePlanCell, cell, cell.Value() <> '' and cell.AssemblyOnlinePlanRow().Type() = '1' ){ |
|---|
| | | quantityrow := cell.AssemblyOnlinePlanRow(); |
|---|
| | | ordercell := selectobject( column, AssemblyOnlinePlanCell, ocell, ocell.AssemblyOnlinePlanRow().ProductID() = quantityrow.ProductID() |
|---|
| | | and ocell.AssemblyOnlinePlanRow().ProductionLine() = quantityrow.ProductionLine() |
|---|
| | | and ocell.AssemblyOnlinePlanRow().RowNr() = '2' ); |
|---|
| | | and ocell.AssemblyOnlinePlanRow().Type() = '2' ); |
|---|
| | | |
|---|
| | | cd :=interfaceDataset.AssemblyOnlinePlanPPPSPush( relnew, Product := quantityrow.ProductID() |
|---|
| | | , PlanningDate := column.ColumnDate() |
|---|
