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 16
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 16
BEGIN
  PROMPT 2 2 "Utente          "
  FIELD CODTAB
  FLAGS "HG"
  KEY 1
  USE LF_USER
  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
  MESSAGE 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

TEXT -1
BEGIN
  PROMPT 2 8 "I campi soprastanti sono di tipo formula. Si usano per indicare Commesse, Fasi,"
END

TEXT -1
BEGIN
  PROMPT 2 9 "e CdC che l'utente selezionato <20> autorizzato o meno a consultare/modificare."
END

TEXT -1
BEGIN
  PROMPT 2 10 "Esempi"
END

TEXT -1
BEGIN
  PROMPT 2 11 "CODCMS=codicecommessa"
END

TEXT -1
BEGIN
  PROMPT 2 12 "CODCOSTO=codicecdc"
END

TEXT -1
BEGIN
  PROMPT 2 13 "CODFASE=codicefase"
END
  
ENDPAGE

ENDMASK