campo-sirio/m770/772200a.uml

// 772200a.uml
// Stampa certificazioni

#include "772200a.h" 

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

PAGE "Stampa certificazioni" 0 2 0 0

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 0 ""
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 3 1 "Ditta  "
  FLAGS "FD"
  USE LF_NDITTE KEY 1  
  CHECKTYPE REQUIRED
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_CODDITTA CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  FIELD CODDITTA
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 17 1 "Ragione "
  FLAGS "D"
END

DATE F_DATA
BEGIN
  PROMPT 3 3 "Data            "
  FLAGS "A"
  FIELD DATA
END

STRING F_LUOGO 50 36
BEGIN
  PROMPT 33 3 "Luogo "
  FIELD LUOGO
END

NUMBER F_ATTESTA 5
BEGIN
  PROMPT 3 4 "N.Attestazione  "
  FLAGS "R"
  FIELD ATTESTA
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 3 5 "Anno "
  CHECKTYPE REQUIRED
  FIELD ANNO
END

STRING F_TIPODA 1 
BEGIN
  PROMPT 3 8 "Da codice       " 
  FLAGS "U"
  FIELD TIPODA
END
 
TEXT DLG_NULL
BEGIN
  PROMPT 22 8 "/"
END         

NUMBER F_CODDA 5
BEGIN
  PROMPT 24 8 ""
  HELP "Codice anagrafico del percipiente da cui iniziare la stampa"
  USE LF_PERC
  JOIN LF_ANAG TO LF_PERC INTO TIPOA=TIPOA CODANAGR=CODANAGR
  CHECKTYPE SEARCH
  INPUT CODDITTA F_CODDITTA SELECT
  INPUT TIPOA F_TIPODA
  INPUT CODANAGR F_CODDA 
  DISPLAY "Tipo" TIPOA
  DISPLAY "Codice" CODANAGR  
  DISPLAY "Ragione Sociale@50" LF_ANAG->RAGSOC
  OUTPUT F_TIPODA TIPOA
  OUTPUT F_CODDA CODANAGR
  OUTPUT F_RAGDA LF_ANAG->RAGSOC                  
  WARNING "Percipiente inesistente"
  FIELD CODANAGRDA
END

STRING F_RAGDA 50
BEGIN
  PROMPT 3 9 "Ragione sociale "
  FLAGS "D"
END

STRING F_TIPOA 1 
BEGIN
  PROMPT 3 10 "A codice        "    
  FLAGS "U"
  FIELD TIPOA
END
       
TEXT DLG_NULL
BEGIN
  PROMPT 22 10 "/"
END
       
NUMBER F_CODA 5
BEGIN
  PROMPT 24 10 ""
  HELP "Codice anagrafico del percipiente"
  COPY USE F_CODDA
  CHECKTYPE SEARCH
  INPUT CODDITTA F_CODDITTA SELECT
  INPUT TIPOA F_TIPOA
  INPUT CODANAGR F_CODA 
  COPY DISPLAY F_CODDA
  OUTPUT F_TIPOA TIPOA
  OUTPUT F_CODA CODANAGR
  OUTPUT F_RAGA LF_ANAG->RAGSOC
  FIELD CODANAGRA 
END                                      

STRING F_RAGA 50
BEGIN
  PROMPT 3 11 "Ragione sociale "
  FLAGS "D"
END

ENDPAGE

ENDMASK