campo-sirio/pe/pe1400b.uml

#include "pe1400.h"

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_NEWREC 2 2
BEGIN
  PROMPT 1 1 "~Nuovo"
  MESSAGE EXIT,K_INS
  PICTURE TOOL_NEWREC
END

BUTTON DLG_COPY 2 2 
BEGIN
  PROMPT 1 1 "Duplica"
  PICTURE TOOL_COPY
END

BUTTON DLG_SAVEREC 2 2
BEGIN
  PROMPT 2 1 "~Registra"
  MESSAGE EXIT,K_SAVE
  PICTURE TOOL_SAVEREC
END

BUTTON DLG_DELREC 2 2
BEGIN
  PROMPT 3 1 "~Elimina"
  MESSAGE EXIT,K_DEL
  PICTURE TOOL_DELREC
END

BUTTON DLG_NULL 2 2
BEGIN
  PROMPT -1 1 ""
  PICTURE 0
END

BUTTON DLG_ELABORA 2 2 
BEGIN
  PROMPT 1 2 "Elabora"
  PICTURE TOOL_ELABORA
END

BUTTON DLG_PRINT 2 2 
BEGIN
  PROMPT 1 3 "Stampa"
  PICTURE TOOL_PRINT
END

BUTTON DLG_PREVIEW 2 2 
BEGIN
  PROMPT 1 3 "Antepr."
  PICTURE TOOL_PREVIEW
END

BUTTON DLG_NULL 2 2
BEGIN
  PROMPT -1 1 ""
  PICTURE 0
END

#include <navbar.h>
#include <cancelbar.h>

ENDPAGE

PAGE "Preventivi" 0 0 0 0

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 0 "@bPreventivo"
END

LIST F_PROVV 1 12
BEGIN
  PROMPT 69 69 ""
  ITEM "D|Definitivi"
  ITEM "P|Provvisori"
  FIELD PROVV
  FLAGS "D"
  KEY 1
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 1 "Anno        "
  FLAGS "D"
  CHECKTYPE REQUIRED
  FIELD ANNO
  KEY 1
END

STRING F_CODNUM 4
BEGIN
  PROMPT 2 2 "Numerazione "
  USE %NUM
  FLAGS "DGU"
  INPUT CODTAB F_CODNUM
  OUTPUT F_DESNUM S0
  CHECKTYPE REQUIRED
  FIELD CODNUM
  KEY 1
END

STRING F_DESNUM 50
BEGIN
  PROMPT 24 2 ""
  FLAGS "D"
END

NUMBER F_NDOC 7
BEGIN
  PROMPT 24 1 "Numero documento "
  FLAGS "DG"
  CHECKTYPE REQUIRED
  FIELD NDOC
  KEY 1
END

STRING F_STATO 1
BEGIN
  PROMPT 53 1 "Stato "
  FIELD STATO
  FLAGS "DG"
END

STRING F_TIPODOC 4
BEGIN
  PROMPT 2 3 "Tipo         "
  FLAGS "H"
  FIELD TIPODOC
  USE %TIP
  INPUT CODTAB F_TIPODOC
  OUTPUT F_DESTIPO S0
  CHEKCTYPE NORMAL
END

STRING F_DESTIPO 50
BEGIN
  PROMPT 24 3 ""
  FLAGS "H"
END

NUMBER F_NPREV 7
BEGIN
  PROMPT 2 3 "Preventivo  "
  FLAGS "D"
END

NUMBER F_NREV 2
BEGIN
  PROMPT 24 3 "Revisione  "
  FLAGS "DZ"
END

DATE F_DATADOC
BEGIN
  PROMPT 46 3 "Data "
  FLAGS "A"
  FIELD DATADOC
  CHECKTYPE REQUIRED
END

STRING F_NUMDOCRIF 7
BEGIN
  PROMPT 2 4 "Documento di riferimento "
  FIELD NUMDOCRIF
END

DATE F_DATADOCRIF
BEGIN
  PROMPT 36 4 "del "
  FIELD DATADOCRIF
END

GOLEM F_OGGETTI 10 2
BEGIN
  PROMPT 64 3 ""
  FIELD COLL_GOLEM
  FLAGS "M"
END

GROUPBOX DLG_NULL 78 9
BEGIN
  PROMPT 1 6 "@bCliente"
END

