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 ""
  PICTURE BMP_FINDREC
END

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

ENDPAGE

PAGE "Mastrini" -1 -1 76 20 

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

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

LIST F_TIPO 10
BEGIN
  PROMPT 1 3 "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 1 4 "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      
END

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

NUMBER F_CONTO 3
BEGIN
  PROMPT 1 5 "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
END

STRING F_DESCONTO 50
BEGIN
  PROMPT 22 5 ""
  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
END

NUMBER F_SOTTOCONTO 6
BEGIN
  PROMPT 1 6 "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 4
END

STRING F_DESSOTTOC 50
BEGIN
  PROMPT 22 6 ""
  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 4
END

NUMBER F_CLIENTE 6
BEGIN
  PROMPT 1 6 "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 4
END

STRING F_RAGSOCCLI 50
BEGIN
  PROMPT 22 6 ""
  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 4
END

STRING F_FORNITORE 6
BEGIN
  PROMPT 1 6 "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 4
END

STRING F_RAGSOCFOR 50
BEGIN
  PROMPT 22 6 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "F"
  INPUT RAGSOC F_RAGSOCFOR
  COPY DISPLAY F_RAGSOCCLI
  COPY OUTPUT F_FORNITORE
  CHECKTYPE REQUIRED
  GROUP 3 4
END

NUMBER F_ESERCIZIO 4
BEGIN
  PROMPT 1 8 "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 8 "Dalla data "
END

DATE F_ADATA
BEGIN
  PROMPT 51 8 "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 10 "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 10 ""
  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 11 "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 11 ""
  COPY USE F_DADESCAUS
  INPUT DESCR F_ADESCAUS
  COPY DISPLAY F_DADESCAUS
  COPY OUTPUT F_ACAUSALE
  CHECKTYPE SEARCH
END
 
ENDPAGE

ENDMASK