campo-sirio/ca/catbauc.uml

#include "catbauc.h"

TOOLBAR "topbar" 0 0 0 2

#include <relapbar.h>

ENDPAGE

PAGE "Selezione archivi per Utente" 0 0 0 2

STRING F_AUC_CODICE 25
BEGIN
  PROMPT 2 2 "Utente          "
  USE %AUC
  JOIN LF_USER INTO USERNAME==CODTAB
  FIELD CODTAB
  FLAGS "G"
  KEY 1
  INPUT CODTAB F_AUC_CODICE
  DISPLAY "Utente@16" CODTAB
  DISPLAY "Gruppo@16" LF_USER->GROUPNAME
  DISPLAY "Descrizione@50" LF_USER->USERDESC
  OUTPUT F_AUC_CODICE CODTAB
  OUTPUT F_AUC_DESCR LF_USER->USERDESC
  CHECKTYPE REQUIRED
END

STRING F_AUC_CODICE1 25
BEGIN
  PROMPT 2 2 "Utente          "
  USE LF_USER
  FLAGS "G"
  KEY 1
  INPUT USERNAME F_AUC_CODICE1
  DISPLAY "Utente@16" USERNAME
  DISPLAY "Gruppo@16" GROUPNAME
  DISPLAY "Descrizione@50" USERDESC
  OUTPUT F_AUC_CODICE1 USERNAME
  OUTPUT F_AUC_DESCR USERDESC
  CHECKTYPE REQUIRED
  MESSGAE COPY,F_AUC_CODICE
END

STRING F_AUC_DESCR 50
BEGIN
  PROMPT 2 3 "Nome            "
  FLAGS "D"
END

STRING F_AUC_COMMESSE 70 50
BEGIN
  PROMPT 2 4 "Filtro commesse "
  FIELD S0
END

STRING F_AUC_CDC 70 50
BEGIN
  PROMPT 2 5 "Filtro C.D.C    "
  FIELD S1
END

STRING F_AUC_FASI 70 50
BEGIN
  PROMPT 2 6 "Filtro Fasi     "
  FIELD S2
END

ENDPAGE

ENDMASK