static void Job3(Args _args)
{
Str city,s;
s = CustTable::find('US-010').name();
City = LogisticsPostalAddress::findByLocation(DirPartyTable::findRec(CustTable::find('US-011').Party).PrimaryAddressLocation).City;
info(strFmt("%1 ----> %2",s,City));
}
static void VendorAddress(Args _args)
{
VendTable vend;
DirPartyTable party;
LogisticsLocation loc;
LogisticsPostalAddress postalAddress;
Str city,s,l;
select vend where vend.AccountNum == "000001";
select party where party.RecId == vend.Party;
select loc where loc.RecId == party.PrimaryAddressLocation;
select postalAddress where postalAddress.Location == loc.RecId ;
print postalAddress.Address;
l = LogisticsPostalAddress::findByLocation(LogisticsLocation::find(DirPartyTable::findRec(VendTable::find('000001').Party).PrimaryAddressLocation).RecId).Address;
s =LogisticsPostalAddress::findByLocation(DirPartyTable::findRec(VendTable::find('000001').Party).PrimaryAddressLocation).Address;
city = LogisticsPostalAddress::findByLocation(DirPartyTable::findRec(CustTable::find('US-011').Party).PrimaryAddressLocation).City;
PRINT s;
PRINT l;
PRINT city;
//pAUSE;
select postalAddress join loc where postalAddress.Location == loc.RecId
join party where loc.RecId == party.PrimaryAddressLocation
join vend where party.RecId == vend.Party
&& vend.AccountNum == "000001";
print postalAddress.Address;
pause;
}
{
Str city,s;
s = CustTable::find('US-010').name();
City = LogisticsPostalAddress::findByLocation(DirPartyTable::findRec(CustTable::find('US-011').Party).PrimaryAddressLocation).City;
info(strFmt("%1 ----> %2",s,City));
}
static void VendorAddress(Args _args)
{
VendTable vend;
DirPartyTable party;
LogisticsLocation loc;
LogisticsPostalAddress postalAddress;
Str city,s,l;
select vend where vend.AccountNum == "000001";
select party where party.RecId == vend.Party;
select loc where loc.RecId == party.PrimaryAddressLocation;
select postalAddress where postalAddress.Location == loc.RecId ;
print postalAddress.Address;
l = LogisticsPostalAddress::findByLocation(LogisticsLocation::find(DirPartyTable::findRec(VendTable::find('000001').Party).PrimaryAddressLocation).RecId).Address;
s =LogisticsPostalAddress::findByLocation(DirPartyTable::findRec(VendTable::find('000001').Party).PrimaryAddressLocation).Address;
city = LogisticsPostalAddress::findByLocation(DirPartyTable::findRec(CustTable::find('US-011').Party).PrimaryAddressLocation).City;
PRINT s;
PRINT l;
PRINT city;
//pAUSE;
select postalAddress join loc where postalAddress.Location == loc.RecId
join party where loc.RecId == party.PrimaryAddressLocation
join vend where party.RecId == vend.Party
&& vend.AccountNum == "000001";
print postalAddress.Address;
pause;
}
No comments:
Post a Comment