Do not let any software impress you!

Only let it convince your intellect.
Slider img 1
Do not look for a business paradise!

It is a waste of time.
Slider img 2
Only yourself can push you uphill.

There is no easy road to prizes.
Slider img 3
Productivity is the name of the game.

And you have to conquer it.
Slider img 4
As long as you understand it,

you will start to build your know-how.
Slider img 5
We can help with that.

We have the tools and the method.
Slider img 6

Comments for the Costs
Is Valid
1
Applied from
Cost
/
Type
Resource
Business Partner
2
Lead Time

Title : Resource's Cost

Toolbars

call CloseForm(True)
call CloseForm(False)

Buttons

Fields


Is Valid (AU_RESOURCE_COST.IS_VALID)
1 (AU_RESOURCE_COST.RCOST1)
 (AU_RESOURCE_COST.COMM1)
Applied from (AU_RESOURCE_COST.CDATE)
 (AU_RESOURCE_COST.COMM2)
Cost (AU_RESOURCE_COST.RCOST0)
 (AU_CURRENCY.CCODE)
/ (AU_UNITMEAS.CODE)
Type (AU_RESOURCE_COST_TYPE.AU_RESOURCE_COST_TYPE_D)
Resource (AU_RESOURCE.RTITLE)
 (AU_RESOURCE_COST.COMM)
Business Partner (AU_BUSINESS.TITLE)
2 (AU_RESOURCE_COST.RCOST2)
Lead Time (AU_RESOURCE_COST.LEAD_TIME_DAYS)


AutoScript

lib

proc Form_Start()

     f = TopForm()
     p = PByName(f,"AU_RESOURCE_COST")
     t = TByName(p,"AU_RESOURCE_COST")

     task = FormTask(f)

     if (task = ptAppend) then

        res_id = __params[6]
        res_name = LookUpId("AU_RESOURCE",res_id,"RTITLE")

        call TEdit(t)
        call TSetFld(t,"AU_RESOURCE",res_id)
        call TSetFld(t,"F_AU_RESOURCE_RTITLE",res_name)
        call TPost(t)
        call ReLoadEditFields(f)

     endif

     call OnOpenForm_DisableField("F_AU_RESOURCE_RTITLE")
end