campo-sirio/m770/772200a.uml

// 772200a.uml
// Stampa certificazioni

#include "772200.h" 

PAGE "Stampa certificazioni" -1 -1 78 17

GROUPBOX DLG_NULL 78 3
BEGIN
    PROMPT 1 0 ""
END

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

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

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

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

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

LISTBOX F_DA 10
BEGIN
  PROMPT 3 6 "Periodo:     Da "
  FLAGS "M"
END 

LISTBOX F_A 10
BEGIN
  PROMPT 37 6 "A "
  FLAGS "M"
END

STRING F_TIPODA 1 
BEGIN
  PROMPT 3 8 "Da codice       " 
  FLAGS "U"
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 KEY 1  SELECT (CODDITTA=#F_CODDITTA)
  JOIN LF_ANAG TO LF_PERC INTO TIPOA=TIPOA CODANAGR=CODANAGR
  CHECKTYPE NORMAL
  INPUT CODDITTA F_CODDITTA
  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"
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"
END
       
TEXT DLG_NULL
BEGIN
  PROMPT 22 10 "/"
END
       
NUMBER F_CODA 5
BEGIN
  PROMPT 24 10 ""
  HELP "Codice anagrafico del percipiente"
  USE LF_PERC KEY 1 SELECT (CODDITTA=#F_CODDITTA)
  JOIN LF_ANAG TO LF_PERC INTO TIPOA=TIPOA CODANAGR=CODANAGR
  CHECKTYPE NORMAL
  INPUT CODDITTA F_CODDITTA
  INPUT TIPOA F_TIPOA
  INPUT CODANAGR F_CODA 
  DISPLAY "Tipo" TIPOA
  DISPLAY "Codice" CODANAGR  
  DISPLAY "Ragione Sociale@50" LF_ANAG->RAGSOC
  OUTPUT F_TIPOA TIPOA
  OUTPUT F_CODA CODANAGR
  OUTPUT F_RAGA LF_ANAG->RAGSOC
  NUM_EXPR {(#F_CODA==0)||(#F_CODA>=#F_CODDA)}
  WARNING "Limite superiore errato"  
END                                      

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

BOOLEAN F_MODULO 
BEGIN
  PROMPT 3 13 "Stampa su modulo "
  FLAGS "GH"                             // Per ora lo ignoriamo
  MESSAGE TRUE SHOW,F_LUNG|"8",F_LUNG|SHOW,F_INPS
  MESSAGE FALSE HIDE,F_LUNG|HIDE,F_INPS
END

NUMBER F_LUNG 1
BEGIN
  PROMPT 28 13 "Margine di lunghezza "  
END

BOOLEAN F_INPS
BEGIN
  PROMPT 28 14 "Stampa importo contributi previdenziali"  
END


BUTTON DLG_PRINT 10 2
BEGIN
 PROMPT -12 -1 "~Stampa"  
 MESSAGE EXIT,K_ENTER
END

BUTTON DLG_QUIT 10 2
BEGIN
 PROMPT -22 -1 ""  
END

ENDPAGE

ENDMASK