LIST DLG_NULL 1 7
BEGIN
  PROMPT 68 68 "Tipo "
  ITEM "C|Cliente"
  FLAGS "H"
  FIELD TIPOCF
END

NUMBER F_CLIFO 7
BEGIN
  PROMPT 2 7 "Cliente   "
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF F_CLIFO
  DISPLAY "Cliente" CODCF
  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
  DISPLAY "Partita IVA@12" PAIV
  DISPLAY "Codice Fiscale@16" COFI
  DISPLAY "Sospeso@C" SOSPESO
  OUTPUT F_CLIFO CODCF
  OUTPUT F_RAGSOC RAGSOC
  OUTPUT F_RICALT RICALT
  OUTPUT F_STATOPAIV STATOPAIV
  OUTPUT F_PAIV PAIV
  OUTPUT F_COFI COFI
  CHECKTYPE REQUIRED
  FIELD CODCF
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 24 7 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Cliente" CODCF
  DISPLAY "Partita IVA@12" PAIV
  DISPLAY "Codice Fiscale@16" COFI
  DISPLAY "Sospeso@C" SOSPESO
  COPY OUTPUT F_CLIFO
  CHECKTYPE REQUIRED
END

STRING F_RICALT 30
BEGIN
  PROMPT 2 8 "Codice    "
  USE LF_CLIFO KEY 6
  INPUT TIPOCF "C"
  INPUT RICALT F_RICALT
  DISPLAY "Codice alt.@30" RICALT
  DISPLAY "Cliente" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Sospeso@C" SOSPESO
  COPY OUTPUT F_CLIFO
  HELP "Chiave di ricerca alternativa"
END

STRING F_STATOPAIV 2
BEGIN
  PROMPT 52 8 "Stato CEE "
  HELP "Codice ISO dello stato"
  FLAGS "U"
  USE %SCE
  INPUT CODTAB F_STATOPAIV
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_STATOPAIV CODTAB
  CHECKTYPE NORMAL
END

STRING F_COFI 16
BEGIN
  PROMPT 2 9 "Codice fiscale "
  FLAGS "U"
  USE LF_CLIFO KEY 4
  INPUT TIPOCF "C"
  INPUT COFI F_COFI
  DISPLAY "Codice fiscale@16" COFI
  DISPLAY "Cliente" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Partita IVA@12" PAIV
  DISPLAY "Sospeso@C" SOSPESO
  COPY OUTPUT F_CLIFO
  HELP "Codice fiscale del cliente/fornitore"
END

STRING F_PAIV 12
BEGIN
  PROMPT 50 9 "Partita IVA "
  KEY 5
  USE LF_CLIFO KEY 5
  INPUT TIPOCF "C"
  INPUT STATOPAIV F_STATOPAIV
  INPUT PAIV F_PAIV
  DISPLAY "Partita IVA@11" PAIV
  DISPLAY "Cliente" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice fiscale@16" COFI
  DISPLAY "Sospeso@C" SOSPESO
  COPY OUTPUT F_CLIFO
  HELP "Partita IVA del cliente/fornitore"
  VALIDATE PI_FUNC F_STATOPAIV
END

ZOOM F_NOTE 62
BEGIN
  PROMPT 2 10 "Note      "
  FIELD NOTE
END

STRING F_CODPAG 4 
BEGIN
  PROMPT 2 11 "Pagamento "
  USE %CPG
  INPUT CODTAB F_CODPAG
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODPAG CODTAB
  OUTPUT F_DESPAG S0
  CHECKTYPE NORMAL
  FIELD CODPAG
END

STRING F_DESPAG 50
BEGIN
  PROMPT 24 11 ""
  USE %CPG KEY 2
  INPUT S0 F_DESPAG
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODPAG
  CHECKTYPE NORMAL
END

STRING F_CODLIS 4 
BEGIN
  PROMPT 2 12 "Listino   "
  FLAGS "U"
  USE LF_CONDV
  INPUT TIPO "L"
  INPUT CATVEN ""
  INPUT COD F_CODLIS
  DISPLAY "Codice" COD
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Inizio@10" VALIN
  DISPLAY "Fine@10" VALFIN
  OUTPUT F_CODLIS COD
  OUTPUT F_DESLIS DESCR
  ADD RUN ve2 -1 L
  CHECKTYPE NORMAL
  FIELD CODLIST
END

