Edit profile

Page History

Versions Compared

Old Version 3

changes.mady.by.user Rodrigo Rivero

Saved on Aug 24, 2022

compared with

New Version Current

changes.mady.by.user user-eb51a

Saved on Jun 14, 2023

Key

This line was added.
This line was removed.
Formatting was changed.

...

Consider the following prompt program for department number. Note that it allows the user to select a department, change an existing department, delete an existing department or even create a new department:

Panel
^{INVOICE01 Invoice Inquiry} ^{Company number . .}
INVOICE01 Invoice Inquiry Company number . . ^. ____ ^{................................................................} Dept number . . . . . ^{Dept number . . . . . . . . ____ :} DEP01 Departments : Invoice number . . . ^{DEP01 Departments :}^{Invoice number . . . . . ______ :} : : 1=Select 2=Change 3=Delete : : : : Dept Department : : Sel Numb Description : : ___ 001 ADMINISTRATION : : ___ 002 FINANCE : : ___ 004 SALES & MARKET : : ___ 006 PLANT MAINT : : ___ 007 VEHICLE MAINT : : : : F6=Create F12=Cancel : : : F4=Prompt : ^:^{: 1=Select 2=Change 3=Delete :}^{: :}^{: Dept Department :}^{: Sel Numb Description :}^{: ___ 001 ADMINISTRATION :}^{: ___ 002 FINANCE :}^{: ___ 004 SALES & MARKET :}^{: ___ 006 PLANT MAINT :}^{: ___ 007 VEHICLE MAINT :}^{: :}^{: F6=Create F12=Cancel :}^{: :}^{F4=Prompt :............................................} : ^{...................:}

Panel

^{INVOICE01 Invoice Inquiry}

^{Company number . .}

No Format

INVOICE01 Invoice Inquiry Company number . .

^. ____

^{................................................................}

Dept number . . . . .

^{Dept number . . . . . . . . ____ :}

DEP01 Departments : Invoice number . . .

^{DEP01 Departments :}^{Invoice number . . . . . ______ :}

: : 1=Select 2=Change 3=Delete : : : : Dept Department : : Sel Numb Description : : ___ 001 ADMINISTRATION : : ___ 002 FINANCE : : ___ 004 SALES & MARKET : : ___ 006 PLANT MAINT : : ___ 007 VEHICLE MAINT : : : : F6=Create F12=Cancel : : : F4=Prompt :

^:^{: 1=Select 2=Change 3=Delete :}^{: :}^{: Dept Department :}^{: Sel Numb Description :}^{: ___ 001 ADMINISTRATION :}^{: ___ 002 FINANCE :}^{: ___ 004 SALES & MARKET :}^{: ___ 006 PLANT MAINT :}^{: ___ 007 VEHICLE MAINT :}^{: :}^{: F6=Create F12=Cancel :}^{: :}^{F4=Prompt :............................................}

^{...................:}

If the user elected to create, change or delete a department, then another pop up window might be used.

The following example might reflect what the screen looks like after using F6 and keying in the new department details:

No Formatpanel
^{INVOICE01 Invoice Inquiry} Company number . . ^{Company number . . . ____} ^{................................................................} Dept number . . . . . ^{Dept number . . . . . . . . ____ :} DEP01 Departments ^{DEP01 Departments :} Invoice number . . . ^{Invoice number . . . . . ______ :} : : 1=Select 2=Change 3=Delete : : : ^: ^{: 1=Select 2=Change 3=Delete :} ^{: :} ^{.........................................................................} artment : : DEP02 Maintain Departments :cription : : :INISTRATION : : Dept number . . . . 008 :ANCE : : Description . . . . ACCOUNTING :ES & MARKET : : Phone number . . . 415-2737 :NT MAINT : : :ICLE MAINT : : F12=Cancel : : : ^{artment :} ^{: DEP02 Maintain Departments :cription :} ^{: :INISTRATION :} ^{: Dept number . . . . 008 :ANCE :} ^{: Description . . . . ACCOUNTING :ES & MARKET :} ^{: Phone number . . . 415-2737 :NT MAINT :} ^{: :ICLE MAINT :} ^{: F12=Cancel : :} ^{:..........................................................................:=} Cancel : : : F4=Prompt : ^{Cancel :} ^{: :} ^{F4=Prompt :................................................................:}

No Formatpanel

^{INVOICE01 Invoice Inquiry}

Company number . .

^{Company number . . . ____}

^{................................................................}

Dept number . . . . .

^{Dept number . . . . . . . . ____ :}

DEP01 Departments

^{DEP01 Departments :}

Invoice number . . .

^{Invoice number . . . . . ______ :}

: : 1=Select 2=Change 3=Delete : : :

^:
^{: 1=Select 2=Change 3=Delete :}
^{: :}
^{.........................................................................}

artment : : DEP02 Maintain Departments :cription : : :INISTRATION : : Dept number . . . . 008 :ANCE : : Description . . . . ACCOUNTING :ES & MARKET : : Phone number . . . 415-2737 :NT MAINT : : :ICLE MAINT : : F12=Cancel : : :

^{artment :}
^{: DEP02 Maintain Departments :cription :}
^{: :INISTRATION :}
^{: Dept number . . . . 008 :ANCE :}
^{: Description . . . . ACCOUNTING :ES & MARKET :}
^{: Phone number . . . 415-2737 :NT MAINT :}
^{: :ICLE MAINT :}
^{: F12=Cancel : :}
^{:..........................................................................:=}

Cancel : : : F4=Prompt :

^{Cancel :}
^{: :}
^{F4=Prompt :................................................................:}

The processing required to do this in the prompting program is all fairly standard. However, once this program is in place, a user can select from or maintain the departments file from any screen panel that has the field department number on it.

...

Content

Space Tools

Versions Compared

Old Version 3

New Version Current

Key