campo-sirio/cg/cg3600a.uml

#include "cg3600.h"

TOOLBAR "" 0 20 0 0

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

BUTTON DLG_FINDREC 10 2
BEGIN
  PROMPT -23 -11 "~Ricerca"
  PICTURE BMP_FINDREC
END

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

ENDPAGE

PAGE "Mastrini" -1 -1 78 20

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

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 2 2 "Codice      "
  FLAGS "DF"
  USE LF_NDITTE
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE NORMAL
END

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

GROUPBOX DLG_NULL 76 6
BEGIN
  PROMPT 1 4 "@bConto del mastrino"
  FLAGS "R"
END

LIST F_TIPO 10
BEGIN
  PROMPT 2 5 "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@
END

NUMBER F_GRUPPO 3
BEGIN
  PROMPT 2 6 "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
  WARNING "Gruppo assente"
END

NUMBER F_CONTO 3
BEGIN
  PROMPT 2 7 "Conto         "
  USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF==#F_TIPO)
  INPUT GRUPPO F_GRUPPO
  INPUT CONTO F_CONTO
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Tipo" TMCF
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CONTO CONTO
  OUTPUT F_TIPO TMCF
  OUTPUT F_GRUPPO GRUPPO
  OUTPUT F_DESCONTO DESCR
  CHECKTYPE REQUIRED
  WARNING "Conto assente"
END

NUMBER F_SOTTOCONTO 6
BEGIN
  PROMPT 2 8 "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_SOTTOCONTO SOTTOCONTO
  OUTPUT F_GRUPPO GRUPPO
  OUTPUT F_CONTO CONTO
  OUTPUT F_DESSOTTOC DESCR
  CHECKTYPE REQUIRED
  WARNING "Sottoconto assente"
  GROUP 1 4
END

NUMBER F_CLIENTE 6
BEGIN
  PROMPT 2 8 "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
  WARNING "Cliente assente"
  GROUP 2 4
END

NUMBER F_FORNITORE 6
BEGIN
  PROMPT 2 8 "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
  WARNING "Fornitore assente"
  GROUP 3 4
END

STRING F_DESGRUPPO 50
BEGIN
  PROMPT 23 6 ""
  USE LF_PCON KEY 2 SELECT (CONTO="")
  INPUT DESCR F_DESGRUPPO
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo@10" GRUPPO
  COPY OUTPUT F_GRUPPO
  CHECKTYPE REQUIRED
  WARNING "Gruppo assente"
END

STRING F_DESCONTO 50
BEGIN
  PROMPT 23 7 ""
  USE LF_PCON KEY 2 SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF==#F_TIPO)
  INPUT DESCR F_DESCONTO
  COPY DISPLAY F_DESGRUPPO
  DISPLAY "Conto" CONTO
  DISPLAY "Tipo" TMCF
  COPY OUTPUT F_CONTO
  CHECKTYPE REQUIRED
  WARNING "Conto assente"
END

STRING F_DESSOTTOC 50
BEGIN
  PROMPT 23 8 ""
  USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="")
  INPUT DESCR F_DESSOTTOC
  COPY DISPLAY F_DESCONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_SOTTOCONTO
  CHECKTYPE REQUIRED
  WARNING "Sottoconto assente"
  GROUP 1 4
END

STRING F_RAGSOCCLI 50
BEGIN
  PROMPT 23 8 ""
  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
  WARNING "Cliente assente"
  GROUP 2 4
END

STRING F_RAGSOCFOR 50
BEGIN
  PROMPT 23 8 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "F"
  INPUT RAGSOC F_RAGSOCFOR
  COPY DISPLAY F_RAGSOCCLI
  COPY OUTPUT F_FORNITORE
  CHECKTYPE REQUIRED
  WARNING "Fornitore assente"
  GROUP 3 4
END

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 1 10 "@bPeriodo"
  FLAGS "R"
END

NUMBER F_ESERCIZIO 4
BEGIN
  PROMPT 2 11 "Cod. esercizio "
  FLAGS "Z"
  USE ESC
  INPUT CODTAB F_ESERCIZIO
  DISPLAY "Codice" CODTAB
  DISPLAY "Inizio esercizio" D0
  DISPLAY "Fine esercizio" D1
  OUTPUT F_ESERCIZIO CODTAB
  CHECKTYPE NORMAL
  ADD NONE
END

DATE F_DADATA
BEGIN
  PROMPT 26 11 "Dalla data "
END

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

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 1 13 "@bCausali"
  FLAGS "R"
END

STRING F_DACAUSALE 3
BEGIN
  PROMPT 2 14 "Da causale    "
  FLAGS "UZ"
  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
  GROUP 5
END

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

STRING F_ACAUSALE 3
BEGIN
  PROMPT 2 15 "A causale     "
  FLAGS "UZ"
  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_ACAUSALE>=#F_DACAUSALE)
  WARNING "La causale finale deve seguire quella iniziale"
  CHECKTYPE SEARCH
  GROUP 5
END

STRING F_ADESCAUS 50
BEGIN
  PROMPT 23 15 ""
  COPY USE F_DADESCAUS
  INPUT DESCR F_ADESCAUS
  COPY DISPLAY F_DADESCAUS
  COPY OUTPUT F_ACAUSALE
  CHECKTYPE SEARCH
  GROUP 5
END

ENDPAGE

ENDMASK