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 "Ordine"
  PICTURE TOOL_ELABORA
END

BUTTON DLG_ARCHIVE 2 2 
BEGIN
  PROMPT 1 2 "Fabbisogno"
  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 -1 78 6
BEGIN
  PROMPT 1 0 "@bPreventivo"
END

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

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

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

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

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

STRING 210 1
BEGIN
  PROMPT 53 1 "Stato "
  USE %STD
  INPUT CODTAB 210
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT 210 CODTAB
  CHECKTYPE NORMAL
  FIELD STATO
  FLAGS "DG"
END

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

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

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

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

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

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

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

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

GR -1 78 7
BEGIN
  PROMPT 1 6 "@bCliente"
END

LISTBOX -1 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" 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 NORMAL
  FIELD CODCF
  ADD RU cg0 -1 C
  MESSAGE COPY,10@
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 NORMAL
  ADD RUN cg0 -1 C
  MESSAGE COPY,10@
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 "
  HE "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
  CO OUTPUT F_CLIFO
  HE "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
  CO OUTPUT F_CLIFO
  HE "Partita IVA del cliente/fornitore"
  VA 2 1 F_STATOPAIV
END


STRING F_CLIPOT 16
BEGIN
  PROMPT 2 10 "Potenziale Cliente    "
  USE LF_OCCAS
  INPUT CFPI F_CLIPOT
  DISPLAY "Codice@20" CFPI
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_CLIPOT CFPI
  OUTPUT F_RAGPOT RAGSOC
  CHECKTYPE NORMAL
  FIELD OCFPI
  ADD RU cg0 -6
END

STRING F_RAGPOT 50
BEGIN
  PROMPT 24 11 ""
  USE LF_OCCAS KEY 2
  INPUT RAGSOC F_RAGPOT
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice@20" CFPI
  COPY OUTPUT F_CLIPOT
  ADD RUN cg0 -6
END

GROUPBOX -1 78 7
BEGIN
  PROMPT 1 13 "@bDati Commerciali"
END

ZOOM 226 62
BEGIN
  PROMPT 2 14 "Oggetto   "
  FIELD NOTE
END

STRING 227 4 
BEGIN
  PROMPT 2 15 "Pagamento "
  USE %CPG
  INPUT CODTAB 227
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT 227 CODTAB
  OUTPUT 228 S0
  CHECKTYPE NORMAL
  FIELD CODPAG
  END
  STRING 228 50
  BEGIN
  PROMPT 24 15 ""
  USE %CPG KEY 2
  INPUT S0 228
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  CO OUTPUT 227
  CHECKTYPE NORMAL
END

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

STRING 230 50
BEGIN
  PROMPT 24 16 ""
  USE 52 KEY 2
  INPUT TIPO "L"
  INPUT CATVEN ""
  INPUT DESCR 230
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice" COD
  DISPLAY "Inizio@10" VALIN
  DISPLAY "Fine@10" VALFIN
  CO OUTPUT 229
  CHECKTYPE NORMAL
  ADD RU ve2 -1 L
END

STRING 234 25
BEGIN
  PROMPT 2 17 "Ricarico  "
  FIELD SCONTOPERC
END

LIST 235 1 25
BEGIN
  PROMPT 43 17 "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

STRING 128 5
BEGIN
  PROMPT 2 18 "Responsabile"
  FLAGS "UZ"
  CHECKTYPE NORMAL
  FIELD CODAG
  USE 122
  INPUT CODAGE 128
  DISPLAY "Codice" CODAGE
  DISPLAY "Descrizione@50" RAGSOC
  OUTPUT 128 CODAGE
  OUTPUT 353 RAGSOC
  CHECKTYPE NORMAL
  ADD RU pr0 -4
END

STRING 353 50
BEGIN
  PROMPT 24 18 ""
  FLAGS ""
  CHECKTYPE NORMAL
  USE 122 KEY 2
  INPUT RAGSOC 353
  DISPLAY "Descrizione@50" RAGSOC
  DISPLAY "Codice" CODAGE
  OUTPUT 128 CODAGE
  OUTPUT 353 RAGSOC
  ADD RUN pr0 -4
END

GROUPBOX F_CDC0 78 3
BEGIN
  PROMPT 1 20 "@bAnalitica"
END

ENDPAGE

PAGE "Righe" 0 2 0 0

TLIST F_FASI 60 -1
BEGIN
  PROMPT 0 2 ""
  DISPLAY "Fasi@15"        CODART
  DISPLAY "Costo@10R"      QTAGG5
  DISPLAY "Prezzo@10R"     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 48 0 "Liv. Fasi "
END

LIST F_FASEMAX 1 1
BEGIN
  PROMPT 58 0 ""
  ITEM "1|1"
  ITEM "2|2"
  ITEM "3|3"
  ITEM "4|4"
END

BOOLEAN F_FASEART
BEGIN
  PROMPT 48 1 "Art.=Ult.liv."
  FIELD ADDBOLLI
  HELP "Usa codice articolo come ultimo livello delle fasi"
END

SPREADSHEET F_DISTINTE 0 11
BEGIN
  PROMPT 65 0 ""
  IT "Voce Elenco Prezzi@20"
  IT "Descrizione@50"
  IT "U.M."
  IT "Quantit<69>@9"
  IT "Costo@16R"
  IT "Prezzo@16R"
  IT "IVA"
  IT "Data inizio@10"
  IT "Data fine@10"
  IT "ID@6"
  IT "Legame@6"
  IT "Tipo\nleg.@4"
  IT "Tot. Ricavi@16"
  IT "Tot. Costi@16"
END

SPREADSHEET F_ARTICOLI 0 7
BEGIN
  PROMPT 65 11 ""
  ITEM "Voce Analisi@20"
  ITEM "Descrizione@50"
  ITEM "U.M."
  ITEM "Quantit<69>@9R"
  ITEM "Costo@16R"
  ITEM "Prezzo@16R"
  ITEM "IVA"
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 65 9

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@14V" PREZZO
  OUTPUT 101 CODDIST
  OUTPUT 102 DESCR
  OUTPUT 103 UM
  CHEKTYPE SEARCH
  ADD RUN db0 -4
  FIELD CODART
END

ZOOM 102 50
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@14V" 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 13 3 "Quantit<69> "
  FIELD QTA
END

CURRENCY 105 16
BEGIN
  PROMPT 35 3 "Costo  "
  FIELD QTAGG5
END

CURRENCY 106 16
BEGIN
  PROMPT 35 4 "Prezzo "
  FIELD PREZZO
END

STRING 107 4
BEGIN
  PROMPT 1 4 "IVA "
  USE %IVA
  INPUT CODTAB 107
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT 107 CODTAB
  CHECKTYPE NORMAL
  FIELD CODIVA
END

DATE 108
BEGIN
  PROMPT 1 5 "Inizio attivit<69> "
  FIELD DATAINIATT
END

DATE 109
BEGIN
  PROMPT 35 5 "Fine attivit<69> "
  FIELD DATAFINATT
END

NUMBER 110 6
BEGIN
  PROMPT 1 6 "ID "
  FIELD IDRIGA
  FLAGS "D"
END

NUMBER 111 6
BEGIN
  PROMPT 15 6 "Legame "
  FIELD IDRIGACOLL
END

LIST 112 1 15
BEGIN
  PROMPT 35 6 "Tipo legame "
  ITEM "0|Nessuno"
  ITEM "1|Fine-Inizio"
  ITEM "2|Fine-Fine"
  ITEM "3|Inizio-Inizio"
  ITEM "4|Inizio-Fine"
  FIELD TIPOCOLL
END

NUMBER 113 16 2
BEGIN
  PROMPT 1 7 "Tot. Ricavi"
  FLAGS "DG"
  VALIDATE 14 1 #104*#106
  DRIVENBY 104 106
END

NUMBER 114 16 2
BEGIN
  PROMPT 35 7 "Tot. Costi"
  FLAGS "DG"
  VALIDATE 14 1 #104*#105
  DRIVENBY 104 105
EN


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 65 5

STRING 101 20
BEGIN
  PROMPT 1 1 "Articolo "
  USE LF_ANAMAG
  JOIN LF_UMART INTO CODART==CODART
  INPUT CODART 101
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "U.M." LF_UMART->UM
  OUTPUT 101 CODART
  OUTPUT 102 DESCR
  CHEKTYPE NORMAL
  FIELD CODART
  ADD RUN ve2 -3
END

STRING 102 50
BEGIN
  PROMPT 1 2 "Descriz. "
  USE LF_ANAMAG KEY 2
  JOIN LF_UMART INTO CODART==CODART
  INPUT DESCR 102
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice@20" CODART
  DISPLAY "U.M." LF_UMART->UM
  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 13 3 "Quantit<69> "
  FIELD QTA
END

CURRENCY 105 16
BEGIN
  PROMPT 34 3 "Costo  "
  FIELD QTAGG5
END

CURRENCY 106 16
BEGIN
  PROMPT 34 4 "Prezzo "
  FIELD PREZZO
END

STRING 107 4
BEGIN
  PROMPT 45 4 "IVA "
  USE %IVA
  INPUT CODTAB 107
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT 107 CODTAB
  CHECKTYPE NORMAL
  FIELD CODIVA
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