STRING F_DESLIS 50
BEGIN
  PROMPT 24 12 ""
  USE LF_CONDV KEY 2
  INPUT TIPO "L"
  INPUT CATVEN ""
  INPUT DESCR F_DESLIS
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice" COD
  DISPLAY "Inizio@10" VALIN
  DISPLAY "Fine@10" VALFIN
  COPY OUTPUT F_CODLIS
  CHECKTYPE NORMAL
  ADD RUN ve2 -1 L
END

STRING F_RICARICO 25
BEGIN
  PROMPT 2 13 "Ricarico  "
  FIELD SCONTOPERC
END

LIST F_TIPOCOSTO 1 25
BEGIN
  PROMPT 43 13 "Costo "
  ITEM "0|"
  ITEM "1|Ultimo costo"
  ITEM "2|Media costi"
  ITEM "4|Costo standard"
  ITEM "5|Costo medio"
  ITEM "6|Costo medio ponderato"
  FIELD CODNOTE
END

GROUPBOX F_CDC0 78 6
BEGIN
  PROMPT 1 15 "@bAnalitica"
END

ENDPAGE

PAGE "Righe" 0 2 0 0

TLIST F_FASI 60 -1
BEGIN
  PROMPT 0 2 ""
  DISPLAY "Fasi@15"        CODART
  DISPLAY "Costo@7R"       QTAGG5
  DISPLAY "Prezzo@7R"      PREZZO
  DISPLAY "Descrizione@35" DESCR
END

BUTTON F_FASENEW 8 2
BEGIN
  PROMPT 1 0 "Nuovo"
  PICTURE BMP_NEWREC
  PICTURE BMP_NEWRECDN
END

BUTTON F_FASEDIT 8 2
BEGIN
  PROMPT 12 0 "Modifica"
  PICTURE BMP_EDIT
  FLAGS "D"
END

BUTTON F_FASEUP 3 2
BEGIN
  PROMPT 23 0 "Su"
  PICTURE BMP_DARROWU
  FLAGS "D"
END

BUTTON F_FASEDN 3 2
BEGIN
  PROMPT 29 0 "Gi<47>"
  PICTURE BMP_DARROWD
  FLAGS "D"
END

BUTTON F_FASELT 3 2
BEGIN
  PROMPT 35 0 "<<"
  PICTURE BMP_DARROWL
  FLAGS "D"
END

BUTTON F_FASERT 3 2
BEGIN
  PROMPT 41 0 ">>"
  PICTURE BMP_DARROWR
  FLAGS "D"
END

TEXT DLG_NULL
BEGIN
  PROMPT 50 0 "Fase max:"
END

LIST F_FASEMAX 1 9
BEGIN
  PROMPT 50 1 ""
  ITEM "1|1 Livello"
  ITEM "2|2 Livelli"
  ITEM "3|3 Livelli"
  ITEM "4|4 Livelli"
  FIELD NCOLLI
END

SPREADSHEET F_DISTINTE 0 11
BEGIN
  PROMPT 65 0 ""
  ITEM "Distinta@20"
  ITEM "Descrizione@50"
  ITEM "U.M."
  ITEM "Quantit<69>@9"
  ITEM "Costo@9R"
  ITEM "Prezzo@9R"
END

SPREADSHEET F_ARTICOLI 0 7
BEGIN
  PROMPT 65 11 ""
  ITEM "Articolo@20"
  ITEM "Descrizione@50"
  ITEM "U.M."
  ITEM "Quantit<69>@9R"
  ITEM "Costo@9R"
END

SPREADSHEET F_MISURE
BEGIN
  PROMPT 65 18 ""
  ITEM "Descrizione@50"
  ITEM "Numero@9"
  ITEM "Lunghezza@9"
  ITEM "Larghezza@9"
  ITEM "Altezza@9"
END

ENDPAGE

ENDMASK

PAGE "Distinta" -1 -1 60 6

STRING 101 20
BEGIN
  PROMPT 1 1 "Distinta "
  USE LF_DIST
  INPUT CODDIST 101
  DISPLAY "Codice@20" CODDIST
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "U.M." UM
  DISPLAY "Prezzo@V" PREZZO
  OUTPUT 101 CODDIST
  OUTPUT 102 DESCR
  OUTPUT 103 UM
  OUTPUT 105 PREZZO
  CHEKTYPE SEARCH
  ADD RUN db0 -4
  FIELD CODART
