campo-sirio/cg/cg3600a.uml

#include "cg3600a.h"

TOOLBAR "" 0 21 0 0

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -14 -11 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -24 -11 ""
END

BUTTON DLG_FINDREC 10 2
BEGIN
  PROMPT -34 -11 ""
  PICTURE BMP_FINDREC
END

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

ENDPAGE

PAGE "Mastrini" -1 -1 76 20 

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 1 0 "Ditta       "
  FLAGS "DF"
  USE LF_NDITTE
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE NORMAL
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 22 0 ""
  FLAGS "D"
END

LIST F_TIPO 10
BEGIN
  PROMPT 1 0 "Tipo       "
  ITEM " |Conto"     MESSAGE SHOW,1@|HIDE,2@|HIDE,3@
  ITEM "C|Cliente"   MESSAGE HIDE,1@|SHOW,2@|HIDE,3@
  ITEM "F|Fornitore" MESSAGE HIDE,1@|HIDE,2@|SHOW,3@
  FLAGS "H"
END

NUMBER F_GRUPPO 3
BEGIN
  PROMPT 1 1 "Gruppo        "
  USE LF_PCON SELECT (CONTO="")
  INPUT GRUPPO F_GRUPPO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPO GRUPPO
  OUTPUT F_DESGRUPPO DESCR
  CHECKTYPE REQUIRED      
  ADD RUN cg0 -0
END

STRING F_DESGRUPPO 50
BEGIN
  PROMPT 22 1 ""
  USE LF_PCON KEY 2 SELECT (CONTO="")
  INPUT DESCR F_DESGRUPPO
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  COPY OUTPUT F_GRUPPO
  CHECKTYPE REQUIRED
  ADD RUN cg0 -0
END

NUMBER F_CONTO 3
BEGIN
  PROMPT 1 2 "Conto         "
  USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")
  INPUT GRUPPO F_GRUPPO
  INPUT CONTO F_CONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Tipo" TMCF
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_TIPO TMCF
  OUTPUT F_GRUPPO GRUPPO
  OUTPUT F_CONTO CONTO
  OUTPUT F_DESCONTO DESCR
  CHECKTYPE REQUIRED
  ADD RUN cg0 -0
END

STRING F_DESCONTO 50
BEGIN
  PROMPT 22 2 ""
  USE LF_PCON KEY 2 SELECT (CONTO!="")&&(SOTTOCONTO="")
  INPUT DESCR F_DESGRUPPO
  COPY DISPLAY F_GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Tipo" TMCF
  COPY OUTPUT F_CONTO
  CHECKTYPE REQUIRED
  ADD RUN cg0 -0
END

NUMBER F_SOTTOCONTO 6
BEGIN
  PROMPT 1 3 "Sottoconto "
  USE LF_PCON SELECT (SOTTOCONTO!="")
  COPY INPUT F_CONTO 
  INPUT SOTTOCONTO F_SOTTOCONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_GRUPPO GRUPPO
  OUTPUT F_CONTO CONTO
  OUTPUT F_SOTTOCONTO SOTTOCONTO
  OUTPUT F_DESSOTTOC DESCR
  CHECKTYPE REQUIRED
  GROUP 1
  ADD RUN cg0 -0
END

STRING F_DESSOTTOC 50
BEGIN
  PROMPT 22 3 ""
  USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="")
  INPUT DESCR F_DESSOTTOC
  COPY DISPLAY F_DESCONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_SOTTOCONTO
  CHECKTYPE REQUIRED
  GROUP 1
  ADD RUN cg0 -0  
END

NUMBER F_CLIENTE 6
BEGIN
  PROMPT 1 3 "Cliente    "
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF F_CLIENTE
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_CLIENTE CODCF
  OUTPUT F_RAGSOCCLI RAGSOC
  CHECKTYPE REQUIRED
  GROUP 2
  ADD RUN cg0 -1 C
END

STRING F_RAGSOCCLI 50
BEGIN
  PROMPT 22 3 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_RAGSOCCLI
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_CLIENTE
  CHECKTYPE REQUIRED
  GROUP 2
  ADD RUN cg0 -1 C
