LogisticsElectronicAddress phone ,fax details:

LogisticsElectronicAddress phone ,fax details:

static void phonefax(Args _args)
{
    InventLocation inventLocation;
    InventSite inventSite;
    LogisticsEntityPostalAddressView logisticsEntityPostalAddressView;
    LogisticsLocation logisticsLocation;
    LogisticsElectronicAddress logisticsElectronicAddress;
    int64 siteid;
    select * from inventSite where inventSite.SiteId == "1";
    select * from logisticsEntityPostalAddressView where logisticsEntityPostalAddressView.Entity == inventSite.RecId;
                                               // && logisticsEntityPostalAddressView.IsPrimary == NoYes::Yes;
     //info(strFmt("%1",logisticsEntityPostalAddressView.Address));
    select * from logisticsLocation where logisticsLocation.RecId == logisticsEntityPostalAddressView.Location;
    siteid = logisticsLocation.RecId + 1;
     while select logisticsElectronicAddress where logisticsElectronicAddress.Location == siteid
                                                       && logisticsElectronicAddress.Type == 1//LogisticsElectronicAddressMethodType::Phone//1
     //                                                  && logisticsElectronicAddress.IsPrimary == NoYes::No//LogisticsElectronicAddressTypes::Phone
    {

    info(strFmt("%1 %2 %3",logisticsElectronicAddress.Type,logisticsElectronicAddress.LocatorExtension,logisticsElectronicAddress.Locator));
    info("hi");
    }
        info("bye");

}

Tuesday, 16 July 2013

contact information (vend and purch)

contact information (vend and purch)

while select PurchTable{
// if(purchTable.PurchId == VendPurchOrderJourloc.PurchaseOrderId)
purchID = VendPurchOrderJour::findbyPurchaseOrderId(PurchPurchaseOrderHeader.PurchaseOrderId).PurchId;
PurchRecid = purchTable::find(purchID).RecId;
// c = purchTable::find(purchID).OrderAccount;
PurchDim = purchTable::find(purchID).DefaultDimension;
// TableId = PurchReqLine::findByPurchId(purchID).PurchReqTable;
// c = PurchReqTable::find(TableId).PurchReqId;
// PurchPurchaseOrderHeader.PurchReqId = c;
select VendTable where VendTable.AccountNum == purchTable::find(purchID).OrderAccount;//purchTable.OrderAccount;
select DirPartyTable where DirPartyTable.RecId == VendTable.Party;
while select DirPartyLocation where DirPartyLocation.Party == DirPartyTable.RecId
&& DirPartyLocation.IsPrimary == NoYes::Yes
{
while select LogisticsElectronicAddress where LogisticsElectronicAddress.Type == LogisticsElectronicAddressMethodType::Phone
&& LogisticsElectronicAddress.Location == DirPartyLocation.Location

{
purchPurchaseOrderHeader.Phone = LogisticsElectronicAddress.Locator;
}

while select LogisticsElectronicAddress where LogisticsElectronicAddress.Type == LogisticsElectronicAddressMethodType::Email
&& LogisticsElectronicAddress.Location == DirPartyLocation.Location

{
purchPurchaseOrderHeader.Email = LogisticsElectronicAddress.Locator;
}
while select LogisticsElectronicAddress where LogisticsElectronicAddress.Type == LogisticsElectronicAddressMethodType::Fax
&& LogisticsElectronicAddress.Location == DirPartyLocation.Location

{
purchPurchaseOrderHeader.Fax = LogisticsElectronicAddress.Locator;
}
}