ceea912570
Files correlati : Ricompilazione Demo : [ ] Commento Bug 0001407: 001476 - cliente Sailog patch 347 - nuovo documento di vendita Se inserisco un documento di tipo INT (vedi dati già in vostro possesso) sono obbligata ad inserire anche lo stato. Prima del caricamento delle patch era necessario inserire solo il numero di documento. Bug 0001405: 001471 - documenti di vendita Se richiamo un documento di vendita selezionandolo dalla ricerca per ragione sociale, non mi vengono agganciati i dati della fattura stessa. git-svn-id: svn://10.65.10.50/trunk@19119 c028cbd2-c16b-5b4b-a496-9718f37d4682
202 lines
3.6 KiB
Plaintext
Executable File
202 lines
3.6 KiB
Plaintext
Executable File
#include "veuml.h"
|
|
|
|
TOOLBAR "Toolbar" 0 0 0 2
|
|
|
|
#include <relapbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Estremi del documento" 0 0 0 0
|
|
|
|
GROUPBOX DLG_NULL 78 3
|
|
BEGIN
|
|
PROMPT 1 1 "@bDitta"
|
|
END
|
|
|
|
NUMBER F_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 3 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 78 7
|
|
BEGIN
|
|
PROMPT 1 4 "Estremi del documento"
|
|
END
|
|
|
|
LISTBOX F_PROVV 14
|
|
BEGIN
|
|
FIELD PROVV
|
|
PROMPT 46 7 "Tipo "
|
|
ITEM "D|Definitiva "
|
|
ITEM "P|Provvisoria"
|
|
KEY 1 2
|
|
FLAGS "DPG"
|
|
END
|
|
|
|
STRING F_CODNUM 4
|
|
BEGIN
|
|
PROMPT 2 5 "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 5 ""
|
|
HELP "Descrizione numerazione"
|
|
USE %NUM KEY 2
|
|
INPUT S0 F_DESNUM
|
|
DISPLAY "Descrizione@60" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_CODNUM
|
|
END
|
|
|
|
STRING F_TIPODOC 4
|
|
BEGIN
|
|
PROMPT 2 6 "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 6 ""
|
|
HELP "Descrizione tipo documento"
|
|
USE %TIP KEY 2
|
|
INPUT S0 F_DESTIPODOC
|
|
DISPLAY "Descrizione@60" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_TIPODOC
|
|
END
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 2 7 "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 7 "Numero "
|
|
FIELD NDOC
|
|
USE LF_DOC SELECT (#F_STATO=="")||(STATO==#F_STATO)
|
|
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_TIPODOC TIPODOC
|
|
OUTPUT F_PROVV PROVV
|
|
CHECKTYPE REQUIRED
|
|
KEY 1 2
|
|
FLAG "R"
|
|
END
|
|
|
|
STRING F_STATO 1
|
|
BEGIN
|
|
PROMPT 69 7 "Stato "
|
|
USE %STD
|
|
INPUT CODTAB F_STATO
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_STATO CODTAB
|
|
FLAG "U"
|
|
END
|
|
|
|
LIST F_TIPOCF 1 12
|
|
BEGIN
|
|
PROMPT 2 8 "Tipo "
|
|
ITEM "C|Cliente"
|
|
ITEM "F|Fornitore"
|
|
KEY 2
|
|
END
|
|
|
|
NUMBER F_CODCF 6
|
|
BEGIN
|
|
PROMPT 24 8 "Codice "
|
|
USE LF_DOC KEY 2 SELECT (CODNUM==#F_CODNUM) && (PROVV==#F_PROVV) && (ANNO==#F_ANNO) && ((#F_STATO=="")||(STATO==#F_STATO))
|
|
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 "Codice" CODCF
|
|
DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
|
|
DISPLAY "Partita IVA@12" LF_CLIFO->PAIV
|
|
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 "Valuta" CODVAL
|
|
DISPLAY "Totale\ndocumento@18V" G1:TOTDOC
|
|
DISPLAY "Stato" STATO
|
|
COPY OUTPUT F_NDOC
|
|
OUTPUT F_CODCF CODCF
|
|
CHECKTYPE NORMAL
|
|
KEY 2
|
|
END
|
|
|
|
STRING F_NUMDOCRIF 7
|
|
BEGIN
|
|
PROMPT 46 8 "Riferimento "
|
|
FLAGS "B"
|
|
END
|
|
|
|
STRING F_RAGSOCSEARCH 50
|
|
BEGIN
|
|
PROMPT 2 9 "Ragione Sociale "
|
|
FLAGS "B"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|