#include "gv0500a.h"

TOOLBAR "" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "F24" 0 0 0 -3

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

NUMBER F_ABI 5
BEGIN
  PROMPT 2 1 "ABI  "
  CHECKTYPE NORMAL
  FLAGS "Z"
END

NUMBER F_CAB 5
BEGIN
  PROMPT 2 2 "CAB  "
  USE BNP
  JOIN %BAN ALIAS 883 INTO CODTAB==CODTAB[1,5]
  JOIN %BAN ALIAS 884 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" 884@->S0
  OUTPUT F_ABI CODTAB[1,5]
  OUTPUT F_CAB CODTAB[6,10]
  OUTPUT F_DESABI 883@->S0
  OUTPUT F_DESCAB 884@->S0
  CHECKTYPE NORMAL
  FLAGS "Z"
END

STRING F_DESABI 70 50
BEGIN
  PROMPT 26 1 ""
  FLAGS "D"
END

STRING F_DESCAB 70 50
BEGIN
  PROMPT 26 2 ""
  USE BNP KEY 2
  JOIN %BAN ALIAS 883 INTO CODTAB==CODTAB[1,5]
  JOIN %BAN ALIAS 884 INTO CODTAB==CODTAB
  INPUT S0 F_DESCAB
  DISPLAY "Descrizione@50" 884@->S0
  DISPLAY "ABI@5" CODTAB[1,5]
  DISPLAY "CAB@5" CODTAB[6,10]
  COPY OUTPUT F_CAB
  CHECKTYPE NORMAL
END

LIST F_TIPOINTEST 1 10
BEGIN
  PROMPT 2 3 "Intestatario  "
  ITEM " |Tutti"     MESSAGE HIDE,F_CLIFO|HIDE,F_PERSON
  ITEM "D|Ditta"     MESSAGE HIDE,F_CLIFO|HIDE,F_PERSON
  ITEM "C|Cliente"   MESSAGE SHOW,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
	MESSAGE COPY,F_PERSON
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

LIST F_TIPO 1 10
BEGIN
  PROMPT 2 4 "Tipo distinta "
  ITEM "3|Tutte"
  ITEM "1|Da inviare"
  ITEM "2|Inviata"
END

NUMBER F_DISTINTA 6
BEGIN 
  PROMPT 2 6 "Distinta "
  FIELD F24
  KEY 2
  FLAGS "B"
  CHECKTYPE REQUIRED
END

NUMBER F_PROGR 6
BEGIN 
  PROMPT 22 6 "Progressivo "
  FIELD PROGR
  FLAGS "B"
  KEY 2
END

ENDPAGE

ENDMASK