campo-sirio/sv/sv1100a.uml

#include "../sc/scselmsk.h"
#include "sv1100a.h"

TOOLBAR "Toolbar" 0 0 0 2

BUTTON DLG_SAVEREC 10 2
BEGIN
  PROMPT -23 -1 "~Registra"
  PICTURE TOOL_SAVEREC
END

#include <printbar.h>

ENDPAGE

PAGE "Stampa schede" 0 0 0 0

GROUPBOX DLG_NULL 78 8
BEGIN
  PROMPT 1 1 "@bSelezione Clienti/Fornitori"
END

RADIOBUTTON SC_CLIFO 22
BEGIN
  PROMPT 2 2 "Selezione"
  ITEM "C|Clienti"   MESSAGE ENABLE,1@
  ITEM "F|Fornitori" MESSAGE CLEAR,1@
END

RADIOBUTTON SC_SORTCF 25
BEGIN
  PROMPT 26 2 "Ordinamento"
  ITEM "1|Per codice" MESSAGE HIDE,2@|SHOW,3@
  ITEM "2|Per ragione sociale" MESSAGE HIDE,3@|SHOW,2@
END

NUMBER SC_NSEL 5
BEGIN
  PROMPT 69 2 "N. "
  FLAGS "D"
END

BUTTON SC_SELECT 10 2
BEGIN
  PROMPT 52 3 "S~elezione"
  PICTURE BMP_SELECT
END

BUTTON SC_RESET 10 2
BEGIN
  PROMPT 66 3 "A~zzera"
END

NUMBER SC_CFCODFR 6
BEGIN
  PROMPT 2 6 "Da codice              "
  GROUP 3
  FLAGS "B"
END

NUMBER SC_CFCODTO 6
BEGIN
  PROMPT 2 7 "A codice               "
  GROUP 3
  FLAGS "B"
END

STRING SC_CFDESFR 50
BEGIN
  PROMPT 2 6 "Da ragione sociale     "
  GROUP 2
  FLAGS "HB"
END

STRING SC_CFDESTO 50
BEGIN
  PROMPT 2 7 "A ragione sociale      "
  GROUP 2
  FLAGS "HB"
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 9 "@bSelezione Agenti"
END

BOOLEAN F_SORTAGENTI
BEGIN
  PROMPT 2 10 "Ordinamento per agenti"
  MESSAGE FALSE CLEAR,4@
  MESSAGE TRUE ENABLE,4@
END

STRING F_DAAGENTE 5
BEGIN
  PROMPT 2 11 "Dall'agente "
  FLAGS "UDZ"
  USE LF_AGENTI 
  INPUT CODAGE F_DAAGENTE
  DISPLAY "Codice" CODAGE
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_DAAGENTE CODAGE
  CHECKTYPE NORMAL
  ADD RUN pr0 -4
  GROUP 4
END

STRING F_ADAGENTE 5
BEGIN
  PROMPT 23 11 "All'agente " 
  FLAGS "UDZ"
  COPY USE F_DAAGENTE
  INPUT CODAGE F_ADAGENTE
  COPY DISPLAY F_DAAGENTE
  OUTPUT F_ADAGENTE CODAGE
  CHECKTYPE NORMAL
  ADD RUN pr0 -4
  GROUP 4
END

BOOLEAN F_SORTAGEART
BEGIN
  PROMPT 50 10 "Dettaglio articoli"
  MESSAGE TRUE "D",F_TIPO|DISABLE,F_TIPO|CLEAR,F_ORDINE|ENABLE,F_PROVVART
  MESSAGE FALSE ENABLE,F_TIPO|CLEAR,F_PROVVART
  GROUP 4
END

BOOLEAN F_PROVVART
BEGIN
  PROMPT 50 11 "Articoli con provvigione"
  GROUP 4
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 13 "@bLimiti di stampa"
END

DATE F_FROMDATE
BEGIN
  PROMPT 2 14 "Dalla data "
  MESSAGE CHECK,F_TODATE
END

DATE F_TODATE
BEGIN
  PROMPT 2 15 "Alla data  "
END

STRING F_FROMNUM 4
BEGIN
  PROMPT 28 14 "Dalla numerazione "
  FLAGS "U"
  USE %NUM
  INPUT CODTAB F_FROMNUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_FROMNUM CODTAB
  CHECKTYPE NORMAL
  MESSAGE CHECK,F_TONUM
END

STRING F_TONUM 4
BEGIN
  PROMPT 28 15 "Alla numerazione  "
  FLAGS "U"
  COPY USE F_FROMNUM
  INPUT CODTAB F_TONUM
  COPY DISPLAY F_FROMNUM
  OUTPUT F_TONUM CODTAB
  CHECKTYPE NORMAL
END

STRING F_TIPODOC 4
BEGIN
  PROMPT 56 14 "Tipo documento "
  FLAGS "U" 
  USE %TIP SELECT B2=="X"
  INPUT CODTAB F_TIPODOC
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPODOC CODTAB
  CHECKTYPE NORMAL
END

RADIOBUTTON F_PROVVIS 1 24
BEGIN
  PROMPT 1 17 "@bTipo movimenti"              
  ITEM "D|Definitivi"
  ITEM "P|Provvisori"
END

RADIOBUTTON F_TIPO 1 26
BEGIN
  PROMPT 27 17 "@bTipo stampa"
  ITEM "S|Sintetica"
    MESSAGE CLEAR,F_ORDINE
  ITEM "D|Dettagliata"
    MESSAGE ENABLE,F_ORDINE
END

