campo-sirio/gv/gv0600a.uml

#include "gv0600a.h"

TOOLBAR "" 0 -2 0 2

BUTTON DLG_ELABORA 10 2
BEGIN
  PROMPT -12 -11 "~Elabora"
  PICTURE BMP_ELABORA
  MESSAGE EXIT,69
END

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

ENDPAGE

PAGE "Invio F4" 0 0 0 -3

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 0 "@bSelezione"
END

LIST F_FILTER 1 13
BEGIN
  PROMPT 2 1 "Mostra distinte "
  ITEM " |da inviare"
  ITEM "I|inviate"
  ITEM "Q|qualsiasi"
END

DATE F_DATA_DA 
BEGIN
  PROMPT 36 1 "Scadenze dal"
END

DATE F_DATA_AL
BEGIN
  PROMPT 62 1 "al "
END

NUMBER F_ABI 5
BEGIN
  PROMPT 2 2 "Banca (ABI-CAB) "
  CHECKTYPE REQUIRED
  FLAGS "Z"
  FIELD ABI
END

NUMBER F_CAB 5
BEGIN
  PROMPT 25 2 " "
  USE BNP
  JOIN %BAN ALIAS 883 INTO CODTAB==CODTAB
  INPUT CODTAB[1,5] F_ABI
  INPUT CODTAB[6,10] F_CAB
  DISPLAY "ABI@5" CODTAB[1,5]
  DISPLAY "CAB@5" CODTAB[6,10]
  DISPLAY "Descrizione@50" 883@->S0
  OUTPUT F_ABI CODTAB[1,5]
  OUTPUT F_CAB CODTAB[6,10]
  OUTPUT F_DESBAN 883@->S0
  CHECKTYPE REQUIRED
  FLAGS "Z"
  FIELD CAB
END

STRING F_DESBAN 70 40
BEGIN
  PROMPT 36 2 ""
  FLAGS "D"
END

LIST F_TIPOINTEST 1 10
BEGIN
  PROMPT 2 3 "Intestatario    "
  ITEM " |Tutti"     MESSAGE HIDE,F_CLIFO|HIDE,F_PERSON
  ITEM "C|Cliente"   MESSAGE SHOW,F_CLIFO|HIDE,F_PERSON
  ITEM "D|Ditta"     MESSAGE HIDE,F_CLIFO|HIDE,F_PERSON
  ITEM "F|Fisico"    MESSAGE HIDE,F_CLIFO|SHOW,F_PERSON
  ITEM "G|Giuridico" MESSAGE HIDE,F_CLIFO|SHOW,F_PERSON
END

NUMBER F_CLIFO 6
BEGIN
  PROMPT 36 3 ""
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF F_CLIFO
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_CLIFO CODCF
  CHECKTYPE NORMAL
  ADD RUN cg0 -1 C
END

NUMBER F_PERSON 6
BEGIN
  PROMPT 36 3 ""
  USE LF_ANAG
  INPUT TIPOA F_TIPOINTEST
  INPUT CODANAGR F_PERSON
  DISPLAY "Codice" CODANAGR
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_PERSON CODANAGR
  CHECKTYPE NORMAL
  ADD RUN ba4 -1 #F_TIPOINTEST
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 5 "@bParametri"
END

STRING F_MITTENTE 5
BEGIN
  PROMPT 2 6 "Codice SIA del mittente "
  CHEKCTYPE REQUIRED
  FIELD Mittente
END 

DATE F_DATA
BEGIN
  PROMPT 49 6 "Data di creazione " 
  CHEKCTYPE REQUIRED
  FLAGS "A"
END

BOOLEAN F_CONTABILIZZA
BEGIN
  PROMPT 2 7 "Contabilizza"
	FLAGS "D"
END 

DATE F_DATAPAG
BEGIN
  PROMPT 49 7 "Data di pagamento " 
  CHEKCTYPE REQUIRED
END

STRING F_PATH 256 39
BEGIN
  PROMPT 2 8 "Cartella "
  DSELECT
  CHECKTYPE REQUIRED
  FIELD F24DestPath
END

STRING F_FILE 18
BEGIN
  PROMPT 54 8 "File "
  FLAGS "DG"
  DRIVENBY F_DATA F_ABI F_MITTENTE 
  STR_CALC ANSI(#F_DATA)+#F_ABI+#F_MITTENTE
END

SPREADSHEET F_DISTINTE 78
BEGIN
  PROMPT 1 10 ""
  ITEM "@1"
  ITEM "Distinta"
  ITEM "Scadenza@10"
  ITEM "ABI@5"
  ITEM "CAB@5"
  ITEM "Tipo@2"
  ITEM "Intestatario"
  ITEM "Invio@10"
  FLAGS "D"
END

ENDPAGE

ENDMASK

PAGE "Distinta" -1 -1 56 12

GROUP DLG_NULL 54 4
BEGIN
  PROMPT 1 0 "@bDistinta"
END

BOOLEAN 101
BEGIN
  PROMPT 2 1 "Da inviare"
END 

NUMBER 102 7
BEGIN
  PROMPT 2 2 "Numero "
  FLAGS "L"
  FIELD F24
END 

DATE 103
BEGIN
  PROMPT 32 1 "Scadenza   "
  FLAGS "L"
  FIELD DATASCAD
END 

DATE 108
BEGIN
  PROMPT 32 2 "Inviata il "
  FLAGS "L"
  FIELD DATAVERS
END 

GROUP DLG_NULL 54 4
BEGIN
  PROMPT 1 4 "@bBanca"
END

NUMBER 104 5
BEGIN
  PROMPT 2 5 "ABI "
  FIELD ABI
  FLAGS "LZ"
END 

NUMBER 105 5
BEGIN
  PROMPT 16 5 "CAB "
  FIELD CAB
  FLAGS "LZ"
  USE %BAN
  INPUT CODTAB[1,5] 104
  INPUT CODTAB[6,10] 105
  DISPLAY "ABI@5" CODTAB[1,5]
  DISPLAY "CAB@5" CODTAB[6,10]
  DISPLAY "Descrizione@50" S0
  OUTPUT 115 S0
  CHECTYPE NORMAL
END 

STRING 115 50
BEGIN
  PROMPT 2 6 ""
  FLAGS "D"
END

GROUP DLG_NULL 54 3
BEGIN
  PROMPT 1 8 "@bIntestatario"
END

LIST 106 1 10
BEGIN
  PROMPT 2 9 "Tipo "
  ITEM "C|Cliente"
  ITEM "D|Ditta"
  ITEM "F|Fisico"
  ITEM "G|Giuridico"
  FIELD TIPOINTEST
  FLAGS "L"
END

NUMBER 107 6
BEGIN
  PROMPT 26 9 ""
  FIELD INTEST
  FLAGS "L"
END

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

ENDPAGE

ENDMASK