164 lines
2.9 KiB
Plaintext
Executable File
164 lines
2.9 KiB
Plaintext
Executable File
#include "77cnva.h"
|
|
|
|
PAGE "Modifica causali in schede percipienti" 2 2 75 15
|
|
|
|
GROUPBOX DLG_NULL -1 4
|
|
BEGIN
|
|
PROMPT 1 0 "@bDitta"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 2 1 "Codice"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 11 1 "Ragione sociale"
|
|
END
|
|
|
|
NUMBER F_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 2 2 ""
|
|
USE LF_NDITTE SELECT LF_BASE->CODDITTA!=""
|
|
JOIN LF_BASE INTO CODDITTA==CODDITTA
|
|
INPUT CODDITTA F_CODDITTA
|
|
DISPLAY "Codice" CODDITTA
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_CODDITTA CODDITTA
|
|
OUTPUT F_RAGDITTA RAGSOC
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Manca la ditta"
|
|
END
|
|
|
|
STRING F_RAGDITTA 50
|
|
BEGIN
|
|
PROMPT 11 2 ""
|
|
USE LF_NDITTE KEY 2 SELECT LF_BASE->CODDITTA!=""
|
|
JOIN LF_BASE INTO CODDITTA==CODDITTA
|
|
INPUT RAGSOC F_RAGDITTA
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Codice" CODDITTA
|
|
OUTPUT F_CODDITTA CODDITTA
|
|
OUTPUT F_RAGDITTA RAGSOC
|
|
END
|
|
|
|
GROUPBOX DLG_NULL -1 4
|
|
BEGIN
|
|
PROMPT 1 4 "@bCausale da assegnare"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 2 5 "Codice"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 10 5 "Quadro"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 18 5 "Causale quadro"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 34 5 "Descrizione"
|
|
END
|
|
|
|
STRING F_CODCAUS 2
|
|
BEGIN
|
|
PROMPT 2 6 ""
|
|
USE %CA7 SELECT (I0!="1015") && (((S1="D")&&((S2="L")||(S2=""))) || ((S1="DB")&&((S7="A")||(S7="T")||(S7=""))&&((B4!="X")||(R2="")||(R1="")||(R2="0.00")||(R1="0.00"))) || (S1="E") || (S1="E1"))
|
|
INPUT CODTAB F_CODCAUS
|
|
DISPLAY "Cod." CODTAB
|
|
DISPLAY "Quadro" S1
|
|
DISPLAY "Descrizione @35" S0
|
|
DISPLAY "Cod.trib." I0
|
|
DISPLAY "Art.bil." I3
|
|
DISPLAY "C.C" S6
|
|
DISPLAY "C.D" S2
|
|
DISPLAY "C.Db" S7
|
|
DISPLAY "C.D1" S3
|
|
DISPLAY "C.E" S8
|
|
DISPLAY "C.E1" S9
|
|
DISPLAY "T.S." S4
|
|
OUTPUT F_CODCAUS CODTAB
|
|
OUTPUT F_CODQUA S1
|
|
OUTPUT F_TABCAUSQUAD S2
|
|
OUTPUT F_TABCAUSQUADB S7
|
|
OUTPUT F_TABCAUSQUAE S8
|
|
OUTPUT F_TABCAUSQUAE1 S9
|
|
OUTPUT F_DESCRCAUS S0
|
|
FLAGS "Z"
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Manca la causale"
|
|
ADD RUN 773mod -3 %CA7
|
|
END
|
|
|
|
STRING F_CODQUA 2
|
|
BEGIN
|
|
PROMPT 12 6 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CAUSQUA 1
|
|
BEGIN
|
|
PROMPT 23 6 ""
|
|
SHEET "Codice|Descrizione@60"
|
|
INPUT F_CAUSQUA
|
|
ITEM " |Niente"
|
|
OUTPUT F_CAUSQUA
|
|
END
|
|
|
|
STRING F_DESCRCAUS 60 35
|
|
BEGIN
|
|
PROMPT 34 6 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -22 -1 "~Conferma"
|
|
END
|
|
|
|
// MAI VISUALIZZATO
|
|
STRING F_TABCAUSQUAD 1
|
|
BEGIN
|
|
PROMPT 80 80 ""
|
|
FLAGS "H"
|
|
END
|
|
|
|
// MAI VISUALIZZATO
|
|
STRING F_TABCAUSQUADB 1
|
|
BEGIN
|
|
PROMPT 80 80 ""
|
|
FLAGS "H"
|
|
END
|
|
|
|
// MAI VISUALIZZATO
|
|
STRING F_TABCAUSQUAE 1
|
|
BEGIN
|
|
PROMPT 80 80 ""
|
|
FLAGS "H"
|
|
END
|
|
|
|
// MAI VISUALIZZATO
|
|
STRING F_TABCAUSQUAE1 1
|
|
BEGIN
|
|
PROMPT 80 80 ""
|
|
FLAGS "H"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|