campo-sirio/m770/772100a.uml

// 772100a.uml
// Stampa schede percipienti

#include "772100.h" 

PAGE "Stampa schede percipienti" -1 -1 78 15

GROUPBOX DLG_NULL 78 3
BEGIN
    PROMPT 1 0 ""
END

NUMBER F_CODDITTA 5
BEGIN
    PROMPT 3 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 17 1 "Ragione "
    FLAGS "D"
END

/*
NUMBER F_ANNO 4
BEGIN
  PROMPT 3 3 "Anno dichiarazione   "
END
*/
            
STRING F_TIPODA 1 
BEGIN
  PROMPT 3 4 "Da codice        "    
  FLAGS "U"
END
 
TEXT DLG_NULL
BEGIN
  PROMPT 23 4 "/"
END

NUMBER F_CODDA 5
BEGIN
  PROMPT 25 4 ""
  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_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 5 "Ragione sociale  "
  FLAGS "D"
END

STRING F_TIPOA 1 
BEGIN
  PROMPT 3 6 "A codice         "    
  FLAGS "U"
END
       
TEXT DLG_NULL
BEGIN
  PROMPT 23 6 "/"
END
       
NUMBER F_CODA 5
BEGIN
  PROMPT 25 6 ""
  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
  WARNING "Percipiente inesistente"
END                                              

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

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

BOOLEAN F_MODULO 
BEGIN
  PROMPT 3 11 "Stampa su modulo "
  HELP "Indicare se si desidera stampare su modulo"
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