There should be a ud folder on your server that has the program GetTableData.p as standard.
On the OnLeave event of the field where I select part (inPart) I have the following.
def var out1 as char no-undo.
def var out2 as char no-undo.
run ud\Test\GetTableData.p(output out1, output out2, "Part","field1","", inPart ,"",'Part.PartNum =<var1>').
field1 = out1.
run ud\Test\GetTableData.p(output out1, output out2, "Part","field2","", inPart ,"",'Part.PartNum =<var1>').
field2 = out1.
You just need to substitute "field1" and "field2" for whatever field you require from the Part table.
hope this helps
erwin
On the OnLeave event of the field where I select part (inPart) I have the following.
def var out1 as char no-undo.
def var out2 as char no-undo.
run ud\Test\GetTableData.p(output out1, output out2, "Part","field1","", inPart ,"",'Part.PartNum =<var1>').
field1 = out1.
run ud\Test\GetTableData.p(output out1, output out2, "Part","field2","", inPart ,"",'Part.PartNum =<var1>').
field2 = out1.
You just need to substitute "field1" and "field2" for whatever field you require from the Part table.
hope this helps
erwin
--- In vantage@yahoogroups.com, Bill Jackson <fujijapman@...> wrote:
>
> Â Something similar:Â (in between /* and */ is comments)
> Â
> /* procedure to return Part Description , Unit Cost based on input PartNo */
> DEFINE INPUT PARAMETER cPart AS CHARACTER NO-UNDO.
> DEFINE OUTPUT PARAMETER cDesc AS CHARACTER NO-UNDO.
> DEFINE OUTPUT PARAMETER dPrice AS DECIMAL NO-UNDO.
> Â
> /*DEFINE VARIABLE cSN AS CHARACTER NO-UNDO.
> DEFINE VARIABLE cPart AS CHARACTER NO-UNDO.*/
> Â
> Â
>
> Â DEFINE BUFFER hBuffer FOR mfgsys.Part.
> Â Â FIND Part WHERE Part.partNum = cPart AND Part.Company = "dble" NO-LOCK.
> Â Â
> Â Â if available Part then
> Â Â Â Â Â
> Â Â Â cDesc = Part.PartDescription.
> Â Â Â dPrice = Part.UnitPrice.
> Â Â Â Â Â Â Â
>   /* RELEASE Part. */Â
> Â Â Â Â
> Â Â Â Â
> Â --- On Mon, 6/29/09, gmack110256 <genemack@...> wrote:
>
>
> From: gmack110256 <genemack@...>
> Subject: [Vantage] Part table
> To: vantage@yahoogroups.com
> Date: Monday, June 29, 2009, 12:30 PM
>
>
>
>
>
>
>
>
> Does anyone have an example of a p program that would pull in the price and weight of a part into a configurator that they would be will to Share?
>
> I have no idea where to start on writing a p file. I have never done it before.
>
> Thanks
> Gene
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> [Non-text portions of this message have been removed]
>