RADIOBUTTON F_ORDINE 1 24
BEGIN
  PROMPT 55 17 "@bOrdinamento"
  ITEM "D|Documento"
  ITEM "A|Articolo"
END

ENDPAGE

PAGE "Opzioni" -1 -1 60 20

BOOLEAN F_INVALUTA
BEGIN
  PROMPT 1 1 "Stampa in valuta"
  MESSAGE TRUE SHOW,8@
  MESSAGE FALSE HIDE,8@
END

STRING F_VALUTA 3
BEGIN
  FLAGS "U"
  PROMPT 22 1 ""
  USE %VAL
  INPUT CODTAB F_VALUTA
  DISPLAY "Codice valuta" CODTAB
  DISPLAY "Descrizione @50" S0
  OUTPUT F_VALUTA CODTAB
  CHECKTYPE REQUIRED
  GROUP 8
END

DATE F_DATACAMBIO 
BEGIN
  PROMPT 32 1 "Data "
  FLAGS "R"        
  USE CAM 
  JOIN %VAL ALIAS 104 INTO CODTAB[1,3]==CODTAB[1,3]
  INPUT CODTAB[1,3] F_VALUTA SELECT
  INPUT CODTAB[4,11] F_DATACAMBIO
  DISPLAY "Valuta" CODTAB[1,3]
  DISPLAY "Data Cambio" D0     
  DISPLAY "Cambio@15R" S4
  DISPLAY "Descrizione@50" -104->S0
  OUTPUT F_DATACAMBIO D0
  OUTPUT F_CAMBIO S4
  CHECKTYPE SEARCH
  GROUP 8
END

NUMBER F_CAMBIO 15 6
BEGIN
  PROMPT 1 2 "Cambio "
  CHECKTYPE REQUIRED
  GROUP 8
END

BOOLEAN F_CONTROEURO
BEGIN
  PROMPT 32 2 "Contro Euro"
  GROUP 8
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 3 "@bCampi per stampa sintetica"
END

SPREADSHEET F_SINTETICA 0 7
BEGIN
  PROMPT 1 4 ""
  ITEM "F/C@3"
  ITEM "Campo@12"
  ITEM "Intestazione@17"
  ITEM "Descrizione@50"
  ITEM "Importo"
END 

TEXT DLG_NULL
BEGIN
  PROMPT 1 12 "@bCampi per stampa dettagliata"
END

SPREADSHEET F_DETTAGLIATA 0
BEGIN
  PROMPT 1 13 ""
  ITEM "F/C@3"
  ITEM "Campo@12"
  ITEM "Intestazione@17"
  ITEM "Descrizione@50"
  ITEM "Importo"
END 

ENDPAGE

ENDMASK

PAGE "Sheet 1" -1 -1 56 7

LIST S_FIELDTYPE 1 10
BEGIN
  PROMPT 1 1 "" 
  ITEM "F|Formula"
    MESSAGE SHOW,S_FIELD|HIDE,S_REALFIELD
  ITEM "C|Campo"
    MESSAGE HIDE,S_FIELD|SHOW,S_REALFIELD
END

STRING S_FIELD 15
BEGIN
  PROMPT 15 1 ""
  FLAGS "U"
  USE %FRD SELECT B0="X"
  INPUT CODTAB S_FIELD
  DISPLAY "Campo@15" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_FIELD CODTAB
  OUTPUT S_DESCR S0
  OUTPUT S_IMPORTO B1
  CHECKTYPE REQUIRED
END

STRING S_REALFIELD 15
BEGIN
  PROMPT 15 1 ""
  FLAGS "BHU"
  CHECKTYPE REQUIRED
END


STRING S_HEAD 17
BEGIN
  PROMPT 1 2 "Intestazione "
END

STRING S_DESCR 50 40
BEGIN
  PROMPT 1 3 "Descrizione  "
  FLAGS "D"
END

BOOLEAN S_IMPORTO
BEGIN
  PROMPT 41 1 "Importo"
  FLAGS "D"
END


BUTTON DLG_OK 10 2
BEGIN
  PROMPT -13 -1 ""
END

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -33 -1 ""
END

ENDPAGE

ENDMASK

PAGE "Sheet 2" -1 -1 56 7

LIST S_FIELDTYPE 1 10
BEGIN
  PROMPT 1 1 "" 
  ITEM "F|Formula"
    MESSAGE SHOW,S_FIELD|HIDE,S_REALFIELD
  ITEM "C|Campo"
    MESSAGE HIDE,S_FIELD|SHOW,S_REALFIELD
END

STRING S_FIELD 15
BEGIN
  PROMPT 15 1 ""
  FLAGS "U"
  USE %FRR SELECT B0="X"
  INPUT CODTAB S_FIELD
  DISPLAY "Campo@15" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_FIELD CODTAB
  OUTPUT S_DESCR S0
  OUTPUT S_IMPORTO B1
  CHECKTYPE NORMAL
END

STRING S_REALFIELD 15
BEGIN
  PROMPT 15 1 ""
  FLAGS "BHU"
  CHECKTYPE REQUIRED
END

STRING S_HEAD 17
BEGIN
  PROMPT 1 2 "Intestazione "
END

STRING S_DESCR 50 40
BEGIN
  PROMPT 1 3 "Descrizione  "
  FLAGS "D"
END

BOOLEAN S_IMPORTO
BEGIN
  PROMPT 41 1 "Importo"
  FLAGS "D"
END


BUTTON DLG_OK 10 2
BEGIN
  PROMPT -13 -1 ""
END

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -33 -1 ""
END

ENDPAGE

ENDMASK