| | |
|---|
| | | { |
|---|
| | | TextBody: |
|---|
| | | [* |
|---|
| | | // yypsybs Sep-12-2023 (created) |
|---|
| | | if( selectset( macroPlan, PRData, item, true ).Size() = 0 ) { |
|---|
| | | info( "======== Create PR Test Data ========" ); |
|---|
| | | for( i := 0; i < 100; i := i + 1 ) { |
|---|
| | | macroPlan.PRData( relnew, |
|---|
| | | MRPCalverNo := [String]Number::Random( 1, Number::MaxNumber() ), |
|---|
| | | BusinessType := [String]Number::Random( 1, Number::MaxNumber() ), |
|---|
| | | OrganCode := [String]Number::Random( 1, Number::MaxNumber() ), |
|---|
| | | ProductID := [String]Number::Random( 1, Number::MaxNumber() ), |
|---|
| | | StockingPointID := [String]Number::Random( 1, Number::MaxNumber() ), |
|---|
| | | Quantity := Number::Random( 1, Number::MaxNumber() ), |
|---|
| | | ProduceRequiredDate := Date::Construct( 2023, |
|---|
| | | Number::Random( 9, 12 ), |
|---|
| | | Number::Random( 13, 28 ) ), |
|---|
| | | DataID := [String]Number::Random( 1, Number::MaxNumber() ), |
|---|
| | | SendStatus := ifexpr( Number::Random( 1, 5 ) = 1, "已发送", "" ) ); |
|---|
| | | } |
|---|
| | | } |
|---|
| | | //// yypsybs Sep-12-2023 (created) |
|---|
| | | //if( selectset( macroPlan, PRData, item, true ).Size() = 0 ) { |
|---|
| | | // info( "======== Create PR Test Data ========" ); |
|---|
| | | // for( i := 0; i < 100; i := i + 1 ) { |
|---|
| | | // macroPlan.PRData( relnew, |
|---|
| | | // MRPCalverNo := [String]Number::Random( 1, Number::MaxNumber() ), |
|---|
| | | // BusinessType := [String]Number::Random( 1, Number::MaxNumber() ), |
|---|
| | | // OrganCode := [String]Number::Random( 1, Number::MaxNumber() ), |
|---|
| | | // ProductID := [String]Number::Random( 1, Number::MaxNumber() ), |
|---|
| | | // StockingPointID := [String]Number::Random( 1, Number::MaxNumber() ), |
|---|
| | | // Quantity := Number::Random( 1, Number::MaxNumber() ), |
|---|
| | | // DeliveryDate := Date::Construct( 2023, |
|---|
| | | // Number::Random( 9, 12 ), |
|---|
| | | // Number::Random( 13, 28 ) ), |
|---|
| | | // DataID := [String]Number::Random( 1, Number::MaxNumber() ), |
|---|
| | | // PRReleaseStatus := ifexpr( Number::Random( 1, 5 ) = 1, "已发送", "" ) ); |
|---|
| | | // } |
|---|
| | | //} |
|---|
| | | *] |
|---|
| | | } |
|---|