END

STRING 102 50 45
BEGIN
  PROMPT 1 2 "Descriz.  "
  USE LF_DIST KEY 2
  INPUT DESCR 105
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice@20" CODDIST
  DISPLAY "U.M." UM
  DISPLAY "Prezzo@V" PREZZO
  COPY OUTPUT 101
  CHEKTYPE SEARCH
  FIELD DESCR
END

STRING 103 2
BEGIN
  PROMPT 1 3 "U.M. "
  USE %UMS
  INPUT CODTAB 103
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT 103 CODTAB
  CHECKTYPE NORMAL
  FIELD UMQTA
END

NUMBER 104 9 2
BEGIN
  PROMPT 11 3 "Quantit<69> "
  FIELD QTA
END

CURRENCY 105 9
BEGIN
  PROMPT 37 3 "Costo  "
  FIELD QTAGG5
END

CURRENCY 106 9
BEGIN
  PROMPT 37 4 "Prezzo "
  FIELD PREZZO
END

ENDPAGE

TOOLBAR "" 0 0 0 2

BUTTON DLG_OK 2 2 
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_DELREC 2 2 
BEGIN
  PROMPT 2 1 ""
END

BUTTON DLG_CANCEL 2 2 
BEGIN
  PROMPT 3 1 ""
END

ENDPAGE
ENDMASK

PAGE "Riga" -1 -1 50 5

STRING 101 20
BEGIN
  PROMPT 1 1 "Articolo "
  USE LF_ANAMAG
  INPUT CODART 101
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT 101 CODART
  OUTPUT 102 DESCR
  CHEKTYPE NORMAL
  FIELD CODART
  ADD RUN ve2 -3
END

STRING 102 50 40
BEGIN
  PROMPT 1 2 "Descriz.  "
  USE LF_ANAMAG KEY 2
  INPUT DESCR 102
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice@20" CODART
  COPY OUTPUT 101
  FIELD DESCR
  ADD RUN ve2 -3
END

STRING 103 2
BEGIN
  PROMPT 1 3 "U.M. "
  USE LF_UMART KEY 2
  JOIN %UMS INTO CODTAB=UM
  INPUT CODART 101 SELECT
  INPUT UM 103
  DISPLAY "Codice" UM
  DISPLAY "Descrizione@50" LF_TABCOM->S0
  OUTPUT 103 UM
  CHECKTYPE NORMAL
  FIELD UMQTA
END

NUMBER 104 9 2
BEGIN
  PROMPT 11 3 "Quantit<69> "
  FIELD QTA
END

CURRENCY 105 9
BEGIN
  PROMPT 31 3 "Costo    "
  FIELD QTAGG5
END

ENDPAGE

TOOLBAR "" 0 0 0 2

BUTTON DLG_OK 2 2 
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_DELREC 2 2 
BEGIN
  PROMPT 2 1 ""
END

BUTTON DLG_CANCEL 2 2 
BEGIN
  PROMPT 3 1 ""
END

ENDPAGE
ENDMASK

PAGE "Misura" -1 -1 60 8

STRING 101 50 45
BEGIN
  PROMPT 1 1 "Descriz.  "
  FIELD DESCR
END

NUMBER 102 9
BEGIN
  PROMPT 1 2 "Numero    "
  FIELD QTA
END

NUMBER 103 9 2
BEGIN
  PROMPT 1 3 "Lunghezza "
  FIELD QTAGG1
END

NUMBER 104 9 2
BEGIN
  PROMPT 1 4 "Larghezza "
  FIELD QTAGG2
END

NUMBER 105 9 2
BEGIN
  PROMPT 1 5 "Altezza   "
  FIELD QTAGG3
END

NUMBER 106 9 2
BEGIN
  PROMPT 1 6 "Totale    "
  FIELD QTA
  FLAGS "DG"
  DRIVENBY 102 103 104 105
  NUM_CALC #102*IF(#103,#103,1)*IF(#104,#104,1)*IF(#105,#105,1)
END

ENDPAGE

TOOLBAR "" 0 0 0 2

BUTTON DLG_OK 2 2 
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_DELREC 2 2 
BEGIN
  PROMPT 2 1 ""
END

BUTTON DLG_CANCEL 2 2 
BEGIN
  PROMPT 3 1 ""
END

ENDPAGE
ENDMASK