campo-sirio/ps/pd0610300a.uml

#include "pd0610300a.h"

TOOLBAR "" 0 0 0 2

#include <elabar.h>

ENDPAGE

PAGE "Elaborazione" -1 -1 80 0

GROUPBOX DLG_NULL 78 8
BEGIN
	PROMPT 1 1 "@bParametri filtro"
END

STRING F_CODNUM 4
BEGIN
  PROMPT 2 2 "Num. doc.  "
  USE %NUM
  INPUT CODTAB F_CODNUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUM CODTAB
  OUTPUT F_DESNUM S0
  CHECKTYPE REQUIRED
  FLAGS "U"
END

STRING F_DESNUM 50
BEGIN
  PROMPT 25 2 ""  
  USE %NUM KEY 2
  INPUT S0 F_DESNUM
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODNUM
  CHECKTYPE REQUIRED
END

STRING F_TIPODOC 4
BEGIN
  PROMPT 2 3 "Tipo doc.  "
  USE %TIP
  INPUT CODTAB F_TIPODOC
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPODOC CODTAB
  OUTPUT F_DESTIPODOC S0
  CHECKTYPE REQUIRED
  FLAGS "U"
END

STRING F_DESTIPODOC 50
BEGIN
  PROMPT 25 3 ""
  HELP "Descrizione tipo documento"
  USE %TIP KEY 2
  INPUT S0 F_DESTIPODOC
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_TIPODOC
  CHECKTYPE REQUIRED
END

STRING F_STATO 1
BEGIN
  PROMPT 2 4 "Stato      "
  USE %STD
  CHECKTYPE REQUIRED
  INPUT CODTAB F_STATO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_STATO CODTAB
  OUTPUT F_DESSTATO S0
  FLAGS "U"
  CHECKTYPE REQUIRED
END

STRING F_DESSTATO 50
BEGIN
  PROMPT 25 4 ""
  USE %STD KEY 2
  CHECKTYPE REQUIRED
  INPUT S0 F_DESSTATO
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB  
  COPY OUTPUT F_STATO
  FLAGS "U"
  CHECKTYPE REQUIRED
END

DATE F_DADATA
BEGIN
  PROMPT 2 5 "Filtra documenti dal   "
END

DATE F_ADATA
BEGIN
  PROMPT 37 5 "al "
END

CURRENCY F_TOTDOC 8
BEGIN
  PROMPT 53 5 "Tot. documento "
END

NUMBER F_DACODCF 6
BEGIN
  PROMPT 2 6 "Da cliente "
  USE LF_CLIFO
  INPUT TIPOCF "C" SELECT
  INPUT CODCF F_DACODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Descrizione@50" RAGSOC
  OUTPUT F_DACODCF CODCF
  OUTPUT F_DARAGSOC RAGSOC
END

STRING F_DARAGSOC 50
BEGIN
  PROMPT 25 6 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C" SELECT
  INPUT RAGSOC F_DARAGSOC
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_DACODCF
END

NUMBER F_ACODCF 6
BEGIN
  PROMPT 2 7 "A cliente  "
  USE LF_CLIFO
  INPUT TIPOCF "C" SELECT
  INPUT CODCF F_ACODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Descrizione@50" RAGSOC
  OUTPUT F_ACODCF CODCF
  OUTPUT F_ARAGSOC RAGSOC
END

STRING F_ARAGSOC 50
BEGIN
  PROMPT 25 7 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C" SELECT
  INPUT RAGSOC F_ARAGSOC
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_ACODCF
END

GROUPBOX DLG_NULL 78 3
BEGIN
	PROMPT 1 9 "@bNuova Condizione"
END

STRING F_CODPAG 4
BEGIN
  PROMPT 2 10 "Cond. Pag. "
  USE %CPG
  INPUT CODTAB F_CODPAG
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODPAG CODTAB
  OUTPUT F_DESPAG S0
  HELP "Codice condizione di pagamento concordata"
  CHECKTYPE REQUIRED
END

STRING F_DESPAG 50
BEGIN
  PROMPT 25 10 ""
  USE %CPG KEY 2
  INPUT S0 F_DESPAG
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice pagamento" CODTAB
  COPY OUTPUT F_CODPAG
  CHECKTYPE REQUIRED
END

GROUPBOX DLG_NULL 78 4
BEGIN
	PROMPT 1 12 "@bNuovo Abi"
END

NUMBER F_ABI 5
BEGIN            
  PROMPT 2 13 "Codice ABI "
  FLAGS "Z"                 
  USE BNP
  JOIN %BAN ALIAS 100 INTO CODTAB==CODTAB[1,10]
  INPUT CODTAB[1,5] F_ABI
  INPUT CODTAB[6,10] F_CAB
  INPUT CODTAB[11,12] F_PROG
  DISPLAY "ABI@5" CODTAB[1,5]
  DISPLAY "CAB@5" CODTAB[6,10]
  DISPLAY "Progr." CODTAB[11,12]
  DISPLAY "IBAN@25" S3
  DISPLAY "Denominazione@50" 100@->S0
  OUTPUT F_ABI CODTAB[1,5]
  OUTPUT F_CAB CODTAB[6,10]
  OUTPUT F_PROG CODTAB[11,12]
  OUTPUT F_DENOM 100@->S0
  CHECKTYPE NORMAL
END

NUMBER F_CAB 5
BEGIN              
  PROMPT 30 13 "Codice CAB "
  FLAGS "Z"  
  COPY ALL F_ABI
  CHECKTYPE NORMAL
END  

NUMBER F_PROG 2
BEGIN        
  PROMPT 62 13 "Progressivo"
  FLAGS "Z"              
  COPY ALL F_ABI
  CHECKTYPE NORMAL
END

STRING F_DENOM 62
BEGIN
  PROMPT 2 14 "Denom.     "
  COPY ALL F_ABI
  CHECKTYPE NORMAL
END

ENDPAGE
ENDMASK