campo-sirio/sl/sl0100b.uml

#include "sl0100a.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_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 B_PRINT_LIB 2 2 
BEGIN
  PROMPT 1 3 "Misure"
  PICTURE TOOL_PRINT
END

BUTTON DLG_PRINT 2 2 
BEGIN
  PROMPT 1 3 "S.A.L."
  PICTURE TOOL_PRINT
END

BUTTON B_PRINT_REG 2 2 
BEGIN
  PROMPT 1 3 "Registro"
  PICTURE TOOL_PRINT
END

BUTTON DLG_ELABORA 2 2
BEGIN
  PROMPT 1 4 "Certificato"
  PICTURE TOOL_ELABORA
END

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

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

ENDPAGE

PAGE "S.A.L." 0 2 0 0

GROUPBOX -1 78 6
BEGIN
  PROMPT 1 0 "@bS.A.L."
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_NDOC_ORD 7
BEGIN
  PROMPT 2 1 "Ordine numero "
  FIELD NUMDOCRIF
  FLAGS "D"
END

DATE F_DATA_ORD
BEGIN
  PROMPT 26 1 "del  "
  FIELD DATADOCRIF
  FLAGS "D"
END

NUMBER F_NDOC 7
BEGIN
  PROMPT 2 2 "Numero int.   "
  FLAGS "DG"
  CHECKTYPE REQUIRED
  FIELD NDOC
  KEY 1
END

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

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

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

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

NUMBER F_NSAL 3
BEGIN
  PROMPT 2 4 "Numero S.A.L. "
  FLAGS "D"
  FIELD NUMANT
END

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

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

DATE F_DATADOC
BEGIN
  PROMPT 23 4 "Data "
  FLAGS "A"
  FIELD DATADOC
  CHECKTYPE REQUIRED
  MESSAGE COPY,F_DATACONS
END

DATE F_DATACONS
BEGIN
  PROMPT 42 4 "Competenza "
  FLAGS "D"
  FIELD DATACONS
END

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

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

LISTBOX F_TIPOCF 1 10
BEGIN
  PROMPT 2 7 ""
  ITEM "C|Cliente"
  ITEM "F|Fornitore"
  FLAGS "D"
  FIELD TIPOCF
END

NUMBER F_CLIFO 7
BEGIN
  PROMPT 16 7 ""
  USE LF_CLIFO
  INPUT TIPOCF F_TIPOCF
  INPUT CODCF F_CLIFO
  DISPLAY "Codice" 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_PAIV PAIV
  OUTPUT F_COFI COFI
  CHECKTYPE NORMAL
  ADD RU cg0 -1 C
  MESSAGE COPY,10@
  FIELD CODCF
  FLAGS "DG"
END

STRING F_RAGSOC 50 49
BEGIN
  PROMPT 25 7 ""
  FLAGS "D"
END

STRING F_COFI 16
BEGIN
  PROMPT 2 8 "Codice fiscale "
  FLAGS "DU"
END

STRING F_PAIV 12
BEGIN
  PROMPT 50 8 "Partita IVA "
  FLAGS "D"
END

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

STRING F_DESRESP 50
BEGIN
  PROMPT 24 11 ""
  FLAGS ""
  CHECKTYPE NORMAL
  USE 122 KEY 2
  INPUT RAGSOC F_DESRESP
  DISPLAY "Descrizione@50" RAGSOC
  DISPLAY "Codice" CODAGE
  COPY OUTPUT F_CODRESP
  ADD RUN pr0 -4
END

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

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

STRING F_CODPAG 4 
BEGIN
  PROMPT 2 15 "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 15 ""
  USE %CPG KEY 2
  INPUT S0 F_DESPAG
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  CO OUTPUT F_CODPAG
  CHECKTYPE NORMAL
END

STRING F_CODLIS 4 
BEGIN
  PROMPT 2 16 "Listino   "
  FLAGS "U"
  USE 52
  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 16 ""
  USE 52 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 RU ve2 -1 L
