6055e4ab1a
Files correlati : ve0.exe Ricompilazione Demo : [ ] Commento : AO20030 Se premo sulle frecce di riferimento record sul pulsante "Ricerca" apre sempre l'ultima registrazione presente ma dell'ultimo tipo documento inserito. Ad esempio se scelgo come tipo documento F01 e premo sulla freccia di puntamento all'ultimo record mi apre l'ultimo documento inserito per il tipo documento ORC. CM791064 Durante la fase di importazione fatture in CAMPO da altre procedure tramite il protocolo INI, fare in modo che se nelle righe del documento da importare viene riscontrato un articolo non esistente in anagrafica articoli, la procedura non si blocchi con la segnalazione di "Errore fatale" che obbliga a resettare il Pc , ma dare una segnalazione tipo "Manca codice articolo in anagrafica" e dare la possibilità all'utente di inserirlo direttamente dalla fase di importazione nella relativa pagina del documento ricevuto in quel momento. git-svn-id: svn://10.65.10.50/trunk@11171 c028cbd2-c16b-5b4b-a496-9718f37d4682
165 lines
3.4 KiB
Plaintext
Executable File
165 lines
3.4 KiB
Plaintext
Executable File
#include "veuml.h"
|
|
|
|
TOOLBAR "" 0 20 60 2
|
|
#include "toolbar.h"
|
|
ENDPAGE
|
|
|
|
PAGE "Estremi del documento" 1 1 60 14
|
|
|
|
GROUPBOX DLG_NULL 78 6
|
|
BEGIN
|
|
PROMPT 1 0 "Estremi del documento"
|
|
END
|
|
|
|
LISTBOX F_PROVV 14
|
|
BEGIN
|
|
FIELD PROVV
|
|
PROMPT 46 3 "Tipo "
|
|
ITEM "D|Definitiva "
|
|
ITEM "P|Provvisoria"
|
|
KEY 1 2
|
|
FLAGS "P"
|
|
END
|
|
|
|
STRING F_CODNUM 4
|
|
BEGIN
|
|
PROMPT 2 1 "Numerazione "
|
|
FIELD CODNUM
|
|
HELP "Codice numerazione"
|
|
USE %NUM
|
|
INPUT CODTAB F_CODNUM
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODNUM CODTAB
|
|
OUTPUT F_DESNUM S0
|
|
CHECKTYPE FORCED
|
|
FLAG "UPA"
|
|
WARNING "Numerazione assente"
|
|
KEY 1 2
|
|
END
|
|
|
|
STRING F_DESNUM 50
|
|
BEGIN
|
|
PROMPT 24 1 ""
|
|
HELP "Descrizione numerazione"
|
|
USE %NUM KEY 2
|
|
INPUT S0 F_DESNUM
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_CODNUM
|
|
END
|
|
|
|
STRING F_TIPODOC 4
|
|
BEGIN
|
|
PROMPT 2 2 "Tipo "
|
|
FIELD TIPODOC
|
|
HELP "Codice tipo documento"
|
|
USE %TIP
|
|
INPUT CODTAB F_TIPODOC
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_TIPODOC CODTAB
|
|
OUTPUT F_DESTIPODOC S0
|
|
CHECKTYPE FORCED
|
|
FLAG "UP"
|
|
END
|
|
|
|
STRING F_DESTIPODOC 50
|
|
BEGIN
|
|
PROMPT 24 2 ""
|
|
HELP "Descrizione tipo documento"
|
|
USE %TIP KEY 2
|
|
INPUT S0 F_DESTIPODOC
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_TIPODOC
|
|
END
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 2 3 "Esercizio "
|
|
FIELD ANNO
|
|
CHECKTYPE REQUIRED
|
|
NUM_EXPR #F_ANNO>0
|
|
FLAG "AP"
|
|
KEY 1 2
|
|
WARNING "Inserire un anno valido"
|
|
END
|
|
|
|
NUMBER F_NDOC 6
|
|
BEGIN
|
|
PROMPT 24 3 "Numero "
|
|
FIELD NDOC
|
|
USE LF_DOC
|
|
JOIN LF_CLIFO TO LF_DOC INTO TIPOCF==TIPOCF CODCF==CODCF
|
|
INPUT PROVV F_PROVV SELECT
|
|
INPUT ANNO F_ANNO SELECT
|
|
INPUT CODNUM F_CODNUM SELECT
|
|
INPUT NDOC F_NDOC
|
|
DISPLAY "Num." CODNUM
|
|
DISPLAY "Anno" ANNO
|
|
DISPLAY "Provv" PROVV
|
|
DISPLAY "Tipo" TIPODOC
|
|
DISPLAY "N.Doc. " NDOC
|
|
DISPLAY "Stato@R" STATO
|
|
DISPLAY "Data\ndocumento" DATADOC
|
|
DISPLAY "C/F" TIPOCF
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
|
|
OUTPUT F_NDOC NDOC
|
|
OUTPUT F_STATO STATO
|
|
OUTPUT F_TIPODOC TIPODOC
|
|
CHECKTYPE REQUIRED
|
|
KEY 1 2
|
|
FLAG "R"
|
|
END
|
|
|
|
STRING F_STATO 1
|
|
BEGIN
|
|
PROMPT 69 3 "Stato "
|
|
FIELD STATO
|
|
FLAG "D"
|
|
END
|
|
|
|
LIST F_TIPOCF 1 12
|
|
BEGIN
|
|
PROMPT 2 4 "Tipo "
|
|
ITEM "C|Cliente"
|
|
ITEM "F|Fornitore"
|
|
KEY 2
|
|
END
|
|
|
|
NUMBER F_CODCF 6
|
|
BEGIN
|
|
PROMPT 24 4 "Codice "
|
|
USE LF_DOC KEY 2 SELECT CODNUM==#F_CODNUM
|
|
JOIN LF_CLIFO INTO TIPOCF==TIPOCF CODCF==CODCF
|
|
INPUT TIPOCF F_TIPOCF SELECT
|
|
INPUT CODCF F_CODCF
|
|
INPUT PROVV F_PROVV
|
|
INPUT ANNO F_ANNO
|
|
DISPLAY "C/F" TIPOCF
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Num." CODNUM
|
|
DISPLAY "Anno" ANNO
|
|
DISPLAY "Provv" PROVV
|
|
DISPLAY "Tipo" TIPODOC
|
|
DISPLAY "N.Doc. " NDOC
|
|
DISPLAY "Data\ndocumento" DATADOC
|
|
DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
|
|
COPY OUTPUT F_NDOC
|
|
OUTPUT F_CODCF CODCF
|
|
CHECKTYPE NORMAL
|
|
KEY 2
|
|
END
|
|
|
|
STRING F_NUMDOCRIF 7
|
|
BEGIN
|
|
PROMPT 46 4 "Riferimento "
|
|
FLAGS "B"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|