campo-sirio/pr/pr0700a.uml
angelo 1fe4f39307 Aggiunta prima versione programmi:
- Gestione agenti
  - Gestione provvigioni
  - Gestione tabelle

Da fare:
  stampe varie


git-svn-id: svn://10.65.10.50/trunk@5108 c028cbd2-c16b-5b4b-a496-9718f37d4682
1997-08-27 09:18:41 +00:00

56 lines
802 B
Plaintext
Executable File

#include "pr0700a.h"
TOOLBAR "" 0 20 0 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -11 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -11 ""
END
ENDPAGE
PAGE "Gestione Provvigioni" -1 -1 78 8
GROUPBOX DLG_NULL 80 4
BEGIN
PROMPT 1 1 "Agente"
FLAGS "R"
END
STRING F_CODAGE 5
BEGIN
PROMPT 2 2 "Codice "
FLAGS "UZ"
USE LF_AGENTI
INPUT CODAGE F_CODAGE
DISPLAY "Codice@8R" CODAGE
DISPLAY "Descrizione@50" RAGSOC
OUTPUT F_CODAGE CODAGE
OUTPUT F_RAGSOC RAGSOC
CHECKTYPE REQUIRED
ADD RUN PR0 -4
END
STRING F_RAGSOC 50
BEGIN
PROMPT 2 3 "Ragione sociale "
USE LF_AGENTI KEY 2
INPUT RAGSOC F_RAGSOC
DISPLAY "Descrizione@50" RAGSOC
DISPLAY "Codice@8R" CODAGE
OUTPUT F_RAGSOC RAGSOC
OUTPUT F_CODAGE CODAGE
CHECKTYPE REQUIRED
ADD RUN PR0 -4
END
ENDPAGE
ENDMASK