Solutions

You can easily solve this problem by allowing blank receipt and issue on the items Dimension group.

However, in some cases this isn’t possible, for example, you cannot allow blank receipt/issue on a storage dimension which is part of the financial inventory.

If it is a storage dimension with only Location active, then you can tweak the code a bit like this in the class PurchCreateFromSalesOrder, method run:

...

if (salesTableLocal.InterCompanyDirectDelivery

&&  SalesTableType::construct(

         salesTableLocal).canCreatePurchOrder()

&&  VendTable::find(

 tmpPurchLinePrice.AccountNum).interCompanyAccountExist())

{

    select firstonly RecId from inventTable

          where inventTable.ItemId == salesLineLocal.ItemId

    join  inventDimGroup

          where inventDimGroup.DimGroupId == 

                                     inventTable.DimGroupId

    join  inventDimSetup

          where inventDimSetup.DimGroupId        == 

                                  inventDimGroup.DimGroupId

          // no check for location: if the warehouse has a 

          // default issue and receipt location or the 

          // items have a default issue and receipt 

          // location, then check isn't needed

          //&&   (inventDimSetup.DimFieldId        == 

          //                         fieldNumWMSLocationId

          //   || inventDimSetup.DimFieldId        == 

          //                          fieldNumWMSPalletId)

          && (inventDimSetup.dimFieldId         == 

                                      fieldNumWMSPalletId)

          &&    inventDimSetup.Active            == true

          &&   (inventDimSetup.AllowBlankIssue   == false

            || inventDimSetup.AllowBlankReceipt == false);

    if (inventTable.RecId)

    {

        throw error(strfmt("@SYS99182",

                           salesLineLocal.ItemId));

    }

}

...

Just make sure that your setup for your warehouse always has a default receipt and issue location: as such it isn’t a problem that there is no check anymore on the location field, as it will be filled up always.

Or make sure each such item has a default receipt and issue location

PurchTable purchTable;
NumberSeq numberseq = NumberSeq::newGetNumFromCode(
    PurchParameters::numRefPurchId().NumberSequence,
    true);

purchTable.clear();

purchTable.PurchId = numberSeq.num();
purchTable.initValue();
purchTable.OrderAccount = "0001";
purchTable.initFromVendTable();
purchTable.insert();

numberSeq.used();

Solution

Create a new method in the class PurchFormLetter_PackingSlip.

void initPrintJobSettings()
{
    PrintJobSettings printJobSettings;
    ;
    printJobSettings =
         new PrintJobSettings(printerSettingsFormletter);
    // set the output format of the packing slip to PDF
    printJobSettings.preferredMailFormat(PrintFormat::PDF);
    // set the mail recipient (this could be parameterised,
    // in the example it is hardcoded)
    if (purchTable)
        printJobSettings.mailTo(“foo@hotmail.com")
    // set the mail subject    if (purchTable)
        printJobSettings.mailSubject(‘@SYS72882’
           + “ “ + purchTable.PurchId);
    this.updatePrinterSettingsFormLetter(
        printJobSettings.packPrintJobSettings());
}    

Add a new method in the class PurchFormLetter.

void initPrintJobSettings()
{
}    

Call the method in the main method of the class PurchFormLetter.

{
    …
    purchFormLetter.parmId(parmId);
    purchFormLetter.transDate(systemDateGet());
    purchFormLetter.initPrintJobSettings();
    if (purchFormLetter.prompt())
    {
    …
}    

Solution: X++ code to be added

Add following method to the class SalesLineType and call it in the update
method of the class SalesLineType.

void synchPO (SalesLine _salesLine) 
{  
    ReqPO reqPO; 
    ;

    reqPO = ReqPO::find(ReqPlanSched::defaultDynamicId(),             
                _salesLine.reqTrans().reqTransSettled(
                       salesLine.reqTrans().selectCov()).RefId
                ,true);

    if (reqPO)    
    {        
        // whatever field in reqPO to be updated based on
        // some information on the referenced SalesLine
        reqPO.Qty = _salesLine.SalesQty;        
        if (reqPO.validateWrite()
            reqPO.update()    
    }
}

Solution: adapt SysRecordInfo form

As this behaviour may be very confusing for end users, you can adapt some code on Form SysRecordInfo. As such, the Fill Utility button won’t appear anymore, just as it doesn’t appear for display fields on a Form.

Add following code in method fillUtilityInit on Form SysRecordInfo:

… 
if (object.dataMethod()) 
{

    fillGrp.visible(false);  
    return;
}


// BEGIN Fill utility only works for primary datasource  
if (getDataSourceNo(object.dataSource()) != 1)

{  
    fillGrp.visible(false); 
    return;

}  
// END Fill utility only works for primary datasource
 
dictTableLocal = new SysDictTable(tblId);  
….

Solution: Web::stripHTML

There is a nice X++ function: just call Web::stripHTML(string), which will return the string without the HTML tags.