9b5f9351b3
Files correlati : Ricompilazione Demo : [ ] Commento : Rivisto programma ripartizione cespiti (no obbligatorietà date utilizzo e percentuali) Aggiunto il programma di stampa dei cespiti in analitica (prima stesura) git-svn-id: svn://10.65.10.50/trunk@20570 c028cbd2-c16b-5b4b-a496-9718f37d4682
165 lines
2.8 KiB
Plaintext
Executable File
165 lines
2.8 KiB
Plaintext
Executable File
#include "ce4500a.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
#include <aprintbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Cespiti in analitica" 0 2 0 0
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
END
|
|
|
|
NUMBER F_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 2 2 "Ditta "
|
|
FLAGS "DF"
|
|
USE LF_NDITTE
|
|
INPUT CODDITTA F_CODDITTA
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_RAGSOC 55
|
|
BEGIN
|
|
PROMPT 20 2 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_ESERCIZIO 4
|
|
BEGIN
|
|
PROMPT 2 3 "Esercizio "
|
|
FLAGS "Z"
|
|
USE CCE
|
|
JOIN ESC ALIAS 105 INTO CODTAB==CODTAB
|
|
INPUT CODTAB F_ESERCIZIO
|
|
DISPLAY "Codice esercizio" CODTAB
|
|
DISPLAY "Data inizio@15" 105@->D0
|
|
DISPLAY "Data fine@15" 105@->D1
|
|
OUTPUT F_ESERCIZIO CODTAB
|
|
OUTPUT F_DATAINIZIO 105@->D0
|
|
OUTPUT F_DATAFINE 105@->D1
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
DATE F_DATAINIZIO
|
|
BEGIN
|
|
PROMPT 20 3 "Data inizio "
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE F_DATAFINE
|
|
BEGIN
|
|
PROMPT 45 3 "Data fine "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_IDCESPITE 10
|
|
BEGIN
|
|
PROMPT 2 5 "Cespite "
|
|
FLAGS "UZ"
|
|
USE LF_SALCECMS KEY 2 SELECT NRIGA==1
|
|
JOIN LF_CESPI INTO IDCESPITE==IDCESPITE
|
|
INPUT CODES F_ESERCIZIO SELECT
|
|
INPUT IDCESPITE F_IDCESPITE
|
|
DISPLAY "Esercizio" CODES
|
|
DISPLAY "Codice@10" IDCESPITE
|
|
DISPLAY "Descrizione@50" LF_CESPI->DESC
|
|
DISPLAY "Cat." LF_CESPI->CODCAT
|
|
DISPLAY "Data Acq.@10" LF_CESPI->DTCOMP
|
|
DISPLAY "Data Ali.@10" LF_CESPI->DTALIEN
|
|
OUTPUT F_ESERCIZIO CODES
|
|
OUTPUT F_IDCESPITE IDCESPITE
|
|
OUTPUT F_DESC LF_CESPI->DESC
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
STRING F_DESC 60 50
|
|
BEGIN
|
|
PROMPT 25 5 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
RADIOBUTTON F_SITUAZIONE 78
|
|
BEGIN
|
|
PROMPT 1 6 "@bSituazione"
|
|
ITEM "1|Fiscale"
|
|
ITEM "2|Civilistica"
|
|
ITEM "3|Gestionale"
|
|
FLAGS "Z"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 5
|
|
BEGIN
|
|
PROMPT 1 9 "@bAnalitica"
|
|
END
|
|
|
|
STRING F_CODCMS 20
|
|
BEGIN
|
|
PROMPT 2 10 "Commessa "
|
|
USE LF_COMMESSE
|
|
INPUT CODCMS F_CODCMS
|
|
DISPLAY "Codice@20" CODCMS
|
|
DISPLAY "Descrizione@50" DESCRIZ
|
|
OUTPUT F_CODCMS CODCMS
|
|
OUTPUT F_DESCMS DESCRIZ
|
|
CHECKTYPE NORMAL
|
|
|
|
END
|
|
|
|
STRING F_DESCMS 50 39
|
|
BEGIN
|
|
PROMPT 36 10 ""
|
|
USE LF_COMMESSE KEY 2
|
|
INPUT DESCRIZ F_DESCMS
|
|
DISPLAY "Descrizione@50" DESCRIZ
|
|
DISPLAY "Codice@20" CODCMS
|
|
COPY OUTPUT F_CODCMS
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_CODFASE 10
|
|
BEGIN
|
|
PROMPT 2 11 "Fase "
|
|
USE LF_FASI
|
|
INPUT CODCMSFAS F_CODCMS SELECT
|
|
INPUT CODFASE F_CODFASE
|
|
DISPLAY "Fase@10" CODFASE
|
|
DISPLAY "Descrizione@50" DESCRIZ
|
|
OUTPUT F_CODFASE CODFASE
|
|
OUTPUT F_DESFASE DESCRIZ
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESFASE 50 39
|
|
BEGIN
|
|
PROMPT 36 11 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CODCDC 20
|
|
BEGIN
|
|
PROMPT 2 12 "C. costo "
|
|
USE LF_CDC
|
|
INPUT CODCOSTO F_CODCDC
|
|
DISPLAY "Codice@20" CODCOSTO
|
|
DISPLAY "Descrizione@50" DESCRIZ
|
|
OUTPUT F_CODCDC CODCOSTO
|
|
OUTPUT F_DESCDC DESCRIZ
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_DESCDC 50 39
|
|
BEGIN
|
|
PROMPT 36 12 ""
|
|
USE LF_CDC KEY 2
|
|
INPUT DESCRIZ F_DESCDC
|
|
DISPLAY "Descrizione@50" DESCRIZ
|
|
DISPLAY "Codice@20" CODCOSTO
|
|
COPY OUTPUT F_CODCDC
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK |