campo-sirio/pr/prtbsua.uml

#include "prtbsua.h"
#define LF_CLIFOR 20

TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Tabella subagenti" 0 2 0 0

GROUPBOX DLG_NULL 75 7
BEGIN
 PROMPT 1 0 ""
 FLAGS "R"
END

STRING F_CODICE 5
BEGIN
  PROMPT 2 2 "Agente    "
  FIELD CODTAB[1,5]
  KEY 1
  FLAG "U"
  USE AGE
  INPUT AGE->CODTAB  F_CODICE
  DISPLAY "Codice " AGE->CODTAB
  DISPLAY "Descrizione@50" AGE->S0
  OUTPUT F_CODICE AGE->CODTAB
  OUTPUT F_DESCRAGE  AGE->S0
  CHECKTYPE REQUIRED
END

STRING F_DESCRAGE 50
BEGIN
  PROMPT 21 2 ""
  FLAGS "D"
  CHECKTYPE NORMAL
END

STRING F_NUMERO 2
BEGIN
  PROMPT 2 4 "Subagente "
  FIELD CODTAB[6,7]
  FLAG "U"
  KEY 1
  USE SUA
  INPUT CODTAB[1,5]  F_CODICE
  INPUT CODTAB[6,7]  F_NUMERO
  DISPLAY "Agente " CODTAB[1,5]
  DISPLAY "Subagente " CODTAB[6,7]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODICE CODTAB[1,5]
  OUTPUT F_NUMERO CODTAB[6,7]
  OUTPUT F_DESCR S0
  CHECKTYPE REQUIRED
END

STRING F_DESCR 50
BEGIN
  PROMPT 21 4 ""
  FIELD S0
  KEY 2
  USE SUA KEY 2
  INPUT S0  F_DESCR
  DISPLAY "Descrizione@50" S0
  DISPLAY "Subagente " CODTAB[6,7]
  DISPLAY "Agente " CODTAB[1,5]
  OUTPUT F_CODICE CODTAB[1,5]
  OUTPUT F_NUMERO CODTAB[6,7]
  OUTPUT F_DESCR  S0
  CHECKTYPE REQUIRED
END

NUMBER F_PROVVFISSA 6 2
BEGIN
  PROMPT 2 8  "Provvigione fissa  "
  FIELD R0
END

NUMBER F_PROVVVAR 6 2
BEGIN
  PROMPT 35 8  "Provvigione variabile  "
  FIELD R1
END

STRING F_CODAGENTE 6
BEGIN
  PROMPT 2 10 "Codice fornitore   "
  FIELD S1
  FLAG "R"
  USE LF_CLIFOR KEY 1 SELECT TIPOCF="F"
  INPUT CODCF F_CODAGENTE
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODAGENTE CODCF
  OUTPUT F_RAGSOC RAGSOC

END

STRING F_RAGSOC 50
BEGIN
  PROMPT 2 12 "Ragione sociale    "
  FIELD S2
  USE LF_CLIFOR KEY 2 SELECT TIPOCF="F"
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  OUTPUT F_RAGSOC RAGSOC
  OUTPUT F_CODAGENTE CODCF

END

BOOLEAN F_LIQPROVV
BEGIN
  PROMPT 2 14 "Liquidazioni provvigioni sul pagato "
  FIELD B0
END

ENDPAGE


ENDMASK