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:
luca 2003-07-01 14:48:59 +00:00
parent 22f978841d
commit 7df1190f34
4 changed files with 456 additions and 0 deletions

16
ve/ve7300.h Executable file
View 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
View 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
View 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
View 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