END

STRING F_PGARANZIA 10 25
BEGIN
  PROMPT 2 17 "% Ritenuta a garanzia "
  FIELD SCONTOPERC
END

NUMBER F_PANTICIPO 6 2
BEGIN
  PROMPT 57 17 "% Anticipo "
  FIELD PERCSPINC
END

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

ENDPAGE

PAGE "Righe" 0 2 0 0

TLIST F_FASI 50 -1
BEGIN
  PROMPT 0 0 ""
  DISPLAY "Fasi@15"        CODART
  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
*/

SPREADSHEET F_DISTINTE 0 16
BEGIN
  PROMPT 53 0 ""
  IT "Voce Elenco Prezzi@20"
  IT "Descrizione@50"
  IT "U.M."
  IT "Quantit<69>@10"
  IT "Qt<51> Ord.@10"
  IT "Qt<51> Progr.@9"
  IT "Residuo@10"
  IT "Prezzo@16R"
  IT "IVA"
  IT "Totale@16"
  IT "Data inizio@10"
  IT "Data fine@10"
  IT "ID@6"
  IT "Data\nlavori@10"
  IT "Legame@6"
  IT "Tipo\nlegame@6"
  IT "Tipo\nlavoro@6"
END

SPREADSHEET F_MISURE
BEGIN
  PROMPT 53 17 ""
  ITEM "Descrizione@50"
  ITEM "Numero@9"
  ITEM "Lunghezza@9"
  ITEM "Larghezza@9"
  ITEM "Altezza@9"
  ITEM "Totale@9"
  ITEM "Data@10"
END

ENDPAGE

PAGE "Totali" 0 2 0 0

GROUPBOX DLG_NULL 60 18
BEGIN
  PROMPT 1 0 "@bCalcolo totali"
END

TEXT DLG_NULL
BEGIN
  PROMPT 25 1 "@bParziale"
END 

TEXT DLG_NULL
BEGIN
  PROMPT 43 1 "@bProgressivo"
END 

TEXT DLG_NULL
BEGIN
  PROMPT 2 2 "SAL Lordo"
END 

CURRENCY F_SAL_LOR 15
BEGIN
  PROMPT 24 2 " "
  FLAGS "D"
  FIELD G1:SAL_LOR
END

CURRENCY F_P_SAL_LOR 15
BEGIN
  PROMPT 42 2 " "
  FLAGS "D"
  FIELD G1:P_SAL_LOR
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 3 "Sicurezza"
END 

CURRENCY F_SAL_SIC 15
BEGIN
  PROMPT 24 3 "-"
  FLAGS "D"
  FIELD G1:SAL_SIC
END

CURRENCY F_P_SAL_SIC 15
BEGIN
  PROMPT 42 3 " "
  FLAGS "D"
  FIELD G1:P_SAL_SIC
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 4 "Esclusi da ribasso"
END 

CURRENCY F_SAL_ESC 15
BEGIN
  PROMPT 24 4 "-"
  FLAGS "D"
  FIELD G1:SAL_ESC
END

CURRENCY F_P_SAL_ESC 15
BEGIN
  PROMPT 42 4 " "
  FLAGS "D"
  FIELD G1:P_SAL_ESC
END


TEXT DLG_NULL
BEGIN
  PROMPT 2 5 "Importo da ribassare"
END 

CURRENCY F_SAL_IDR 15
BEGIN
  PROMPT 24 5 "="
  FLAGS "D"
  FIELD G1:SAL_IDR
END

CURRENCY F_P_SAL_IDR 15
BEGIN
  PROMPT 42 5 " "
  FLAGS "D"
  FIELD G1:P_SAL_IDR
END


NUMBER F_SAL_PRIB 6 2
BEGIN
  PROMPT 2 6 "Ribasso    %"
  FLAGS "D"
  FIELD G1:SAL_PRIB
END 

