114 lines
2.2 KiB
Plaintext
Executable File
114 lines
2.2 KiB
Plaintext
Executable File
#include "cg1300.h"
|
|
|
|
PAGE "Aggiornamento codice attivita'" -1 -1 72 12
|
|
|
|
NUMBER F_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 1 1 "Ditta "
|
|
FLAGS "FRD"
|
|
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 1 2 "Ragione sociale "
|
|
FLAGS "D"
|
|
END
|
|
|
|
BOOLEAN F_PASS
|
|
BEGIN
|
|
PROMPT 1 4 "Passaggio dati iva a nuova attivita' "
|
|
HELP "Indicare se richiedere o no il passaggio dati dalla vecchia alla nuova attivita'"
|
|
//MESSAGE TRUE ENABLE,F_DA|ENABLE,F_A|REQUIRED,F_ANNO
|
|
MESSAGE TRUE SHOW,1@
|
|
//MESSAGE FALSE DISABLE,F_DA|DISABLE,F_A|NORMAL,F_ANNO
|
|
MESSAGE FALSE HIDE,1@|RESET,1@
|
|
END
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 1 5 "Anno liquidazione iva "
|
|
HELP "Introdurre l'anno di liquidazione iva"
|
|
GROUP 1
|
|
FLAGS "A"
|
|
VALIDATE FIXLEN_FUNC 4
|
|
CHECKTYPE REQUIRED
|
|
//VALIDATE REQIF_FUNC 1 F_PASS
|
|
END
|
|
|
|
STRING F_DA 5
|
|
BEGIN
|
|
PROMPT 1 7 "DA "
|
|
HELP "Introdurre il codice della vecchia attivita'"
|
|
GROUP 1
|
|
FLAGS "RZ"
|
|
USE LF_ATTIV
|
|
JOIN LF_NDITTE TO LF_ATTIV INTO CODDITTA=CODDITTA
|
|
INPUT CODDITTA F_CODDITTA SELECT
|
|
INPUT CODATT F_DA
|
|
DISPLAY "Codice attivita'" LF_ATTIV->CODATT
|
|
DISPLAY "Descrizione @40" LF_ATTIV->DESCR
|
|
OUTPUT F_DA LF_ATTIV->CODATT
|
|
OUTPUT F_DENATTV LF_ATTIV->DESCR
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Attivita' assente"
|
|
END
|
|
|
|
STRING F_DENATTV 40
|
|
BEGIN
|
|
PROMPT 12 7 ""
|
|
GROUP 1
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_A 5
|
|
BEGIN
|
|
PROMPT 1 8 "A "
|
|
HELP "Introdurre il codice della nuova attivita'"
|
|
GROUP 1
|
|
FLAGS "RZ"
|
|
USE LF_ATTIV
|
|
JOIN LF_NDITTE TO LF_ATTIV INTO CODDITTA=CODDITTA
|
|
INPUT CODDITTA F_CODDITTA SELECT
|
|
INPUT CODATT F_A
|
|
DISPLAY "Codice attivita'" LF_ATTIV->CODATT
|
|
DISPLAY "Descrizione @40" LF_ATTIV->DESCR
|
|
OUTPUT F_A LF_ATTIV->CODATT
|
|
OUTPUT F_DENATTN LF_ATTIV->DESCR
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Attivita' assente"
|
|
//VALIDATE REQIF_FUNC 1 F_PASS
|
|
END
|
|
|
|
STRING F_DENATTN 40
|
|
BEGIN
|
|
PROMPT 12 8 ""
|
|
GROUP 1
|
|
FLAGS "D"
|
|
END
|
|
|
|
BUTTON DLG_OK 9 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 9 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|