campo-sirio/tc/tc9100a.uml

#include "tc9100a.h"

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_ELABORA 10 2
BEGIN
  PROMPT -12 -11 ""
  PICTURE BMP_ELABORA
  MESSAGE EXIT,K_ENTER
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -22 -11 ""
END

ENDPAGE

TOOLBAR "" 0 -2 0 2

STRING DLG_PROFILE 50
BEGIN
  PROMPT 9 0 "Profilo "
  PSELECT
END

ENDPAGE


PAGE "Invio dati contabilita'" -1 -1 78 20

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 2 1 "@bDitta corrente"
END

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

STRING F_RAGSOC 50
BEGIN
  PROMPT 23 2 ""
  FLAGS "D"
END

GROUPBOX DLG_NULL 76 6
BEGIN
  PROMPT 2 4 "Dati da inviare"
END

BOOLEAN F_MOVIMENTI
BEGIN
  PROMPT 3 5 "Movimenti contabili"
  MESSAGE FALSE CLEAR,F_PAGAMENTI|DISABLE,F_DATAFIN
  MESSAGE TRUE ENABLE,F_PAGAMENTI|ENABLE,F_DATAFIN
END

BOOLEAN F_CLIENTI
BEGIN
  PROMPT 3 6 "Clienti"
END

BOOLEAN F_FORNITORI
BEGIN
  PROMPT 3 7 "Fornitori"
END

BOOLEAN F_CONTI
BEGIN
  PROMPT 3 8 "Piano dei conti"
END

BOOLEAN F_PAGAMENTI
BEGIN
  PROMPT 40 5 "Pagamenti"
END

LISTBOX F_TIPOINVIO 20
BEGIN
  PROMPT 2 10 "Invio a      "
  ITEM "P|Proforma"
END

STRING F_DESTINAZIONE 20
BEGIN
  PROMPT 2 11 "Destinazione  "
END

DATE F_DATAINI
BEGIN
  PROMPT 2 12 "Data iniziale "
END

DATE F_DATAFIN
BEGIN
  PROMPT 40 12 "Data finale  "
END

BUTTON F_RIPRISTINA 20 2
BEGIN
  PROMPT 2 14 "Annulla invio"
  MESSAGE SHOW,F_DATARIPRISTINO|ENABLE,F_DATARIPRISTINO
END

DATE F_DATARIPRISTINO
BEGIN
  PROMPT 25 14 "Annulla invio fino al "
  FLAGS "HD"
END

ENDPAGE

PAGE "Conti" -1 -1 78 20

TEXT -1
BEGIN
  PROMPT 1 1 "@bPiano dei conti contabile"
END

SPREADSHEET F_PDCC 78 -6
BEGIN
  PROMPT 1 2 "Pdcc"
  ITEM "Tipo"
  ITEM "Gruppo"
  ITEM "Conto"
  ITEM "Sottoconto"
  ITEM "Descrizione@50"
END

TEXT -1
BEGIN
  PROMPT 1 17 "Inserire conti di tipo F per ritenute Fiscali"
END

TEXT -1
BEGIN
  PROMPT 1 18 "S per ritenute Sociali, C per Costi, P per Pagamenti"
END

ENDPAGE

ENDMASK

//--------------------------------------------------------------------
//		Riga dello sheet dei conti
//--------------------------------------------------------------------

PAGE "Riga Piano dei conti contabile" -1 -1 78 8

LIST S_TIPO 1 18
BEGIN
  PROMPT 1 1 "Tipo        "
  ITEM "C|Costi"
  ITEM "P|Pagamenti"
  ITEM "F|Ritenute fiscali"
  ITEM "S|Ritenute sociali"
END

NUMBER S_GRUPPO 3
BEGIN
  PROMPT 1 2 "Gruppo      "
  USE LF_PCON KEY 1 SELECT CONTO=""
  INPUT GRUPPO S_GRUPPO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT S_GRUPPO GRUPPO
  CHECKTYPE REQUIRED
END

NUMBER S_CONTO 3
BEGIN
  PROMPT 1 3 "Conto       "
  USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO=""))
  COPY INPUT S_GRUPPO
  INPUT CONTO S_CONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT S_GRUPPO GRUPPO
  OUTPUT S_CONTO CONTO
  CHECKTYPE NORMAL
  VALIDATE REQIF_FUNC 1 S_SOTTOCONTO
END

NUMBER S_SOTTOCONTO 6
BEGIN
  PROMPT 1 4 "Sottoconto  "
  USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
  COPY INPUT S_CONTO
  INPUT SOTTOCONTO S_SOTTOCONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT S_SOTTOCONTO SOTTOCONTO
  OUTPUT S_CONTO CONTO
  OUTPUT S_GRUPPO GRUPPO
  OUTPUT S_DESCRIZIONE DESCR
  CHECKTYPE NORMAL
END

STRING S_DESCRIZIONE 50
BEGIN
  PROMPT 1 5 "Descrizione "
  KEY 2
  USE LF_PCON KEY 2
  INPUT DESCR S_DESCRIZIONE
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT S_SOTTOCONTO
  CHECKTYPE REQUIRED
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