END

STRING F_FORNITORE 6
BEGIN
  PROMPT 1 3 "Fornitore "
  USE LF_CLIFO
  INPUT TIPOCF "F"
  INPUT CODCF F_FORNITORE
  COPY DISPLAY F_CLIENTE
  OUTPUT F_FORNITORE CODCF
  OUTPUT F_RAGSOCFOR RAGSOC
  CHECKTYPE REQUIRED
  GROUP 3
  ADD RUN cg0 -1 F
END

STRING F_RAGSOCFOR 50
BEGIN
  PROMPT 22 3 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "F"
  INPUT RAGSOC F_RAGSOCFOR
  COPY DISPLAY F_RAGSOCCLI
  COPY OUTPUT F_FORNITORE
  CHECKTYPE REQUIRED
  GROUP 3
  ADD RUN cg0 -1 F
END

NUMBER F_ESERCIZIO 4
BEGIN
  PROMPT 1 4 "Esercizio    "
  USE ESC
  INPUT CODTAB F_ESERCIZIO
  DISPLAY "Codice" CODTAB
  DISPLAY "Inizio esercizio" D0
  DISPLAY "Fine esercizio" D1
  OUTPUT F_ESERCIZIO CODTAB
  ADD NONE
END

DATE F_DADATA
BEGIN
  PROMPT 22 4 "Dalla data "
END

DATE F_ADATA
BEGIN
  PROMPT 51 4 "Alla data  "
  VALIDATE DATE_CMP_FUNC >= F_DADATA
  WARNING "La data finale deve essere maggiore di quella iniziale"
END

STRING F_DACAUSALE 3
BEGIN
  PROMPT 1 5 "Da causale    "  
  FLAGS "U"
  USE LF_CAUSALI
  INPUT CODCAUS F_DACAUSALE
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_DACAUSALE CODCAUS
  OUTPUT F_DADESCAUS DESCR
  STR_EXPR (#F_ACAUSALE="")||(#F_DACAUSALE<=#F_ACAUSALE)
  WARNING "La causale iniziale deve precedere quella finale"
  CHECKTYPE SEARCH
END

STRING F_DADESCAUS 50
BEGIN
  PROMPT 22 5 ""
  USE LF_CAUSALI KEY 2
  INPUT DESCR F_DADESCAUS
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Codice" CODCAUS
  COPY OUTPUT F_DACAUSALE
  CHECKTYPE SEARCH
END

STRING F_ACAUSALE 3
BEGIN
  PROMPT 1 6 "A causale     "
  FLAGS "U"
  COPY USE F_DACAUSALE
  INPUT CODCAUS F_ACAUSALE
  COPY DISPLAY F_DACAUSALE
  OUTPUT F_ACAUSALE CODCAUS
  OUTPUT F_ADESCAUS DESCR
  STR_EXPR (#F_ACAUSALE>=#F_DACAUSALE)
  WARNING "La causale finale deve seguire quella iniziale"
  CHECKTYPE SEARCH
END

STRING F_ADESCAUS 50
BEGIN
  PROMPT 22 6 ""
  COPY USE F_DADESCAUS
  INPUT DESCR F_ADESCAUS
  COPY DISPLAY F_DADESCAUS
  COPY OUTPUT F_ACAUSALE
  CHECKTYPE SEARCH
END

SPREADSHEET F_MASTRINI 0 5
BEGIN
  PROMPT 1 7 "Mastrini"
  FLAGS "M"
  ITEM "Data Op. \nData Doc.@10"
  ITEM "C@1"
  ITEM "Operazione@20F"
  ITEM "N.Doc.  \nN.Prot.@7"
  ITEM "Importo@18R"
  ITEM "Saldo@20R"
  ITEM "Causale@20"
  ITEM "Dare@18R"
  ITEM "Avere@18R"
END                        

TEXT DLG_NULL
BEGIN
  PROMPT 1 -3 "Totali all'ultima riga visualizzata "
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 -2 "Totali al periodo                   "
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 -1 "Totali attuali                      "
END
 
ENDPAGE

ENDMASK