CURRENCY F_SAL_RIB 15
BEGIN
  PROMPT 24 6 "-"
  FLAGS "D"
  FIELD G1:SAL_RIB
END

CURRENCY F_P_SAL_RIB 15
BEGIN
  PROMPT 42 6 " "
  FLAGS "D"
  FIELD G1:P_SAL_RIB
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 7 "Importo ribassato"
END 

CURRENCY F_SAL_IRB 15
BEGIN
  PROMPT 24 7 "="
  FLAGS "D"
  FIELD G1:SAL_IRB
END

CURRENCY F_P_SAL_IRB 15
BEGIN
  PROMPT 42 7 " "
  FLAGS "D"
  FIELD G1:P_SAL_IRB
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 8 "Sicurezza ed Esclusi"
END 

CURRENCY F_SAL_SIC2 15
BEGIN
  PROMPT 24 8 "+"
  FLAGS "DG"
END

CURRENCY F_P_SAL_SIC2 15
BEGIN
  PROMPT 42 8 " "
  FLAGS "D"
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 10 "@bImporto SAL"
END 

CURRENCY F_SAL_SAL 15 
BEGIN
  PROMPT 24 10 "="
  FLAGS "D"
  FIELD G1:SAL_SAL
END

CURRENCY F_P_SAL_SAL 15
BEGIN
  PROMPT 42 10 " "
  FLAGS "D"
  FIELD G1:P_SAL_SAL
END

NUMBER F_SAL_PGAR 6 2
BEGIN
  PROMPT 2 11 "Garanzia   %"
  FLAGS "D"
  FIELD G1:SAL_PGAR
END 
           
CURRENCY F_SAL_GAR 15
BEGIN
  PROMPT 24 11 "-"
  FIELD G1:SAL_GAR
  FLAGS "D"
END

CURRENCY F_P_SAL_GAR 15
BEGIN
  PROMPT 42 11 " "
  FLAGS "D"
  FIELD G1:P_SAL_GAR
END

NUMBER F_SAL_PANT 6 2
BEGIN
  PROMPT 2 12 "Anticipo   %"
  FLAGS "D"
  FIELD G1:SAL_PANT
END 

CURRENCY F_SAL_ANT 15
BEGIN
  PROMPT 24 12 "-"
  FIELD G1:SAL_ANT
  FLAGS "D"
END

CURRENCY F_P_SAL_ANT 15
BEGIN
  PROMPT 42 12 " "
  FLAGS "D"
  FIELD G1:P_SAL_ANT
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 14 "@bImporto netto"
END 

CURRENCY F_SAL_NET 15
BEGIN
  PROMPT 24 14 "="
  FLAGS "D"
  FIELD G1:SAL_NET
END

CURRENCY F_P_SAL_NET 15
BEGIN
  PROMPT 42 14 " "
  FLAGS "D"
  FIELD G1:P_SAL_NET
END

NUMBER F_SAL_PIVA 6 2
BEGIN
  PROMPT 2 15 "Imposta    %"
  FLAGS "D"
  FIELD G1:SAL_PIVA
END 

CURRENCY F_SAL_IVA 15
BEGIN
  PROMPT 24 15 "+"
  FLAGS "D"
  FIELD G1:SAL_IVA
END

CURRENCY F_P_SAL_IVA 15
BEGIN
  PROMPT 42 15 " "
  FLAGS "D"
  FIELD G1:P_SAL_IVA
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 16 "@bTotale SAL"
END 

CURRENCY F_SAL_TOT 15
BEGIN
  PROMPT 24 16 "="
  FLAGS "DG"
  FIELD G1:SAL_TOT
END

CURRENCY F_P_SAL_TOT 15
BEGIN
  PROMPT 42 16 " "
  FLAGS "D"
  FIELD G1:P_SAL_TOT
END

ENDPAGE

ENDMASK

PAGE "Distinta" -1 -1 78 10

