campo-sirio/src/sc/sc2200a.uml

#include "sc2200.h"

TOOLBAR "" 0 0 0 2
#include <printbar.h>
ENDPAGE

PAGE "Stampa Scadenzario" 0 0 0 0

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 0 "@bDitta"
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 2 1 "Codice "
  FLAGS "DFR"
  USE LF_NDITTE
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 17 1 "Rag.Soc. "
  FLAGS "D"
END

GROUPBOX DLG_NULL 78 6
BEGIN
   PROMPT 1 3 "@bParametri"
END

DATE F_DATASTAMPA
BEGIN
  PROMPT 2 4 "Data di stampa          "
  HELP "Data di stampa dello scadenziario"
  CHECKTYPE REQUIRED
  WARNING "Si deve specificare la data di stampa dello scadenziario"
  FLAGS "A"
END

BOOLEAN F_SELDATAFAT
BEGIN
	PROMPT 40 4 "Selezione per data fattura"
	MESSAGE FALSE SHOW,10@|HIDE,11@
	MESSAGE TRUE HIDE,10@|SHOW,11@
END

DATE F_DATASCADENZAI
BEGIN
  PROMPT 2 5 "Data di scadenza dal    "
  HELP "Data di inizio scadenza"
  CHECKTYPE REQUIRED
  WARNING "Data di inizio scadenza non valida"
  FLAGS "A"
  GROUP 10
END

DATE F_DATASCADENZAF
BEGIN
  PROMPT 40 5 "al    "
  HELP "Data di fine scadenza"
  CHECKTYPE REQUIRED
  VALIDATE DATE_CMP_FUNC >= F_DATASCADENZAI
  WARNING "Data di fine scadenza non valida"
  GROUP 10
END

DATE F_DATAFATTI
BEGIN
  PROMPT 2 5 "Data fattura dal        "
  HELP "Data di inizio scadenza"
  CHECKTYPE REQUIRED
  WARNING "Data di inizio scadenza non valida"
  FLAGS "A"
  GROUP 11
END

DATE F_DATAFATTF
BEGIN
  PROMPT 40 5 "al    "
  HELP "Data di fine scadenza"
  CHECKTYPE REQUIRED
  VALIDATE DATE_CMP_FUNC >= F_DATAFATTI
  WARNING "Data di fine scadenza non valida"
  GROUP 11
END

BOOLEAN F_RATESALDATE
BEGIN
  PROMPT 2 6 "Stampa rate saldate"
  HELP "Include le rate saldate nella stampa"
END

BOOLEAN F_ORDDATA
BEGIN
  PROMPT 2 7 "Ordina per data"
  HELP "Selezionare se l'ordinamento primario deve essere secondo la data"
END

BOOLEAN F_VALUTA
BEGIN
  PROMPT 33 6 "Stampa in valuta"
  HELP "Selezionare se si vuole la stampa in valuta"
END

LISTBOX F_RIEPILOGO 1 12
BEGIN
  PROMPT 33 7 "Prospetto per pagamento "
  ITEM "0|Nessuno"
  ITEM "1|Giornaliero"
  ITEM "2|Mensile"
  HELP "Selezionare se e' necessaria la stampa del prospetto mensile per pagamento"
END

RADIOBUTTON SC_CLIFO 20
BEGIN
  PROMPT 1 9 "@bSelezione"
  ITEM "C|Clienti" MESSAGE K_SPACE,SC_SORTCF
  ITEM "F|Fornitori" MESSAGE K_SPACE,SC_SORTCF
  ITEM "P|Conti" MESSAGE K_SPACE,SC_SORTCF
END

RADIOBUTTON SC_SORTCF 1 29
BEGIN
  GROUP 1
  PROMPT 23 9 "@bOrdinamento"
  ITEM "1|Per codice/conto"
  ITEM "2|Per rag.soc./descrizione"
END

BUTTON SC_SELECT 10 1
BEGIN
  PROMPT 55 10 "S~elezione"
END

BUTTON SC_RESET 10 1
BEGIN
  PROMPT 68 10 "A~zzera"
END

NUMBER SC_NSEL 3
BEGIN
  PROMPT 55 11 "Selezionati "
  FLAGS "D"
END

BOOLEAN F_NOTOT
BEGIN
  PROMPT 54 12 "Non stampare i totali intermedi"
END

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

NUMBER SC_CFCODTO 6
BEGIN
  PROMPT 37 14  "a codice "
  FLAGS "B"
  GROUP 3
END

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

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

NUMBER SC_PCONCODFR1 3
BEGIN
  PROMPT 2 14 "Da conto "
  GROUP 5
END

NUMBER SC_PCONCODFR2 3
BEGIN
  PROMPT 15 14 ""
  GROUP 5
END

NUMBER SC_PCONCODFR3 6
BEGIN
  PROMPT 19 14 ""
  FLAGS "B"
  GROUP 5
END

NUMBER SC_PCONCODTO1 3
BEGIN
  PROMPT 31 14  "a conto "
  GROUP 5
END

NUMBER SC_PCONCODTO2 3
BEGIN
  PROMPT 43 14  ""
  GROUP 5
