871064ce02
Files correlati : fp Commento: Aggiunto al monitor delle fatture passive il campo ID SDI che seerve per la contabilizzazione dei TD16. il dato viene recuperato dal campo PZ_IDSDI del FPPROO. Quando si contabilizza il documento, se questo campo è compilato, viene riportato in prima nota nel "id fattura collegata"
658 lines
11 KiB
Plaintext
658 lines
11 KiB
Plaintext
#include "fp0400a.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
|
|
BUTTON DLG_ALL 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "~Tutti"
|
|
PICTURE TOOL_MULTISEL
|
|
END
|
|
|
|
BUTTON DLG_SAVEREC 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "Salva Fornitori"
|
|
PICTURE TOOL_ELABORA
|
|
FLAGS ""
|
|
END
|
|
|
|
BUTTON DLG_NEWREC 10 2
|
|
BEGIN
|
|
PROMPT 1 1 "Nuovo"
|
|
PICTURE BMP_NEWREC
|
|
PICTURE BMP_NEWRECDN
|
|
END
|
|
|
|
BUTTON DLG_RECALC 10 2
|
|
BEGIN
|
|
PROMPT -13 -11 "Aggiorna"
|
|
PICTURE BMP_RECALC
|
|
END
|
|
|
|
BUTTON DLG_EXPORT 10 2
|
|
BEGIN
|
|
PROMPT 4 1 "Contabilizza"
|
|
PICTURE TOOL_EXPORT
|
|
END
|
|
|
|
#include <helpbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Fatture Passive" 0 2 0 0
|
|
|
|
RADIOBUTTON F_ASSOC 20 50
|
|
BEGIN
|
|
PROMPT 0 1 "@BFornitori"
|
|
ITEM "E|Associate"
|
|
ITEM "|Non Associate"
|
|
ITEM "A|Tutte"
|
|
FLAGS "Z"
|
|
END
|
|
|
|
DATE F_DATAINI
|
|
BEGIN
|
|
PROMPT 0 4 "Data iniziale"
|
|
VALIDATE DATE_CMP_FUNC <= F_DATAEND
|
|
WARNING "La data iniziale non puo' essere superiore della data iniziale"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
DATE F_DATAEND
|
|
BEGIN
|
|
PROMPT 25 4 "Data finale "
|
|
VALIDATE DATE_CMP_FUNC >= F_DATAINI
|
|
WARNING "La data finale non puo' essere minore della data iniziale"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
RADIOBUTTON F_FATTORD 20 20
|
|
BEGIN
|
|
PROMPT 56 1 "Ordinamento fatture per "
|
|
ITEM "|Data Ricezione"
|
|
ITEM "D|Data Documento"
|
|
FLAGS ""
|
|
END
|
|
|
|
RADIOBUTTON F_VERSOORD 20 20
|
|
BEGIN
|
|
PROMPT 56 5 "Ordinamento:"
|
|
ITEM "|Decrescente"
|
|
ITEM "C|Crescente"
|
|
FLAGS ""
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 55 6
|
|
BEGIN
|
|
PROMPT 0 5 "@BFiltro fornitore"
|
|
END
|
|
|
|
BOOLEAN F_ENABLEFORN
|
|
BEGIN
|
|
PROMPT 1 6 "Abilita"
|
|
END
|
|
|
|
NUMBER F_FORNITORE 6
|
|
BEGIN
|
|
PROMPT 17 6 "Codice fornitore "
|
|
FIELD CODCF
|
|
FLAGS "GRD"
|
|
KEY 1
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "F" SELECT
|
|
INPUT CODCF F_FORNITORE
|
|
DISPLAY "Codice@6R" CODCF
|
|
DISPLAY "Sospeso@C" SOSPESO
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Codice fiscale@16" COFI
|
|
DISPLAY "Partita IVA@11" PAIV
|
|
OUTPUT F_FORNITORE CODCF
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
OUTPUT F_STATOPAIV STATOPAIV
|
|
OUTPUT F_PARIVA PAIV
|
|
OUTPUT F_CODFISC COFI
|
|
ADD RUN cg0 -1 F F_FORNITORE
|
|
HELP "Codice relativo al cliente o fornitore"
|
|
MESSAGE COPY,2@
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 1 7 ""
|
|
KEY 2
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "F"
|
|
INPUT RAGSOC F_RAGSOC
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Sospeso@C" SOSPESO
|
|
DISPLAY "Codice@R" CODCF
|
|
DISPLAY "Codice fiscale@16" COFI
|
|
DISPLAY "Partita IVA@11" PAIV
|
|
COPY OUTPUT F_FORNITORE
|
|
HELP "Prima parte della ragione sociale o cognome"
|
|
MESSAGE COPY,3@
|
|
WARNING "Manca la ragione sociale"
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_STATOPAIV 2
|
|
BEGIN
|
|
PROMPT 1 8 ""
|
|
HELP "Codice ISO dello stato"
|
|
FLAGS "U"
|
|
USE %SCE
|
|
INPUT CODTAB F_STATOPAIV
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_STATOPAIV CODTAB
|
|
CHECKTYPE NORMAL
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_PARIVA 50 20
|
|
BEGIN
|
|
PROMPT 10 8 "P. IVA"
|
|
KEY 5
|
|
USE LF_CLIFO KEY 5
|
|
INPUT TIPOCF "F"
|
|
INPUT STATOPAIV F_STATOPAIV
|
|
INPUT PAIV F_PARIVA
|
|
DISPLAY "ISO@3" STATOPAIV
|
|
DISPLAY "Partita IVA@11" PAIV
|
|
DISPLAY "Sospeso" SOSPESO
|
|
DISPLAY "Codice@R" CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Codice fiscale@16" COFI
|
|
COPY OUTPUT F_FORNITORE
|
|
HELP "Partita IVA del cliente/fornitore"
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CODFISC 50 20
|
|
BEGIN
|
|
PROMPT 1 9 "Cod. Fisc."
|
|
FLAGS "U"
|
|
KEY 4
|
|
USE LF_CLIFO KEY 4
|
|
INPUT TIPOCF "F"
|
|
INPUT COFI F_CODFISC
|
|
DISPLAY "Codice fiscale@16" COFI
|
|
DISPLAY "Sospeso" SOSPESO
|
|
DISPLAY "Codice@R" CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Partita IVA@11" PAIV
|
|
COPY OUTPUT F_FORNITORE
|
|
HELP "Codice fiscale del cliente/fornitore"
|
|
FLAGS "D"
|
|
END
|
|
|
|
SPREADSHEET F_PROT 25 4
|
|
BEGIN
|
|
PROMPT 0 11 "Selezionare o aggiungere un filtro sul Tipo Progressivo"
|
|
ITEM "@1"
|
|
ITEM "Codice\nProtocol.@12"
|
|
END
|
|
|
|
GROUPBOX F_GROUPCON 32 5
|
|
BEGIN
|
|
PROMPT 0 16 "@BContabilita'"
|
|
END
|
|
|
|
BOOLEAN F_CONTABIL
|
|
BEGIN
|
|
PROMPT 1 17 "Mostra solo doc. registrati"
|
|
MODULE F1
|
|
END
|
|
|
|
DATE F_DATAINIREG
|
|
BEGIN
|
|
PROMPT 1 18 "Data iniziale"
|
|
VALIDATE DATE_CMP_FUNC <= F_DATAENDREG
|
|
WARNING "La data iniziale non puo' essere superiore della data iniziale"
|
|
CHECKTYPE REQUIRED
|
|
MODULE F1
|
|
END
|
|
|
|
DATE F_DATAENDREG
|
|
BEGIN
|
|
PROMPT 1 19 "Data finale "
|
|
VALIDATE DATE_CMP_FUNC >= F_DATAINIREG
|
|
WARNING "La data finale non puo' essere minore della data iniziale"
|
|
CHECKTYPE REQUIRED
|
|
MODULE F1
|
|
END
|
|
|
|
GROUPBOX F_GROUPCON2 59 5
|
|
BEGIN
|
|
PROMPT 33 16 "@BContabilizzazione automatica:"
|
|
END
|
|
|
|
BOOLEAN F_PERIODPREC
|
|
BEGIN
|
|
PROMPT 34 17 "Selezione automatica liquid. periodo precedente"
|
|
MODULE F1
|
|
END
|
|
|
|
BOOLEAN F_USEDATARIC
|
|
BEGIN
|
|
PROMPT 34 18 "Utilizza data di ricezione per la registrazione"
|
|
MODULE F1
|
|
END
|
|
|
|
DATE F_DATAREGDIF
|
|
BEGIN
|
|
PROMPT 34 19 "Data diversa da quella di ricezione"
|
|
MODULE F1
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Elenco Fatture" 0 2 0 0
|
|
|
|
GROUPBOX F_GROUPCAU 70 4
|
|
BEGIN
|
|
PROMPT 0 0 "@BParametri di default per Registrazione Contabile:"
|
|
END
|
|
|
|
STRING F_CAUSFA 3
|
|
BEGIN
|
|
PROMPT 1 1 "Causale per Contabilizzazione"
|
|
FLAGS "UZ"
|
|
FIELD CODCAUS
|
|
USE LF_CAUSALI
|
|
INPUT CODCAUS F_CAUSFA
|
|
DISPLAY "Codice" CODCAUS
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Tipo" TIPODOC
|
|
DISPLAY "Registro" REG
|
|
DISPLAY "SC" TIPOMOV
|
|
DISPLAY "CA" MOVIND
|
|
DISPLAY "CE" COLLCESP
|
|
DISPLAY "770" M770
|
|
OUTPUT F_CAUSFA CODCAUS
|
|
OUTPUT F_DESCAUSFA DESCR
|
|
ADD RUN cg0 -4
|
|
CHECKTYPE NORMAL
|
|
WARNING "Causale assente"
|
|
MODULE F1
|
|
END
|
|
|
|
STRING F_DESCAUSFA 50
|
|
BEGIN
|
|
PROMPT 1 2 ""
|
|
USE LF_CAUSALI KEY 2
|
|
CHECKTYPE NORMAL
|
|
INPUT DESCR F_DESCAUSFA
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Codice" CODCAUS
|
|
DISPLAY "Tipo" TIPODOC
|
|
DISPLAY "Registro" REG
|
|
DISPLAY "SC" TIPOMOV
|
|
DISPLAY "CA" MOVIND
|
|
DISPLAY "CE" COLLCESP
|
|
DISPLAY "770" M770
|
|
COPY OUTPUT F_CAUSFA
|
|
ADD RUN cg0 -4
|
|
MODULE F1
|
|
END
|
|
|
|
SPREADSHEET F_DOCS -1 -1
|
|
BEGIN
|
|
PROMPT 0 4 ""
|
|
ITEM ""
|
|
ITEM "Anno"
|
|
ITEM "Tipo Doc.\nSDI@5"
|
|
ITEM "Numero\nDocumento@14"
|
|
ITEM "Data\nDoc.@8"
|
|
ITEM "Data\nRicezione@8"
|
|
ITEM "Totale\nDocumento@7"
|
|
ITEM "Totale\nritenute@6"
|
|
ITEM "Fornitore\nassociato@6"
|
|
ITEM "Num. Regis.\ncontabile@8"
|
|
ITEM "Data Regis.\ncontabile@8"
|
|
ITEM "Fornitore@5"
|
|
ITEM "Ragione Sociale@40"
|
|
ITEM "Stato\nP.IVA@4"
|
|
ITEM "Partita IVA@10"
|
|
ITEM "Cod. Fiscale@12"
|
|
ITEM "ID SDI@8"
|
|
ITEM "Allegati@6"
|
|
ITEM "Ragione Sociale (XML)@40"
|
|
ITEM "Numero Protocollo (in entrata)\n[anno-tipo prot/progressivo]@20"
|
|
ITEM "Chiave Prot.@40"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Errore Fornitori" 0 2 0 0
|
|
|
|
SPREADSHEET F_ERR
|
|
BEGIN
|
|
PROMPT 0 2 ""
|
|
ITEM "@1"
|
|
ITEM "Stato\nP.IVA@5"
|
|
ITEM "P. IVA@16"
|
|
ITEM "Cod. Fiscale@16"
|
|
ITEM "Rag. Soc. (XML)@50"
|
|
ITEM "Descrizione @100"
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|
|
|
|
|
|
PAGE "Spread protocol " -1 -1 50 5
|
|
|
|
BOOLEAN S_SELCODPROT
|
|
BEGIN
|
|
PROMPT 1 1 "Seleziona Protocollo"
|
|
FLAGS ""
|
|
END
|
|
|
|
STRING S_CODPROT 12
|
|
BEGIN
|
|
PROMPT 1 3 "Tipo Protocollo"
|
|
FLAGS ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
TOOLBAR "Fatture Passive" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 2 2
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
END
|
|
|
|
BUTTON DLG_USER 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "Collega"
|
|
PICTURE TOOL_LINK
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 2 2
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|
|
|
|
|
|
PAGE "Documento" -1 -1 78 9
|
|
|
|
BOOLEAN S_SELECTED
|
|
BEGIN
|
|
PROMPT 1 0 ""
|
|
FLAGS ""
|
|
END
|
|
|
|
NUMBER S_ANNO 4
|
|
BEGIN
|
|
PROMPT 7 0 "Anno "
|
|
FLAGS "D"
|
|
END
|
|
|
|
LIST S_TIPODOCSDI 40
|
|
BEGIN
|
|
PROMPT 25 0 "Tipo Doc SDI"
|
|
ITEM "TD01|TD01 Fattura"
|
|
ITEM "TD02|TD02 Acconto/Anticipo su fattura"
|
|
ITEM "TD03|TD03 Acconto/Anticipo su parcella"
|
|
ITEM "TD04|TD04 Nota di credito"
|
|
ITEM "TD05|TD05 Nota di debito"
|
|
ITEM "TD06|TD06 Parcella"
|
|
ITEM "TD16|TD16 Integraz. fatt. rev.ch. interno"
|
|
ITEM "TD17|TD17 Integ./autof. acq. servizi estero"
|
|
ITEM "TD18|TD18 Integ. acq. beni intracomunitari"
|
|
ITEM "TD19|TD19 Integ./autof. acq. beni ex art. 17"
|
|
ITEM "TD20|TD20 Autofattura"
|
|
ITEM "TD21|TD21 Autofattura per splafonamento"
|
|
ITEM "TD22|TD22 Estrazione beni da Deposito IVA"
|
|
ITEM "TD23|TD23 Estr. beni Deposito IVA vers. IVA"
|
|
ITEM "TD24|TD24 Fatt. differita art.21 c.4 lett. a"
|
|
ITEM "TD25|TD25 Fatt. differita art. 21 c.4 per.3 b"
|
|
ITEM "TD26|TD26 Cess. beni ammort./passaggi interni"
|
|
ITEM "TD27|TD27 Fatt. autoconsumo/cessioni gratuite"
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING S_NDOC 20
|
|
BEGIN
|
|
PROMPT 1 1 "Numero Doc. "
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE S_DATADOC
|
|
BEGIN
|
|
PROMPT 40 1 "Data Doc. "
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE S_DATARIC
|
|
BEGIN
|
|
PROMPT 20 1 "Data\nRicezione"
|
|
FLAGS "D"
|
|
END
|
|
|
|
|
|
NUMBER S_TOTDOC 11 2
|
|
BEGIN
|
|
PROMPT 1 2 "Totale Doc. "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER S_TOTRIT 10 2
|
|
BEGIN
|
|
PROMPT 1 2 "Totale Ritenute"
|
|
FLAGS "D"
|
|
END
|
|
|
|
BOOLEAN S_FPPRO
|
|
BEGIN
|
|
PROMPT 15 2 "Salvato in FP-PRO"
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER S_NUMREGCONT 6 0
|
|
BEGIN
|
|
PROMPT 40 2 "Num. Registrazione contabile"
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE S_DATAREGCONT
|
|
BEGIN
|
|
PROMPT 1 3 "Data Registrazione contabile"
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER S_FORNITORE 6
|
|
BEGIN
|
|
PROMPT 1 4 "Fornitore "
|
|
FIELD CODCF
|
|
FLAGS "GR"
|
|
KEY 1
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "F" SELECT
|
|
INPUT CODCF S_FORNITORE
|
|
DISPLAY "Codice@6R" CODCF
|
|
DISPLAY "Sospeso@C" SOSPESO
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Codice fiscale@16" COFI
|
|
DISPLAY "Partita IVA@11" PAIV
|
|
OUTPUT S_FORNITORE CODCF
|
|
OUTPUT S_RAGSOC RAGSOC
|
|
ADD RUN cg0 -1 F S_FORNITORE
|
|
HELP "Codice relativo al cliente o fornitore"
|
|
MESSAGE COPY,2@
|
|
END
|
|
|
|
STRING S_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 21 4 ""
|
|
KEY 2
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "F"
|
|
INPUT RAGSOC S_RAGSOC
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Sospeso@C" SOSPESO
|
|
DISPLAY "Codice@R" CODCF
|
|
DISPLAY "Codice fiscale@16" COFI
|
|
DISPLAY "Partita IVA@11" PAIV
|
|
COPY OUTPUT S_FORNITORE
|
|
HELP "Prima parte della ragione sociale o cognome"
|
|
MESSAGE COPY,3@
|
|
WARNING "Manca la ragione sociale"
|
|
END
|
|
|
|
STRING S_STATOPAIV 2
|
|
BEGIN
|
|
PROMPT 1 5 ""
|
|
HELP "Codice ISO dello stato"
|
|
FLAGS "U"
|
|
USE %SCE
|
|
INPUT CODTAB S_STATOPAIV
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT S_STATOPAIV CODTAB
|
|
CHECKTYPE NORMAL
|
|
FLAGS "D"
|
|
END
|
|
|
|
|
|
STRING S_PARIVA 50 20
|
|
BEGIN
|
|
PROMPT 10 5 "P. IVA"
|
|
KEY 5
|
|
USE LF_CLIFO KEY 5
|
|
INPUT TIPOCF "F"
|
|
INPUT STATOPAIV F_STATOPAIV
|
|
INPUT PAIV S_PAIV
|
|
DISPLAY "ISO@3" STATOPAIV
|
|
DISPLAY "Partita IVA@11" PAIV
|
|
DISPLAY "Sospeso" SOSPESO
|
|
DISPLAY "Codice@R" CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Codice fiscale@16" COFI
|
|
COPY OUTPUT S_FORNITORE
|
|
HELP "Partita IVA del cliente/fornitore"
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING S_CODFISC 50 20
|
|
BEGIN
|
|
PROMPT 1 6 "Cod. Fisc."
|
|
FLAGS "U"
|
|
KEY 4
|
|
USE LF_CLIFO KEY 4
|
|
INPUT TIPOCF "F"
|
|
INPUT COFI F_COFI
|
|
DISPLAY "Codice fiscale@16" COFI
|
|
DISPLAY "Sospeso" SOSPESO
|
|
DISPLAY "Codice@R" CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Partita IVA@11" PAIV
|
|
COPY OUTPUT S_FORNITORE
|
|
HELP "Codice fiscale del cliente/fornitore"
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING S_IDSDI 8
|
|
BEGIN
|
|
PROMPT 1 1 "Id Sdi "
|
|
FLAGS "D"
|
|
END
|
|
|
|
BOOLEAN S_ATTACH
|
|
BEGIN
|
|
PROMPT 1 7 "Documenti in allegato"
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING S_RAGXML 50
|
|
BEGIN
|
|
PROMPT 1 8 ""
|
|
FLAGS "D"
|
|
HELP "Ragione sociale scritta nell'xml"
|
|
END
|
|
|
|
STRING S_NPROT 32
|
|
BEGIN
|
|
PROMPT 1 9 "Numero Protocollo"
|
|
HELP "Numero Protocollo"
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING S_PROKEY 80
|
|
BEGIN
|
|
PROMPT 1 10 "db key"
|
|
HELP "Chiave database"
|
|
FLAGS "D"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
TOOLBAR "Documento" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 2 2
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
END
|
|
|
|
BUTTON DLG_USER 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "Collega"
|
|
PICTURE TOOL_LINK
|
|
END
|
|
|
|
|
|
BUTTON DLG_CANCEL 2 2
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|
|
|
|
|
|
PAGE "Riga Errore" -1 -1 69 14
|
|
|
|
BOOLEAN S_SELECTF
|
|
BEGIN
|
|
PROMPT 21 4 "Seleziona Fornitore da salvare"
|
|
FLAGS ""
|
|
END
|
|
|
|
STRING S_STATOERR 2
|
|
BEGIN
|
|
PROMPT 21 4 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING S_PIVAERR 50 20
|
|
BEGIN
|
|
PROMPT 21 4 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING S_CODFIERR 50 20
|
|
BEGIN
|
|
PROMPT 21 4 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING S_RAGSERR 50
|
|
BEGIN
|
|
PROMPT 21 4 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING S_DESCERR 100
|
|
BEGIN
|
|
PROMPT 21 4 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
|
|
ENDPAGE
|
|
ENDMASK
|