campo-sirio/cg/cgp2100a.uml

#include "cgp2100a.h"

TOOLBAR "" 0 20 0 2

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -12 -1 ""
END

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

ENDPAGE

PAGE "Ordini di bonifico" 0 -1 0 19

NUMBER F_ANNOES 4
BEGIN
  FLAGS "H"
  PROMPT 4 2 "Esercizio contabile"
  USE ESC
	INPUT CODTAB[1,4] F_ANNOES 
	DISPLAY "Esercizio"  CODTAB[1,4]
	DISPLAY "Codice" CODTAB[5,7]
	OUTPUT F_ANNOES CODTAB[1,4]
END

DATE F_DATAPAG
BEGIN
  FLAGS "H"
  PROMPT 4 4 "Data del pagamento "
  MESSAGE COPY,F_FROMDATA|COPY,F_TODATA
  CHECKTYPE REQUIRED
END

DATE F_DATADOC
BEGIN
  FLAGS "A"
  PROMPT 4 4 "Data dell'ordine di bonifico "
  CHECKTYPE REQUIRED
END

GROUPBOX DLG_NULL 76 7
BEGIN
  PROMPT 3 6 " Selezione movimenti contabili"
END

STRING F_CAUS 3
BEGIN
  FLAGS "U"
  PROMPT 4 7 "Causale contabile  "
  USE LF_CAUSALI
  INPUT CODCAUS  F_CAUS
  DISPLAY "Codice" CODCAUS
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CAUS CODCAUS
  CHECKTYPE REQUIRED
END


NUMBER F_FROMREG 7
BEGIN
  PROMPT 4 9 "Dalla registrazione "
  USE LF_MOV SELECT CODCAUS==#F_CAUS 
  INPUT  NUMREG F_FROMREG 
  DISPLAY "Numero reg." NUMREG 
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_FROMREG NUMREG 
END

NUMBER F_TOREG     7
BEGIN
  PROMPT 4 11 "Alla registrazione  "
  COPY USE F_FROMREG 
  INPUT  NUMREG F_TOREG 
  COPY DISPLAY F_FROMREG
  OUTPUT F_TOREG NUMREG 
END

DATE F_FROMDATA
BEGIN
  PROMPT 40 9 "Dalla data di competenza "
END

DATE F_TODATA
BEGIN
  PROMPT 40 11 "Alla data di competenza  "
END


GROUPBOX DLG_NULL 76 5
BEGIN
  PROMPT 3 13 " Banca di presentazione "
END

NUMBER F_ABIPRES 5
BEGIN
  FLAGS "Z"
  PROMPT 4 14 "ABI   "
  USE %BAN SELECT CODTAB[6,10]==""
  INPUT CODTAB[1,5] F_ABIPRES 
  DISPLAY "Codice@10" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_ABIPRES CODTAB[1,5]
  OUTPUT F_BANCA S0
  MESSAGE EMPTY "",F_CABPRES
  CHECKTYPE NORMAL
END

NUMBER F_CABPRES 5
BEGIN
  FLAGS "Z"
  PROMPT 20 14 "CAB "
  USE %BAN SELECT CODTAB[6,10]!=""
  INPUT CODTAB[1,5] F_ABIPRES
  INPUT CODTAB[6,10] F_CABPRES
  COPY DISPLAY F_ABIPRES
  OUTPUT F_ABIPRES CODTAB[1,5]
  OUTPUT F_CABPRES CODTAB[6,10]
  OUTPUT F_FILIALE S0
  CHECKTYPE NORMAL
END

STRING F_BANCA 50
BEGIN
  PROMPT 4 15 "Banca "
  FLAGS "D"
END

STRING F_FILIALE 50
BEGIN
  PROMPT 4 16 "      "
  FLAGS "D"
END

ENDPAGE
ENDMASK