campo-sirio/ba/batbcms.uml

#include "batbcms.h"

TOOLBAR "" 0 20 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Commesse" -1 -1 78 8

STRING F_CODICE 20
BEGIN
  PROMPT 4 2 "Codice Commessa "
  FIELD CODTAB
  FLAGS "UZ"
  KEY 1
  USE CMS
  INPUT CODTAB F_CODICE
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODICE CODTAB
  OUTPUT F_DESCR S0
  CHECKTYPE REQUIRED
END

STRING F_DESCR 50
BEGIN
  PROMPT 4 4 "Descrizione     "
  FIELD S0
  KEY 2
  USE CMS KEY 2
  INPUT S0 F_DESCR
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@20" CODTAB
  COPY OUTPUT F_CODICE
  CHECKTYPE REQUIRED
  WARNING "Manca la descrizione"
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 4 6 "Codice cliente  "
  FIELD I0
  FLAG "R"
  USE LF_CLIFO
  INPUT TIPOCF "C" SELECT
  INPUT CODCF F_CODCF
  DISPLAY "Codice@6R" CODCF
  DISPLAY "Sospeso" SOSPESO
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice fiscale@16" COFI
  DISPLAY "Partita IVA@11" PAIV
  OUTPUT F_CODCF CODCF
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE NORMAL
  WARNING "Cliente assente"
  ADD RUN cg0 -1
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 30 6 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C" SELECT
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice@6R" CODCF
  DISPLAY "Sospeso" SOSPESO
  DISPLAY "Codice fiscale@16" COFI
  DISPLAY "Partita IVA@11" PAIV
  COPY OUTPUT F_CODCF
  CHECKTYPE NORMAL
  WARNING "Cliente assente"
END

LIST F_IVA 20
BEGIN
  PROMPT 4 8 "Regime IVA      "
  FIELD S7
  HELP "Indicare il tipo di regime IVA"
  ITEM "  |IVA normale"
  ITEM "NR|Non rilevante"
  ITEM "ES|Operazioni esenti"
  ITEM "NI|Non imponibili"
  ITEM "NS|Non soggetti"
  ITEM "FC|Fuori campo"
END

BOOLEAN F_PUBB
BEGIN
  PROMPT 4 10 "Pubblico"
  FIELD B0
  MESSAGE FALSE CLEAR,F_REND
  MESSAGE TRUE ENABLE,F_REND
END

BOOLEAN F_REND
BEGIN
  PROMPT 4 12 "Da rendicontare"
  FIELD B1
END

DATE F_INIZIO
BEGIN
  PROMPT 4 14 "Data inizio     "
  FIELD D0
END

DATE F_FINE
BEGIN
  PROMPT 44 14 "Data fine       "
  FIELD D1
END

BOOLEAN F_PROR
BEGIN
  PROMPT 4 16 "Prorogata"
  FIELD B2
END

BOOLEAN F_CHIUSA
BEGIN
  PROMPT 4 18 "Chiusa"
  FIELD B3
END

STRING F_RESP 8
BEGIN
  PROMPT 4 20 "Responsabile    "
  FLAGS "U"
  USE LF_USER SELECT ISGROUP!="X"
  INPUT USERNAME F_RESP
  DISPLAY "Utente@8" USERNAME
  DISPLAY "Gruppo@8" GROUPNAME
  DISPLAY "Descrizione@50" USERDESC
  OUTPUT F_RESP USERNAME
  CHECKTYPE SEARCH
  FIELD S4
END

ENDPAGE

ENDMASK