2b2dd71239
Files correlati : ve0.exe ve5800a.h ve5800a.msk ve5800a.uml ve5800.cpp velib04.cpp Commento : Aggiunto Raggruppamento righe documenti con medesima descrizione. Interno :
102 lines
1.7 KiB
Plaintext
102 lines
1.7 KiB
Plaintext
#include "ve5800a.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
#include <stdbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Copia Documenti" 0 0 0 0
|
|
|
|
GROUPBOX DLG_NULL 78 3
|
|
BEGIN
|
|
PROMPT 1 1 "@bDitta"
|
|
END
|
|
|
|
NUMBER F_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 2 2 "Codice "
|
|
FLAGS "FD"
|
|
USE LF_NDITTE
|
|
CHECKTYPE NORMAL
|
|
INPUT CODDITTA F_CODDITTA
|
|
OUTPUT F_RAGSOCDITTA RAGSOC
|
|
END
|
|
|
|
STRING F_RAGSOCDITTA 50
|
|
BEGIN
|
|
PROMPT 17 2 "Ragione "
|
|
FLAGS "D"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 76 5
|
|
BEGIN
|
|
PROMPT 1 4 "@bDocumenti sorgente"
|
|
END
|
|
|
|
STRING F_CODICE_ELAB 8
|
|
BEGIN
|
|
PROMPT 2 5 "Codice "
|
|
FLAG "U"
|
|
USE %ELD SELECT I0 == 8
|
|
INPUT CODTAB F_CODICE_ELAB
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@55" S0
|
|
OUTPUT F_CODICE_ELAB CODTAB
|
|
OUTPUT F_DESC_ELAB S0
|
|
CHECKTYPE REQUIRED
|
|
WARNING "E' necessario specificare il codice elaborazione"
|
|
END
|
|
|
|
STRING F_DESC_ELAB 50
|
|
BEGIN
|
|
PROMPT 20 5 ""
|
|
USE %ELD KEY 2 SELECT I0 == 8
|
|
INPUT S0 F_DESC_ELAB
|
|
DISPLAY "Descrizione@55" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_CODICE_ELAB
|
|
END
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 2 6 "Anno "
|
|
FLAGS "AU"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER F_FRNDOC 6
|
|
BEGIN
|
|
PROMPT 2 7 "Da numero "
|
|
USE LF_DOC
|
|
JOIN LF_CLIFO INTO TIPOCF==TIPOCF CODCF==CODCF
|
|
INPUT ANNO F_ANNO SELECT
|
|
INPUT CODNUM "F01"
|
|
INPUT PROVV "D"
|
|
INPUT NDOC F_FRNDOC
|
|
DISPLAY "Num." CODNUM
|
|
DISPLAY "Anno" ANNO
|
|
DISPLAY "Provv" PROVV
|
|
DISPLAY "Tipo" TIPODOC
|
|
DISPLAY "Numero@7" NDOC
|
|
DISPLAY "Data@10" DATADOC
|
|
DISPLAY "C/F" TIPOCF
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
|
|
OUTPUT F_FRNDOC NDOC
|
|
END
|
|
|
|
NUMBER F_TONDOC 6
|
|
BEGIN
|
|
PROMPT 26 7 "A numero "
|
|
COPY USE F_FRNDOC
|
|
INPUT ANNO F_ANNO SELECT
|
|
INPUT CODNUM "F01"
|
|
INPUT PROVV "D"
|
|
INPUT NDOC F_TONDOC
|
|
COPY DISPLAY F_FRNDOC
|
|
OUTPUT F_TONDOC NDOC
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|