#include "ps1001_forn_dippub.h"

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

NUMBER F_DA_CODCF 6
BEGIN
  PROMPT 1 1 "Da fornitore "
  USE LF_CLIFO
  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 25 1 ""
  USE LF_CLIFO KEY 2
  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 1 2 "A fornitore  "
  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 25 2 ""
  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

ENDPAGE

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

ENDMASK