d5fa377b90
Files correlati : ve0.exe ve5.exe ve5400.msk Ricompilazione Demo : [ ] Commento : AO20045 Se specifico una Numerazione diversa dallo standard (quindi inserita nuova) una volta lanciata l'estrazione/archiviazione non fa nulla. ATTENZIONE: fatte varie prove con numerazioni nuove e vecchie ed il problema non sussiste. E' possibile archiviare, cancellare e ripristinare i documenti. Eliminata comunque la possibilita' di premere "Nuovo" per la numerazione. AO20053 Se lancio una fatturazione con ordinamento per Zona, se alcune bolle non hanno specificata nessuna Zona vengono fatturate anche loro; idem per l'Agente. ATTENZIONE: Espresso in questi termini il problema non sussiste. Trattasi di ORDINAMENTO per Zona, non di FILTRO/SELEZIONE per Zona. Ordinare per zona non significa escludere i documenti senza Zona. Verificare il comportamento anche a 16 bit ed eventualemte richiedere nuova implementazione. git-svn-id: svn://10.65.10.50/trunk@11212 c028cbd2-c16b-5b4b-a496-9718f37d4682
154 lines
2.3 KiB
Plaintext
Executable File
154 lines
2.3 KiB
Plaintext
Executable File
#include "ve5400.h"
|
|
|
|
TOOLBAR "Bottoni" 0 19 0 0
|
|
|
|
BUTTON F_ARCHIVIA 12 2
|
|
BEGIN
|
|
PROMPT -13 -11 "~Invia"
|
|
MESSAGE EXIT,K_ENTER
|
|
END
|
|
|
|
BUTTON F_RIPRISTINA 12 2
|
|
BEGIN
|
|
PROMPT -23 -11 "~Ricevi"
|
|
MESSAGE EXIT,K_DEL
|
|
END
|
|
|
|
BUTTON DLG_QUIT 12 2
|
|
BEGIN
|
|
PROMPT -33 -11 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Invio e Ricezione Documenti" -1 -1 60 10
|
|
|
|
GROUPBOX DLG_NULL 76 6
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
END
|
|
|
|
NUMBER F_FROM_ANNO 4
|
|
BEGIN
|
|
PROMPT 2 2 "Anno "
|
|
FLAGS "AU"
|
|
CHECKTYPE REQUIRED
|
|
FIELD ANNO
|
|
END
|
|
|
|
LIST F_FROM_PROVV 1 12
|
|
BEGIN
|
|
PROMPT 60 2 ""
|
|
ITEM "D|Definitivi"
|
|
ITEM "P|Provvisori"
|
|
FIELD PROVV
|
|
END
|
|
|
|
STRING F_FROM_NUM 4
|
|
BEGIN
|
|
PROMPT 2 3 "Numerazione "
|
|
USE %NUM
|
|
FLAGS "U"
|
|
INPUT CODTAB F_FROM_NUM
|
|
DISPLAY "Codice Num." CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_FROM_NUM CODTAB
|
|
OUTPUT F_FROM_DES S0
|
|
CHECKTYPE REQUIRED
|
|
ADD NONE
|
|
FIELD CODNUM
|
|
END
|
|
|
|
STRING F_FROM_DES 50
|
|
BEGIN
|
|
PROMPT 22 3 ""
|
|
USE %NUM KEY 2
|
|
INPUT S0 F_FROM_DES
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice Num." CODTAB
|
|
COPY OUTPUT F_FROM_NUM
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER F_NUMFR 6
|
|
BEGIN
|
|
PROMPT 2 4 "Da numero "
|
|
USE LF_DOC
|
|
JOIN LF_CLIFO INTO TIPOCF==TIPOCF CODCF==CODCF
|
|
INPUT ANNO F_FROM_ANNO SELECT
|
|
INPUT CODNUM F_FROM_NUM SELECT
|
|
INPUT PROVV F_FROM_PROVV SELECT
|
|
INPUT NDOC F_NUMFR
|
|
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_NUMFR NDOC
|
|
END
|
|
|
|
NUMBER F_NUMTO 6
|
|
BEGIN
|
|
PROMPT 26 4 "A numero "
|
|
COPY USE F_NUMFR
|
|
INPUT ANNO F_FROM_ANNO SELECT
|
|
INPUT CODNUM F_FROM_NUM SELECT
|
|
INPUT PROVV F_FROM_PROVV SELECT
|
|
INPUT NDOC F_NUMTO
|
|
COPY DISPLAY F_NUMFR
|
|
OUTPUT F_NUMTO NDOC
|
|
END
|
|
|
|
|
|
LIST F_DRIVE 3
|
|
BEGIN
|
|
PROMPT 2 5 "Drive "
|
|
ITEM "A|A:"
|
|
ITEM "B|B:"
|
|
END
|
|
|
|
STRING F_DESCRFILE 43 43
|
|
BEGIN
|
|
PROMPT 18 5 "Descrizione "
|
|
GROUP 1
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Tipi" -1 -1 60 6
|
|
|
|
STRING F_TIPO_DOC 4
|
|
BEGIN
|
|
PROMPT 1 1 "Tipo "
|
|
USE %TIP
|
|
INPUT CODTAB F_TIPO_DOC
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPO_DOC CODTAB
|
|
OUTPUT F_TIPO_DES S0
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "DG"
|
|
END
|
|
|
|
BOOLEAN F_TIPO_SEL
|
|
BEGIN
|
|
PROMPT 40 1 "Selezionato"
|
|
END
|
|
|
|
STRING F_TIPO_DES 50
|
|
BEGIN
|
|
PROMPT 6 3 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|