END

NUMBER SC_PCONCODTO3 6
BEGIN
  PROMPT 47 14  ""
  FLAGS "B"
  GROUP 5
END

STRING SC_PCONDESFR  50
BEGIN
  PROMPT 2 14 "Da descrizione     "
  GROUP 6
  FLAGS "HB"
END

STRING SC_PCONDESTO 50
BEGIN
  PROMPT 2 15 "A descrizione      "
  GROUP 6
  FLAGS "HB"
END

BOOLEAN F_SORTBAN 
BEGIN
  PROMPT 2 16 "Raggruppamento per banca di presentazione"
  MESSAGE FALSE HIDE,7@|RESET,7@
  MESSAGE TRUE SHOW,7@|RESET,7@
END

NUMBER F_FROMABI 5
BEGIN
  PROMPT 2 17 "Da Banca "
  FLAGS "HZ"
  USE %BAN
  INPUT CODTAB[1,5] F_FROMABI
  INPUT CODTAB[6,10] F_FROMCAB
  DISPLAY "ABI@5" CODTAB[1,5]
  DISPLAY "CAB@5" CODTAB[6,10]
  DISPLAY "Denominazione@50" S0
  OUTPUT F_FROMABI CODTAB[1,5]
  OUTPUT F_FROMCAB CODTAB[6,10]
  OUTPUT F_FROMBAN S0
  CHECKTYPE NORMAL 
  GROUP 7
END

NUMBER F_FROMCAB 5
BEGIN
  PROMPT 20 17 ""
  FLAGS "HZ"
  COPY ALL F_FROMABI
  CHECKTYPE NORMAL
  GROUP 7
END

STRING F_FROMBAN 50
BEGIN
  PROMPT 28 17 ""
  USE %BAN KEY 2
  INPUT S0 F_FROMBAN
  DISPLAY "Denominazione@50" S0
  DISPLAY "ABI@5" CODTAB[1,5]
  DISPLAY "CAB@5" CODTAB[6,10]
  COPY OUTPUT F_FROMABI
  CHECKTYPE NORMAL
  GROUP 7
END

NUMBER F_TOABI 5
BEGIN
  PROMPT 2 18 "A Banca  "
  FLAGS "HZ"
  COPY USE F_FROMABI
  INPUT CODTAB[1,5] F_TOABI
  INPUT CODTAB[6,10] F_TOCAB
  DISPLAY "ABI@5" CODTAB[1,5]
  DISPLAY "CAB@5" CODTAB[6,10]
  DISPLAY "Denominazione@50" S0
  OUTPUT F_TOABI CODTAB[1,5]
  OUTPUT F_TOCAB CODTAB[6,10]
  OUTPUT F_TOBAN S0
  CHECKTYPE NORMAL
  GROUP 7
END

NUMBER F_TOCAB 5
BEGIN
  PROMPT 20 18 ""
  FLAGS "HZ"
  COPY ALL F_TOABI
  CHECKTYPE NORMAL
  GROUP 7
END

STRING F_TOBAN 50
BEGIN
  PROMPT 28 18 ""
  COPY USE F_FROMBAN
  INPUT S0 F_TOBAN
  COPY DISPLAY F_FROMBAN
  COPY OUTPUT F_TOABI
  CHECKTYPE NORMAL
  GROUP 7
END

STRING F_CODAG 5
BEGIN    
  PROMPT 2 19 "Agente "
  FLAGS "ZU"
  USE LF_AGENTI
  INPUT CODAGE F_CODAG
  DISPLAY "Codice agente" CODAGE
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_CODAG CODAGE
  OUTPUT F_CODAG_D RAGSOC
  CHECKTYPE NORMAL
END

STRING F_CODAG_D 50
BEGIN
  PROMPT 18 19 ""
  USE LF_AGENTI KEY 2
  INPUT RAGSOC F_CODAG_D
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice agente" CODAGE
  COPY OUTPUT F_CODAG
  CHECKTYPE NORMAL
END

LIST F_TIPOPAG 1 33
BEGIN
  PROMPT 2 20 "Tipo pagamento "
  ITEM "0|Tutti"
  ITEM "1|Rimessa Diretta"
  ITEM "2|Tratta"
  ITEM "3|Ricevuta Bancaria"
  ITEM "4|Cessione"
  ITEM "5|Paghero'"
  ITEM "6|Lettera di credito"
  ITEM "7|Tratta accettata"
  ITEM "8|Rapporti interbancari diretti"
  ITEM "9|Bonifico"
END

STRING F_ULTCLASS 1
BEGIN
  PROMPT 2 21 "Ult.classific. "
  FLAGS "U"
  USE %CLR
  INPUT CODTAB[1,1] F_TIPOPAG SELECT
  INPUT CODTAB[2,2] F_ULTCLASS
  DISPLAY "Tipo pag." CODTAB[1,1]
  DISPLAY "Class." CODTAB[2,2]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_ULTCLASS CODTAB[2,2]
  CHECKTYPE NORMAL
  FIELD S5
END

ENDPAGE
ENDMASK