// 772100a.uml
// Stampa schede percipienti

#include "772100.h" 

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

PAGE "Stampa schede percipienti" 0 2 0 0

GROUPBOX DLG_NULL 78 3
BEGIN
    PROMPT 1 0 ""
END

NUMBER F_CODDITTA 5
BEGIN
    PROMPT 2 1 "Ditta "
    FLAGS "GRD"
    KEY 1
    CHECKTYPE REQUIRED             
    USE LF_NDITTE KEY 1
    INPUT CODDITTA F_CODDITTA
    DISPLAY "Codice" CODDITTA
    DISPLAY "Ragione sociale @50" RAGSOC
    OUTPUT F_RAGDITTA RAGSOC
    FIELD LF_SCPERC->CODDITTA
END

STRING F_RAGDITTA 50
BEGIN
  PROMPT 15 1 "Rag.soc. "
  FLAGS "D"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 3 "@bDa percipiente"
END

LIST F_TIPODA 1 9
BEGIN
  PROMPT 1 4 ""    
  ITEM "F|Fisica"
  ITEM "G|Giuridica"
END

NUMBER F_CODDA 5
BEGIN
  PROMPT 13 4 ""
  HELP "Codice anagrafico del percipiente"
  USE LF_PERC
  JOIN LF_ANAG TO LF_PERC INTO TIPOA=TIPOA CODANAGR=CODANAGR  
  INPUT CODDITTA F_CODDITTA SELECT
  INPUT TIPOA    F_TIPODA SELECT
  INPUT CODANAGR F_CODDA
  DISPLAY "Tipo " TIPOA
  DISPLAY "Codice " CODANAGR
  DISPLAY "Cognome - Nome o Ragione sociale@50"  LF_ANAG->RAGSOC
  OUTPUT F_TIPODA TIPOA
  OUTPUT F_CODDA CODANAGR
  OUTPUT F_RAGDA LF_ANAG->RAGSOC  
  WARNING "Percipiente inesistente"
  CHECKTYPE NORMAL
END

STRING F_RAGDA 50
BEGIN
  PROMPT 21 4 ""
  USE LF_ANAG KEY 2      
  INPUT TIPOA F_TIPODA 
  INPUT RAGSOC F_RAGDA
  DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC
  DISPLAY "Tipo" TIPOA
  DISPLAY "Codice" CODANAGR
  OUTPUT F_RAGDA RAGSOC
  OUTPUT F_CODDA CODANAGR
  OUTPUT F_TIPODA TIPOA
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 5 "@bA percipiente"
END

LIST F_TIPOA 1 9
BEGIN
  PROMPT 1 6 ""    
  ITEM "F|Fisica"
  ITEM "G|Giuridica"
END

NUMBER F_CODA 5
BEGIN
  PROMPT 13 6 ""
  HELP "Codice anagrafico del percipiente"
  USE LF_PERC
  JOIN LF_ANAG TO LF_PERC INTO TIPOA=TIPOA CODANAGR=CODANAGR  
  INPUT CODDITTA F_CODDITTA SELECT
  INPUT TIPOA    F_TIPOA SELECT
  INPUT CODANAGR F_CODA
  DISPLAY "Tipo " TIPOA
  DISPLAY "Codice " CODANAGR
  DISPLAY "Cognome - Nome o Ragione sociale@50"  LF_ANAG->RAGSOC
  OUTPUT F_TIPOA TIPOA
  OUTPUT F_CODA CODANAGR
  OUTPUT F_RAGA LF_ANAG->RAGSOC  
  WARNING "Percipiente inesistente"
  CHECKTYPE NORMAL
END

STRING F_RAGA 50
BEGIN
  PROMPT 21 6 ""
  USE LF_ANAG KEY 2      
  INPUT TIPOA F_TIPOA 
  INPUT RAGSOC F_RAGA
  DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC
  DISPLAY "Tipo" TIPOA
  DISPLAY "Codice" CODANAGR
  OUTPUT F_RAGA RAGSOC
  OUTPUT F_CODA CODANAGR
  OUTPUT F_TIPOA TIPOA
END

LIST F_CARATTERE 13
BEGIN
  PROMPT 1 9 "Tipo stampa "
  ITEMS "1|132 caratteri"
  ITEMS "2|198 caratteri"
END                

LIST F_TIPOSEL 25
BEGIN
  PROMPT 32 9 "Tipo selezione "
  ITEMS "1|per data pagamento"
  ITEMS "2|per periodo di competenza"
END

ENDPAGE

ENDMASK