STRING S_CODART 20
BEGIN
  PROMPT 1 0 "Distinta "
  USE LF_DIST
  INPUT CODDIST S_CODART
  DISPLAY "Codice@20" CODDIST
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "U.M." UM
  DISPLAY "Prezzo@14V" PREZZO
  OUTPUT S_CODART CODDIST
  OUTPUT S_DESCR DESCR
  OUTPUT S_UMART UM
  CHEKTYPE SEARCH
  ADD RUN db0 -4
  FLAGS "U"
  FIELD CODART
END

ZOOM S_DESCR 50 39
BEGIN
  PROMPT 35 0 ""
  USE LF_DIST KEY 2
  INPUT DESCR S_DESCR
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice@20" CODDIST
  DISPLAY "U.M." UM
  DISPLAY "Prezzo@14V" PREZZO
  COPY OUTPUT S_CODART
  CHEKTYPE SEARCH
  FIELD DESCR
END

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

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

CURRENCY S_PREZZO 16
BEGIN
  PROMPT 26 1 "Prezzo "
  FIELD PREZZO
END

NUMBER S_TOTALE 16 2
BEGIN
  PROMPT 51 1 "Totale "
  PICTURE ".2"
  FLAGS "DG"
  VALIDATE 14 1 #S_QTA*#S_PREZZO
  DRIVENBY S_QTA S_PREZZO
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 2 "Qt<51> SAL"
END

NUMBER S_QTA 12 3
BEGIN
  PROMPT 1 3 ""
  PICTURE ".3"
  FIELD QTA
END

TEXT DLG_NULL
BEGIN
  PROMPT 16 2 "Qt<51> Ord."
END

NUMBER S_QTAORD 12 3
BEGIN
  PROMPT 16 3 ""
  PICTURE ".3"
  FIELD QTAGG1
  FLAGS "D"
END

TEXT DLG_NULL
BEGIN
  PROMPT 31 2 "Qt<51> Progr."
END

NUMBER S_QTAPRG 12 3
BEGIN
  PROMPT 31 3 ""
  PICTURE ".3"
  FIELD QTAGG2
  FLAGS "D"
END

TEXT DLG_NULL
BEGIN
  PROMPT 46 2 "Qt<51> residua"
END

NUMBER S_QTARES 12 3
BEGIN
  PROMPT 46 3 ""
  PICTURE ".3"
  FIELD QTAGG3
  FLAGS "D"
END

DATE S_INIATT
BEGIN
  PROMPT 1 6 "Inizio attivit<69> "
  FIELD DATAINIATT
END

DATE S_FINATT
BEGIN
  PROMPT 35 6 "Fine attivit<69> "
  FIELD DATAFINATT
END

DATE S_DATALAV
BEGIN
  PROMPT 35 7 "Data lavori   "
  FIELD DATACONS
END

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

NUMBER S_LEGAME 6
BEGIN
  PROMPT 1 8 "Legame "
  FIELD IDRIGACOLL
END

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

LIST S_TIPOLAV 1 30
BEGIN
  PROMPT 1 9 "Tipo lavoro "
  ITEM "0|Lavori e somministrazioni"
  ITEM "1|Lavori aggiuntivi"
  ITEM "2|Economie"
  ITEM "3|Sicurezza"
  ITEM "4|Escluso da ribasso"
  FIELD TIPODET
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 3
BEGIN
  PROMPT 1 2 "Numero    "
  FIELD QTAGG1
END

NUMBER 103 9 3
BEGIN
  PROMPT 1 3 "Lunghezza "
  FIELD QTAGG2
END

NUMBER 104 9 3
BEGIN
  PROMPT 1 4 "Larghezza "
  FIELD QTAGG3
END

NUMBER 105 9 3
BEGIN
  PROMPT 1 5 "Altezza   "
  FIELD QTAGG4
END

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

DATE 107 
BEGIN
  PROMPT 1 7 "Data      "
  FIELD DATACONS
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