campo-sirio/ps/ps1001_forn_dippub.uml

#include "ps1001_forn_dippub.h"

PAGE "Fornitori dipendenti pubblici" -1 -1 78 12

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 1 1 "@bDitta"
END

NUMBER F_FIRM 5
BEGIN
  PROMPT 2 2 ""
  USE LF_NDITTE
  INPUT CODDITTA F_FIRM
  OUTPUT F_DESFIRM RAGSOC
  CHECKTYPE REQUIRED
  FLAGS "DF"
  FIELD #DITTA
END

STRING F_DESFIRM 50
BEGIN
  PROMPT 12 2 ""
  FLAGS "D"
END

GROUPBOX DLG_NULL 76 5
BEGIN
  PROMPT 1 4 "@bSelezione sui fornitori"
END

NUMBER F_DA_CODCF 6
BEGIN
  PROMPT 2 5 "Dal "
  USE LF_CLIFO SELECT DIPPUBB=="X"
  INPUT TIPOCF "F"
  INPUT CODCF F_DA_CODCF
  DISPLAY "Codice@6R" CODCF
  DISPLAY "Sospeso@C" SOSPESO
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice fiscale@16" COFI
  DISPLAY "Partita IVA@11" PAIV
  OUTPUT F_DA_CODCF CODCF
  OUTPUT F_DA_RAGSOC RAGSOC
  CHECKTYPE NORMAL
  FIELD #DACODCF
END

STRING F_DA_RAGSOC 50
BEGIN
  PROMPT 20 5 ""
  USE LF_CLIFO KEY 2 SELECT DIPPUBB=="X"
  INPUT TIPOCF "F"
  INPUT RAGSOC F_DA_RAGSOC
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Sospeso" SOSPESO
  DISPLAY "Codice@R" CODCF
  DISPLAY "Codice fiscale@16" COFI
  DISPLAY "Partita IVA@11" PAIV
  COPY OUTPUT F_DA_CODCF
  CHECKTYPE NORMAL
END

NUMBER F_A_CODCF 6
BEGIN
  PROMPT 2 6 "Al  "
  COPY USE F_DA_CODCF
  INPUT TIPOCF "F"
  INPUT CODCF F_A_CODCF
  COPY DISPLAY F_DA_CODCF
  OUTPUT F_A_CODCF CODCF
  OUTPUT F_A_RAGSOC RAGSOC
  CHECKTYPE NORMAL
  FIELD #ACODCF
END

STRING F_A_RAGSOC 50
BEGIN
  PROMPT 20 6 ""
  COPY USE F_DA_RAGSOC
  INPUT TIPOCF "F"
  INPUT RAGSOC F_A_RAGSOC
  COPY DISPLAY F_DA_RAGSOC
  COPY OUTPUT F_A_CODCF
  CHECKTYPE NORMAL
END

STRING F_CODENTE 4
BEGIN
  PROMPT 2 7 "Ente  "
  HELP "Codice ente pubblico"
  FLAGS "UZ"
  USE %ENP 
  INPUT CODTAB F_CODENTE
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione @50" S0
  OUTPUT F_CODENTE CODTAB
  OUTPUT F_DESCRENTE S0
  CHECKTYPE NORMAL
  FIELD #ENTE
END

STRING F_DESCRENTE 50
BEGIN
  PROMPT 20 7 ""
  HELP "Descrizione ente pubblico"
  USE %ENP KEY 2
  INPUT S0 F_DESCRENTE
  DISPLAY "Descrizione @50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODENTE
  CHECKTYPE NORMAL
END

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 1 9 "@bPagamenti percipiente"
END

DATE F_DA_DATA
BEGIN
  PROMPT 2 10 "Dal "
  FIELD #DADATA
END

DATE F_A_DATA
BEGIN
  PROMPT 20 10 "Al "
  FIELD #ADATA
END

ENDPAGE

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

ENDMASK