e6184da13f
Files correlati :ce4 & friends Ricompilazione Demo : [ ] Commento :programma CRPA; step 2 git-svn-id: svn://10.65.10.50/trunk@11633 c028cbd2-c16b-5b4b-a496-9718f37d4682
198 lines
3.0 KiB
Plaintext
Executable File
198 lines
3.0 KiB
Plaintext
Executable File
#include "ce4200a.h"
|
|
|
|
TOOLBAR "" 0 -3 0 2
|
|
|
|
BUTTON DLG_ELABORA 10 2
|
|
BEGIN
|
|
PROMPT -13 -11 "~Elabora"
|
|
PICTURE BMP_ELABORA
|
|
MESSAGE EXIT,K_ENTER
|
|
END
|
|
|
|
BUTTON DLG_PRINT 10 2
|
|
BEGIN
|
|
PROMPT -23 -11 "~Stampa"
|
|
PICTURE BMP_PRINT
|
|
MESSAGE EXIT,K_ESC
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -33 -11 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Calcolo saldi per commessa" -1 -1 0 -3
|
|
|
|
LIST F_NRIGA 3
|
|
BEGIN
|
|
PROMPT 1 100 ""
|
|
FLAGS "D"
|
|
ITEM "1|1"
|
|
FIELD NRIGA
|
|
KEY 1
|
|
END
|
|
|
|
NUMBER F_DITTA 5
|
|
BEGIN
|
|
PROMPT 1 2 "Ditta "
|
|
FLAGS "DF"
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 26 2 ""
|
|
USE LF_NDITTE
|
|
INPUT CODDITTA F_DITTA
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
CHECKTYPE NORMAL
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_ESERCIZIO 4
|
|
BEGIN
|
|
PROMPT 1 3 "Esercizio "
|
|
FLAGS "AZ"
|
|
USE CCE
|
|
JOIN ESC ALIAS 104 INTO CODTAB==CODTAB
|
|
INPUT CODTAB F_ESERCIZIO
|
|
DISPLAY "Codice esercizio" CODTAB
|
|
DISPLAY "Inizio esercizio" 104@->D0
|
|
DISPLAY "Fine esercizio" 104@->D1
|
|
OUTPUT F_ESERCIZIO CODTAB
|
|
OUTPUT F_INIZIO_ES 104@->D0
|
|
OUTPUT F_FINE_ES 104@->D1
|
|
CHECKTYPE REQUIRED
|
|
FIELD CODES
|
|
END
|
|
|
|
DATE F_INIZIO_ES
|
|
BEGIN
|
|
PROMPT 26 3 "Inizio "
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE F_FINE_ES
|
|
BEGIN
|
|
PROMPT 50 3 "Fine "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_DA_IDCESPITE 10
|
|
BEGIN
|
|
PROMPT 1 5 "Dal cespite "
|
|
FLAGS "UZ"
|
|
USE LF_SALCECMS SELECT NRIGA==1
|
|
JOIN LF_CESPI INTO IDCESPITE==IDCESPITE
|
|
INPUT IDCESPITE F_DA_IDCESPITE
|
|
INPUT CODES F_ESERCIZIO
|
|
INPUT NRIGA F_NRIGA
|
|
DISPLAY "Codice@10" IDCESPITE
|
|
DISPLAY "Descrizione@50" LF_CESPI->DESC
|
|
DISPLAY "Cat." LF_CESPI->CODCAT
|
|
DISPLAY "Impianto@10" LF_CESPI->CODIMP
|
|
DISPLAY "Data Acq.@10" LF_CESPI->DTCOMP
|
|
DISPLAY "Data Ali.@10" LF_CESPI->DTALIEN
|
|
OUTPUT F_DA_IDCESPITE IDCESPITE
|
|
OUTPUT F_DA_DESC LF_CESPI->DESC
|
|
CHECKTYPE SEARCH
|
|
ADD RUN "ce0 -4"
|
|
END
|
|
|
|
STRING F_DA_DESC 60 50
|
|
BEGIN
|
|
PROMPT 26 5 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_A_IDCESPITE 10
|
|
BEGIN
|
|
PROMPT 1 6 "Al cespite "
|
|
FLAGS "UZ"
|
|
COPY USE F_DA_IDCESPITE
|
|
INPUT IDCESPITE F_A_IDCESPITE
|
|
INPUT CODES F_ESERCIZIO
|
|
INPUT NRIGA F_NRIGA
|
|
COPY DISPLAY F_DA_IDCESPITE
|
|
OUTPUT F_A_IDCESPITE IDCESPITE
|
|
OUTPUT F_A_DESC LF_CESPI->DESC
|
|
CHECKTYPE SEARCH
|
|
ADD RUN "ce0 -4"
|
|
END
|
|
|
|
STRING F_A_DESC 60 50
|
|
BEGIN
|
|
PROMPT 26 6 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CODNUM 4
|
|
BEGIN
|
|
PROMPT 1 9 "Numerazione "
|
|
USE %NUM
|
|
INPUT CODTAB F_CODNUM
|
|
OUTPUT F_DESNUM S0
|
|
KEY 1 2
|
|
CHECKTYPE NORMAL
|
|
FLAGS "UD"
|
|
END
|
|
|
|
STRING F_DESNUM 50
|
|
BEGIN
|
|
PROMPT 24 9 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_TIPODOC 4
|
|
BEGIN
|
|
PROMPT 1 10 "Tipo "
|
|
USE %TIP
|
|
INPUT CODTAB F_TIPODOC
|
|
OUTPUT F_DESTIPODOC S0
|
|
CHECKTYPE NORMAL
|
|
FLAGS "UD"
|
|
END
|
|
|
|
STRING F_DESTIPODOC 50
|
|
BEGIN
|
|
PROMPT 24 10 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_TIPORIGA 4
|
|
BEGIN
|
|
PROMPT 1 11 "Tipo riga "
|
|
USE %TRI
|
|
INPUT CODTAB F_TIPORIGA
|
|
OUTPUT F_DESTIPORIGA S0
|
|
CHECKTYPE NORMAL
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_DESTIPORIGA 50
|
|
BEGIN
|
|
PROMPT 24 11 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CODIVA 4
|
|
BEGIN
|
|
PROMPT 1 12 "Codice IVA "
|
|
USE %IVA
|
|
INPUT CODTAB F_CODIVA
|
|
OUTPUT F_DESIVA S0
|
|
CHECTYPE NORMAL
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_DESIVA 50
|
|
BEGIN
|
|
PROMPT 24 12 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|