campo-sirio/ca/ca3600.uml

#include "ca3600.h"
#include "camask.h"

TOOLBAR "topbar" 0 0 0 2
#include <aprintbar.h>
ENDPAGE

TOOLBAR "bottombar" 0 -2 0 1

STRING F_REPORT 256 64
BEGIN
  PROMPT 2 -2 "Report  "
  FLAGS "B"
  CHECKTYPE REQUIRED
END

STRING DLG_PROFILE 50
BEGIN
  PROMPT 2 -1 "Profilo "
  PSELECT
END

ENDPAGE

PAGE "Stampa pagato" 0 0 0 2

SPREADSHEET F_RIGHE -1 8
BEGIN
  PROMPT 1 1 "Centro di Costo / Commessa / Fase"
  ITEM "Cdc1"
  ITEM "Cdc2"
  ITEM "Cdc3"
  ITEM "Cdc4"
  ITEM "Cdc5"
  ITEM "Cdc6"
  ITEM "Cdc7"
  ITEM "Cdc8"
  ITEM "Cdc9"
  ITEM "Cdc10"
  ITEM "Cdc11"
  ITEM "Cdc12"
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 10 "@bEstrazione per data di: "
END

RADIOBUTTON F_TIPODATA 76
BEGIN
  PROMPT 2 10 ""
  ITEM "0|Registrazione"
  ITEM "1|Documento"
  ITEM "2|Pagamento"
  FLAGS "Z"
END

DATE F_DATAINI
BEGIN
  PROMPT 2 12 "Dalla data "
END

DATE F_DATAFIN
BEGIN
  PROMPT 25 12 "Alla data  "
  VALIDATE DATE_CMP_FUNC >= F_DATAINI
  WARNING "La data finale deve essere successiva a quella iniziale"
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 14 "@bSelezione fornitori"
END

NUMBER F_DACODFOR 6
BEGIN
  PROMPT 2 15 "Da codice "
  USE LF_CLIFO KEY 1
  FLAGS "U"
  INPUT TIPOCF "F"
  INPUT CODCF F_DACODFOR
  DISPLAY "Codice " CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_DACODFOR CODCF
  OUTPUT F_DADESFOR RAGSOC
  CHECKTYPE NORMAL
END

STRING F_DADESFOR 50
BEGIN
  PROMPT 23 15 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "F"
  INPUT RAGSOC F_DADESFOR
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice " CODCF
  COPY OUTPUT F_DACODFOR
  CHECKTYPE NORMAL
END

NUMBER F_ACODFOR 6
BEGIN
  PROMPT 2 16 "A codice  "
  COPY USE F_DACODFOR
  FLAGS "U"
  INPUT TIPOCF "F"
  INPUT CODCF F_ACODFOR
  COPY DISPLAY F_DACODFOR
  OUTPUT F_ACODFOR CODCF
  OUTPUT F_ADESFOR RAGSOC
  CHECKTYPE NORMAL
  NUM_EXPR (#F_ACODFOR==0)||(#F_ACODFOR>=#F_DACODFOR)
  WARNING "Il codice fornitore finale non puo' essere inferiore a quello iniziale"
END

STRING F_ADESFOR 50
BEGIN
  PROMPT 23 16 ""
  COPY USE F_DADESFOR
  INPUT TIPOCF "F"
  INPUT RAGSOC F_ADESFOR
  COPY DISPLAY F_DADESFOR
  COPY OUTPUT F_ACODFOR
  CHECKTYPE NORMAL
END

ENDPAGE

//-------------- pagina con configurazione conti ---------------------

PAGE "Configurazione conti" -1 -1 78 20

STRING F_PIANO 9
BEGIN
  PROMPT 1 1 "Piano dei conti "
  FLAGS "D"
END

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

SPREADSHEET F_PDCC 78 -3
BEGIN
  PROMPT 1 3 "Pdcc"
  ITEM "Tipo"
  ITEM "Gruppo"
  ITEM "Conto"
  ITEM "Sottoconto"
  ITEM "Descrizione@50"
  GROUP 5
  DEFAULT NOPROFILE
END

/*TEXT -1	***per ora solo Pdcc***
BEGIN
  PROMPT 1 5 "@bPiano dei conti analitico"
  GROUP 6
END

SPREADSHEET F_PDCA 78 -3
BEGIN
  PROMPT 1 3 "Pdca"
  ITEM "Tipo"
  ITEM "Cdc2"
  ITEM "Cdc3"
  ITEM "Cdc4"
  ITEM "Cdc5"
  GROUP 6
  DEFAULT NOPROFILE
END*/

BUTTON DLG_SAVEREC 12 2
BEGIN
  PROMPT -11 -1 ""
  PICTURE BMP_SAVEREC
  PICTURE BMP_SAVERECDN
END

ENDPAGE

ENDMASK

//----------------------------------------------------------------------------------------
//		Righe dello sheet con commesse fasi centridicosto
//----------------------------------------------------------------------------------------

PAGE "Riga Analitica" -1 -1 78 19

STRING S_CDC1 20
BEGIN
  PROMPT 1 2 "Cdc1"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC2 20
BEGIN
  PROMPT 21 2 "Cdc2"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC3 20
BEGIN
  PROMPT 41 2 "Cdc3"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC4 20
BEGIN
  PROMPT 61 2 "Cdc4"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC5 20
BEGIN
  PROMPT 1 3 "Cdc5"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC6 20
BEGIN
  PROMPT 21 3 "Cdc6"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC7 20
BEGIN
  PROMPT 41 3 "Cdc7"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC8 20
BEGIN
  PROMPT 61 3 "Cdc8"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC9 20
BEGIN
  PROMPT 1 4 "Cdc9"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC10 20
BEGIN
  PROMPT 21 4 "Cdc10"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC11 20
BEGIN
  PROMPT 41 4 "Cdc11"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC12 20
BEGIN
  PROMPT 61 4 "Cdc12"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
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

//----------------------Piano dei conti contabile------------------------------//
//-----------Pagina di riga dello sheet PDCC----------------------//

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

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

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

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

NUMBER S_CDC4 6
BEGIN
  PROMPT 1 4 "Sottoconto  "
  USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
  COPY INPUT S_CDC3
  INPUT SOTTOCONTO S_CDC4
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT S_CDC4 SOTTOCONTO
  OUTPUT S_CDC3 CONTO
  OUTPUT S_CDC2 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_CDC4
  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

//----------------------Piano dei conti analitico------------------------------//
//-----------Pagina di riga dello sheet PDCA----------------------//

//***per ora solo Pdcc***
/*PAGE "Riga Piano dei conti analitico" -1 -1 78 8

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

STRING S_CDC2 20
BEGIN
  PROMPT 1 2 "Cdc2"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC3 20
BEGIN
  PROMPT 1 3 "Cdc3"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC4 20
BEGIN
  PROMPT 1 4 "Cdc4"
  FLAGS "B"
  CHECKTYPE NORMAL
  GROUP 1
END

STRING S_CDC5 20
BEGIN
  PROMPT 1 5 "Cdc5"
  FLAGS "BG"
  CHECKTYPE NORMAL
  GROUP 1
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*/