Patch level :2.0 nopatch
Files correlati : Ricompilazione Demo : [ ] Commento :aggiunti files stampa entrate fornitori (da 1.7) git-svn-id: svn://10.65.10.50/trunk@11303 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
22f978841d
commit
7df1190f34
16
ve/ve7300.h
Executable file
16
ve/ve7300.h
Executable file
@ -0,0 +1,16 @@
|
||||
// campi form Riepilogo entrate fornitori ve7300a.frm
|
||||
#define FF_CODART 1
|
||||
#define FF_DESCRART 2
|
||||
#define FF_CODFORN 3
|
||||
#define FF_RAGSOC 4
|
||||
#define FF_NUMORD 5
|
||||
#define FF_DATAORD 6
|
||||
#define FF_COSTO 7
|
||||
#define FF_QTA 8
|
||||
#define FF_DATACONS 9
|
||||
#define FF_DATAENTR 10
|
||||
#define FF_NUMENTR 11
|
||||
#define FF_RITARDO 12
|
||||
#define FF_DOCFORN 13
|
||||
#define FF_DATAFORN 14
|
||||
|
245
ve/ve7300a.frm
Executable file
245
ve/ve7300a.frm
Executable file
@ -0,0 +1,245 @@
|
||||
#include "ve7300.h"
|
||||
//____________________RELAZIONE_____________________________//
|
||||
USE LF_RIGHEDOC KEY 3 //BY CODARTMAG CODCF DATADOC
|
||||
JOIN LF_DOC INTO PROVV==PROVV ANNO==ANNO CODNUM==CODNUM NDOC==NDOC
|
||||
JOIN LF_CLIFO TO LF_DOC INTO TIPOCF==TIPOCF CODCF==CODCF
|
||||
JOIN LF_ANAMAG INTO CODART==CODARTMAG
|
||||
|
||||
END
|
||||
|
||||
//______________FORM____________________//
|
||||
|
||||
GENERAL
|
||||
BEGIN
|
||||
// OFFSET 0 1
|
||||
// FONT "Courier New"
|
||||
// SIZE 10
|
||||
END
|
||||
|
||||
SECTION GRAPHIC
|
||||
BEGIN
|
||||
END
|
||||
|
||||
//__________________TESTATA___________________________//
|
||||
|
||||
SECTION HEADER ODD 6
|
||||
|
||||
STRINGA -1
|
||||
BEGIN
|
||||
KEY "titolo"
|
||||
PROMPT 1 1 "@bSTAMPA DI RIEPILOGO ENTRATE FORNITORI"
|
||||
END
|
||||
|
||||
STRINGA -1
|
||||
BEGIN
|
||||
KEY "separatore"
|
||||
PROMPT 1 2 "@b____________________________________________________________________________________________________________________________________"
|
||||
END
|
||||
|
||||
STRINGA -1
|
||||
BEGIN
|
||||
KEY "codice articolo"
|
||||
PROMPT 1 3 "@bCodice articolo"
|
||||
END
|
||||
|
||||
STRINGA -1
|
||||
BEGIN
|
||||
KEY "descrizione articolo"
|
||||
PROMPT 25 3 "@bDescrizione articolo"
|
||||
END
|
||||
|
||||
STRINGA -1
|
||||
BEGIN
|
||||
KEY "codice fornitore"
|
||||
PROMPT 5 4 "@bCod. forn."
|
||||
END
|
||||
|
||||
STRINGA -1
|
||||
BEGIN
|
||||
KEY "ragione sociale fornitore"
|
||||
PROMPT 29 4 "@bRagione sociale"
|
||||
END
|
||||
|
||||
STRINGA -1
|
||||
BEGIN
|
||||
KEY "data entrata"
|
||||
PROMPT 10 5 "@bData entr."
|
||||
END
|
||||
|
||||
STRINGA -1
|
||||
BEGIN
|
||||
KEY "numero entrata"
|
||||
PROMPT 23 5 "@bN.entr."
|
||||
END
|
||||
|
||||
STRINGA -1
|
||||
BEGIN
|
||||
KEY "costo"
|
||||
PROMPT 39 5 "@bCosto"
|
||||
END
|
||||
|
||||
STRINGA -1
|
||||
BEGIN
|
||||
KEY "quantita"
|
||||
PROMPT 50 5 "@bQta"
|
||||
END
|
||||
|
||||
STRINGA -1
|
||||
BEGIN
|
||||
KEY "data consegna"
|
||||
PROMPT 57 5 "@bData cons."
|
||||
END
|
||||
|
||||
STRINGA -1
|
||||
BEGIN
|
||||
KEY "data ordine"
|
||||
PROMPT 69 5 "@bData ord."
|
||||
END
|
||||
|
||||
STRINGA -1
|
||||
BEGIN
|
||||
KEY "numero entrata"
|
||||
PROMPT 81 5 "@bN.ord."
|
||||
END
|
||||
|
||||
STRINGA -1
|
||||
BEGIN
|
||||
KEY "giorni di ritardo"
|
||||
PROMPT 89 5 "@bRitardo"
|
||||
END
|
||||
|
||||
STRINGA -1
|
||||
BEGIN
|
||||
KEY "documento fornitore"
|
||||
PROMPT 98 5 "@bDoc. forn."
|
||||
END
|
||||
|
||||
STRINGA -1
|
||||
BEGIN
|
||||
KEY "data docum. fornitore"
|
||||
PROMPT 110 5 "@bData forn."
|
||||
END
|
||||
|
||||
STRINGA -1
|
||||
BEGIN
|
||||
KEY "separatore"
|
||||
PROMPT 1 6 "@b____________________________________________________________________________________________________________________________________"
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
//____________BODY___________________//
|
||||
|
||||
SECTION BODY ODD 3
|
||||
|
||||
STRINGA FF_CODART 20
|
||||
BEGIN
|
||||
KEY "cod. art."
|
||||
PROMPT 1 1 ""
|
||||
FIELD CODARTMAG
|
||||
END
|
||||
|
||||
STRINGA FF_DESCRART 50
|
||||
BEGIN
|
||||
KEY "descr. art."
|
||||
PROMPT 25 1 ""
|
||||
FIELD LF_ANAMAG->DESCR
|
||||
END
|
||||
|
||||
//Raggruppamento per codice articolo (livello 1)
|
||||
SECTION ARTICOLI 2 1 1 FILE LF_RIGHEDOC GROUP CODARTMAG
|
||||
|
||||
STRINGA FF_CODFORN 6
|
||||
BEGIN
|
||||
KEY "cod. fornitore"
|
||||
PROMPT 10 1 ""
|
||||
FIELD LF_DOC->CODCF
|
||||
END
|
||||
|
||||
STRINGA FF_RAGSOC 50
|
||||
BEGIN
|
||||
KEY "rag.soc. fornitore"
|
||||
PROMPT 29 1 ""
|
||||
FIELD LF_CLIFO->RAGSOC
|
||||
END
|
||||
|
||||
//Raggruppamento per codice fornitore (livello 2)
|
||||
SECTION FORNITORI 2 1 1 FILE LF_RIGHEDOC GROUP LF_DOC->CODCF
|
||||
|
||||
DATA FF_DATAENTR 10
|
||||
BEGIN
|
||||
KEY "data entrata"
|
||||
PROMPT 10 1 ""
|
||||
FIELD LF_DOC->DATADOC
|
||||
END
|
||||
|
||||
NUMERO FF_NUMENTR 7
|
||||
BEGIN
|
||||
KEY "numero entrata"
|
||||
PROMPT 23 1 ""
|
||||
FIELD LF_DOC->NDOC
|
||||
END
|
||||
|
||||
NUMERO FF_COSTO 12
|
||||
BEGIN
|
||||
KEY "costo della riga documento"
|
||||
PROMPT 34 1 ""
|
||||
MESSAGE _PARENTROW,1,PREZZO
|
||||
PICTURE "#####@,@@@@@"
|
||||
END
|
||||
|
||||
NUMERO FF_QTA 8
|
||||
BEGIN
|
||||
KEY "quantita della riga documento da ordine"
|
||||
PROMPT 47 1 ""
|
||||
FIELD QTA
|
||||
END
|
||||
|
||||
DATA FF_DATACONS 10
|
||||
BEGIN
|
||||
KEY "data consegna"
|
||||
PROMPT 57 1 ""
|
||||
MESSAGE _PARENTROW,1,DATACONS
|
||||
END
|
||||
|
||||
DATA FF_DATAORD 10
|
||||
BEGIN
|
||||
KEY "data doc. ord."
|
||||
PROMPT 69 1 ""
|
||||
MESSAGE _PARENTDOC,1,DATADOC
|
||||
END
|
||||
|
||||
NUMERO FF_NUMORD 7
|
||||
BEGIN
|
||||
KEY "numero documento ordine"
|
||||
PROMPT 80 1 ""
|
||||
FIELD DANDOC
|
||||
END
|
||||
|
||||
STRINGA FF_RITARDO
|
||||
BEGIN
|
||||
KEY "giorni di ritardo=dataentr-datacons"
|
||||
PROMPT 92 1 ""
|
||||
MESSAGE _RITARDO,FF_DATAENTR,FF_DATACONS
|
||||
END
|
||||
|
||||
NUMERO FF_DOCFORN 7
|
||||
BEGIN
|
||||
KEY "documento fornitore doc. rif. su doc. di entrata"
|
||||
PROMPT 100 1 ""
|
||||
FIELD LF_DOC->NUMDOCRIF
|
||||
END
|
||||
|
||||
DATA FF_DATAFORN 10
|
||||
BEGIN
|
||||
KEY "data documento fornitore"
|
||||
PROMPT 110 1 ""
|
||||
FIELD LF_DOC->DATADOCRIF
|
||||
END
|
||||
|
||||
END //end section FORNITORI
|
||||
|
||||
END //end section ARTICOLI
|
||||
|
||||
END
|
||||
|
20
ve/ve7300a.h
Executable file
20
ve/ve7300a.h
Executable file
@ -0,0 +1,20 @@
|
||||
//definizioni campi maschera ve7300a
|
||||
//campi dello spreadsheet
|
||||
#define F_S_CODNUM 101
|
||||
#define F_S_DESCRNUM 102
|
||||
//campi della maschera
|
||||
#define F_DACODART 111
|
||||
#define F_DADESCRART 112
|
||||
#define F_ACODART 113
|
||||
#define F_ADESCRART 114
|
||||
#define F_DACODFOR 115
|
||||
#define F_DADESCRFOR 116
|
||||
#define F_ACODFOR 117
|
||||
#define F_ADESCRFOR 118
|
||||
#define F_DADATA 119
|
||||
#define F_ADATA 120
|
||||
|
||||
#define F_SHEETNUMS 201
|
||||
|
||||
|
||||
|
175
ve/ve7300a.uml
Executable file
175
ve/ve7300a.uml
Executable file
@ -0,0 +1,175 @@
|
||||
#include <lffiles.h>
|
||||
#include "ve7300a.h"
|
||||
|
||||
TOOLBAR "" 0 -3 0 3
|
||||
|
||||
STRING DLG_PROFILE 50
|
||||
BEGIN
|
||||
PROMPT 1 0 "Profilo "
|
||||
PSELECT
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
MESSAGE EXIT,K_ENTER
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Riepilogo entrate fornitori " -1 -1 78 19
|
||||
|
||||
STRING F_DACODART 20
|
||||
BEGIN
|
||||
PROMPT 2 1 "Dall'art. "
|
||||
FLAG "U"
|
||||
USE LF_ANAMAG
|
||||
INPUT CODART F_DACODART
|
||||
DISPLAY "Codice@20" CODART
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_DACODART CODART
|
||||
OUTPUT F_DADESCRART DESCR
|
||||
CHECKTYPE SEARCH
|
||||
END
|
||||
|
||||
STRING F_DADESCRART 50
|
||||
BEGIN
|
||||
PROMPT 2 2 "Descrizione "
|
||||
USE LF_ANAMAG KEY 2
|
||||
INPUT DESCR F_DADESCRART
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Codice@20" CODART
|
||||
COPY OUTPUT F_DACODART
|
||||
END
|
||||
|
||||
STRING F_ACODART 20
|
||||
BEGIN
|
||||
PROMPT 2 4 "All'art. "
|
||||
FLAG "U"
|
||||
USE LF_ANAMAG
|
||||
INPUT CODART F_ACODART
|
||||
COPY DISLPAY F_DACODART
|
||||
OUTPUT F_ACODART CODART
|
||||
OUTPUT F_ADESCRART DESCR
|
||||
CHECKTYPE SEARCH
|
||||
END
|
||||
|
||||
STRING F_ADESCRART 50
|
||||
BEGIN
|
||||
PROMPT 2 5 "Descrizione "
|
||||
USE LF_ANAMAG KEY 2
|
||||
INPUT DESCR F_ADESCRART
|
||||
COPY DISPLAY F_DADESCRART
|
||||
COPY OUTPUT F_ACODART
|
||||
END
|
||||
|
||||
STRING F_DACODFOR 6
|
||||
BEGIN
|
||||
PROMPT 2 7 "Dal fornitore "
|
||||
USE LF_CLIFO KEY 1
|
||||
INPUT TIPOCF "F"
|
||||
INPUT CODCF F_DACODFOR
|
||||
DISPLAY "Codice@10" CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT F_DACODFOR CODCF
|
||||
OUTPUT F_DADESCRFOR RAGSOC
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_DADESCRFOR 50
|
||||
BEGIN
|
||||
PROMPT 2 8 "Ragione sociale "
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF "F"
|
||||
INPUT RAGSOC F_DADESCRFOR
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
DISPLAY "Codice@10" CODCF
|
||||
COPY OUTPUT F_DACODFOR
|
||||
END
|
||||
|
||||
STRING F_ACODFOR 6
|
||||
BEGIN
|
||||
PROMPT 2 10 "Al fornitore "
|
||||
COPY USE F_DACODFOR
|
||||
INPUT TIPOCF "F"
|
||||
INPUT CODCF F_ACODFOR
|
||||
COPY DISPLAY F_DACODFOR
|
||||
OUTPUT F_ACODFOR CODCF
|
||||
OUTPUT F_ADESCRFOR RAGSOC
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_ADESCRFOR 50
|
||||
BEGIN
|
||||
PROMPT 2 11 "Ragione sociale "
|
||||
COPY USE F_DADESCRFOR
|
||||
INPUT TIPOCF "F"
|
||||
INPUT RAGSOC F_ADESCRFOR
|
||||
COPY DISPLAY F_DADESCRFOR
|
||||
COPY OUTPUT F_ACODFOR
|
||||
END
|
||||
|
||||
DATE F_DADATA
|
||||
BEGIN
|
||||
PROMPT 2 13 "Dalla data "
|
||||
END
|
||||
|
||||
DATE F_ADATA
|
||||
BEGIN
|
||||
PROMPT 35 13 "Alla data "
|
||||
END
|
||||
|
||||
SPREADSHEET F_SHEETNUMS 75 5
|
||||
BEGIN
|
||||
PROMPT 2 15 ""
|
||||
ITEM "Cod. Num."
|
||||
ITEM "Descrizione cod. num."
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
PAGE "Riga" -1 -1 68 6
|
||||
|
||||
STRING F_S_CODNUM 4
|
||||
BEGIN
|
||||
PROMPT 1 1 "Codice numerazione "
|
||||
FLAGS "U"
|
||||
USE %NUM SELECT I1==1
|
||||
INPUT CODTAB F_S_CODNUM
|
||||
DISPLAY "Cod. Num." CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_S_CODNUM CODTAB
|
||||
OUTPUT F_S_DESCRNUM S0
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_S_DESCRNUM 50
|
||||
BEGIN
|
||||
PROMPT 1 2 "Descrizione "
|
||||
USE %NUM KEY 2 SELECT I1==1
|
||||
INPUT S0 F_S_DESCRNUM
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Cod. Num." CODTAB
|
||||
COPY OUTPUT F_S_CODNUM
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
Loading…
x
Reference in New Issue
Block a user