From 7df1190f348819713a6a9b0d38a09a0ee59192c1 Mon Sep 17 00:00:00 2001 From: luca Date: Tue, 1 Jul 2003 14:48:59 +0000 Subject: [PATCH] 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 --- ve/ve7300.h | 16 ++++ ve/ve7300a.frm | 245 +++++++++++++++++++++++++++++++++++++++++++++++++ ve/ve7300a.h | 20 ++++ ve/ve7300a.uml | 175 +++++++++++++++++++++++++++++++++++ 4 files changed, 456 insertions(+) create mode 100755 ve/ve7300.h create mode 100755 ve/ve7300a.frm create mode 100755 ve/ve7300a.h create mode 100755 ve/ve7300a.uml diff --git a/ve/ve7300.h b/ve/ve7300.h new file mode 100755 index 000000000..7bb55e9dd --- /dev/null +++ b/ve/ve7300.h @@ -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 + diff --git a/ve/ve7300a.frm b/ve/ve7300a.frm new file mode 100755 index 000000000..1f721b9bd --- /dev/null +++ b/ve/ve7300a.frm @@ -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 + diff --git a/ve/ve7300a.h b/ve/ve7300a.h new file mode 100755 index 000000000..0c937dedc --- /dev/null +++ b/ve/ve7300a.h @@ -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 + + + diff --git a/ve/ve7300a.uml b/ve/ve7300a.uml new file mode 100755 index 000000000..af25ecd06 --- /dev/null +++ b/ve/ve7300a.uml @@ -0,0 +1,175 @@ +#include +#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 \ No newline at end of file