campo-sirio/m770/777200a.uml

#include "777200a.h"

TOOLBAR "" 0 0 0 2

BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 "Elabora"
  PICTURE TOOL_ELABORA
END

BUTTON DLG_PREVIEW 2 2
BEGIN
  PROMPT 2 1 "Anteprima"
  PICTURE TOOL_PREVIEW
END

BUTTON DLG_EDIT 2 2
BEGIN
  PROMPT 3 1 "Modifica"
  PICTURE TOOL_EDIT
END

#include <helpbar.h>

ENDPAGE

PAGE "Invio Certificazione Unica 2015" -1 -1 72 8

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 1 "@bIntermediario"
END 

STRING F_INTER_CODFIS 16
BEGIN
  PROMPT 2 2 "Intermediario "
  USE LF_CLIFO KEY 4 SELECT LEN(COFI)==16
  INPUT TIPOCF "F"
  INPUT COFI F_INTER_CODFIS
  DISPLAY "Codice Fiscale@16" COFI
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Partita IVA" PAIV
  DISPLAY "Codice" CODCF
  OUTPUT F_INTER_CODFIS COFI
  OUTPUT F_INTER_RAGSOC RAGSOC
  CHECKTYPE SEARCH
  ADD RUN cg0 -1 F
  MESSAGE EMPTY CLEAR,F_INTER_DATA
  MESSAGE ENABLE,F_INTER_DATA
END

STRING F_INTER_RAGSOC 50 52
BEGIN
  PROMPT 16 3 ""
  USE LF_CLIFO KEY 2 SELECT LEN(COFI)==16
  INPUT TIPOCF "F"
  INPUT RAGSOC F_INTER_RAGSOC
  COPY DISPLAY F_INTER_CODFIS
  COPY OUTPUT  F_INTER_CODFIS
  CHECKTYPE SEARCH
  ADD RUN cg0 -1 F
END

DATE F_INTER_DATA
BEGIN
  PROMPT 2 4 "Data di impegno alla trasmissione "
  CHECKTYPE REQUIRED
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 46 2 "Anno dichiarazione "
  FLAGS "DG"
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 6 "@bParametri di generazione"
END 

STRING F_PATH 260 52
BEGIN
  PROMPT 2 7 "Destinazione  "
  DSELECT
  CHECTYPE REQUIRED
END

NUMBER F_DADITTA 5
BEGIN
  PROMPT 2 8 "Da ditta "
  USE LF_BASE 
  JOIN LF_NDITTE INTO CODDITTA=CODDITTA
  INPUT CODDITTA F_DADITTA
  DISPLAY "Ditta" CODDITTA
  DISPLAY "Anno" ANNODIC
  DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC
  OUTPUT F_DADITTA CODDITTA
  OUTPUT F_DADESC LF_NDITTE->RAGSOC 
  CHECKTYPE NORMAL
END

STRING F_DADESC 50
BEGIN
  PROMPT 21 8 ""
  FLAGS "D"
END

NUMBER F_ADITTA 5
BEGIN
  PROMPT 2 9 "A ditta  "
  COPY USE F_DADITTA
  INPUT CODDITTA F_ADITTA
  COPY DISPLAY F_DADITTA
  OUTPUT F_ADITTA CODDITTA 
  OUTPUT F_ADESC LF_NDITTE->RAGSOC
  CHECKTYPE SEARCH
  NUM_EXPR (#F_ADITTA=0)||(#F_ADITTA>=#F_DADITTA)
  WARNING "La ditta finale deve seguire quella iniziale"
END

STRING F_ADESC 50
BEGIN
  PROMPT 21 9 ""
  FLAGS "D"
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 11 "@bParametri di stampa"
END 

BOOLEAN F_QUALITY
BEGIN
  PROMPT 2 12 "Stampa sfondi colorati del modulo"
END

BOOLEAN F_SIMPLE
BEGIN
  PROMPT 42 12 "Modello sintetico"
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 14 "@bParametri di invio"
END 

LIST F_INVIO 1 12
BEGIN
  PROMPT 2 15 "Tipo operazione "
  ITEM " |Normale"       MESSAGE DISABLE,F_IDENTIFICATIVO
  ITEM "A|Annullamento"  MESSAGE ENABLE,F_IDENTIFICATIVO
  ITEM "S|Sostituzione"  MESSAGE ENABLE,F_IDENTIFICATIVO
END

STRING F_IDENTIFICATIVO 17
BEGIN
  PROMPT 2 16 "Identificativo invio "
  FLAGS "RZ"
  CHECKTYPE REQUIRED
END

STRING DLG_PROFILE 260
BEGIN
  PROMPT 1 -1 ""
  PSELECT
  FLAGS "H"
END

ENDPAGE

ENDMASK