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

NUMBER F_DACODCF 6
BEGIN
  PROMPT 2 5 "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 5 ""
  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 6 "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 6 ""
  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

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

DATE F_ADATA
BEGIN
  PROMPT 37 7 "al "
END

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

NUMBER F_CODPAG 4
BEGIN
  PROMPT 2 10 "Codice Pagamento"
  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

ENDPAGE
ENDMASK