ac3bc208e9
Files correlati : ce0.exe ce0a00.rep ce3.exe ce4.exe ce3900.msk ce3900b.rep ce4100a.msk ce4100b.mskce ce4500a.rep cemenu.men MODIFICHE CRPA Coefficiente di durata nella tabella esercizi cespiti Ordinamento per cespite nella stampa inventario sintetico Stampa etichette cespiti Copia della ripartizione cespiti da un esercizio a un altro Stampa del costo storico e del residuo nella stampa cespiti per analitica git-svn-id: svn://10.65.10.50/branches/R_10_00@23998 c028cbd2-c16b-5b4b-a496-9718f37d4682
93 lines
1.5 KiB
Plaintext
93 lines
1.5 KiB
Plaintext
#include "ce4100b.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
|
|
#include <stdbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Duplicazione cespiti" 0 2 0 0
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 0 1 "@bDitta"
|
|
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_ESERCIZIO1 4
|
|
BEGIN
|
|
PROMPT 1 6 "Da Esercizio "
|
|
FLAGS "Z"
|
|
USE CCE
|
|
JOIN ESC ALIAS 104 INTO CODTAB==CODTAB
|
|
INPUT CODTAB F_ESERCIZIO1
|
|
DISPLAY "Codice esercizio" CODTAB
|
|
DISPLAY "Inizio esercizio" 104@->D0
|
|
DISPLAY "Fine esercizio" 104@->D1
|
|
OUTPUT F_ESERCIZIO1 CODTAB
|
|
OUTPUT F_INIZIO_ES1 104@->D0
|
|
OUTPUT F_FINE_ES1 104@->D1
|
|
CHECKTYPE REQUIRED
|
|
FIELD CODES
|
|
KEY 1
|
|
END
|
|
|
|
DATE F_INIZIO_ES1
|
|
BEGIN
|
|
PROMPT 26 6 "Inizio "
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE F_FINE_ES1
|
|
BEGIN
|
|
PROMPT 50 6 "Fine "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_ESERCIZIO2 4
|
|
BEGIN
|
|
PROMPT 1 8 " A Esercizio "
|
|
FLAGS "AZ"
|
|
USE CCE
|
|
JOIN ESC ALIAS 104 INTO CODTAB==CODTAB
|
|
INPUT CODTAB F_ESERCIZIO2
|
|
DISPLAY "Codice esercizio" CODTAB
|
|
DISPLAY "Inizio esercizio" 104@->D0
|
|
DISPLAY "Fine esercizio" 104@->D1
|
|
OUTPUT F_ESERCIZIO2 CODTAB
|
|
OUTPUT F_INIZIO_ES2 104@->D0
|
|
OUTPUT F_FINE_ES2 104@->D1
|
|
CHECKTYPE REQUIRED
|
|
FIELD CODES
|
|
KEY 1
|
|
END
|
|
|
|
DATE F_INIZIO_ES2
|
|
BEGIN
|
|
PROMPT 26 8 "Inizio "
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE F_FINE_ES2
|
|
BEGIN
|
|
PROMPT 50 8 "Fine "
|
|
FLAGS "D"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK |