root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level :

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            : Prima versione delle stampe ordini:
stampa per numero/data, per cli/fo, per agente, per Articolo


git-svn-id: svn://10.65.10.50/trunk@6780 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1998-06-25 07:29:35 +00:00
parent c968f1bfa8
commit 27eb98b510
11 changed files with 3381 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
or/or1.cpp
View File

@ -3,7 +3,7 @@
#include "or1.h"
const char* const usage = "Errore - uso : %s -{0}";
const char* const usage = "Errore - uso : %s -{0|1|2}";
int main(int argc,char** argv)
{
@ -12,7 +12,11 @@ int main(int argc,char** argv)
switch (n)
{
case 0:
or1100(argc,argv); break; // stampe
or1100(argc,argv); break; // stampe ordini
case 1:
or1200(argc,argv); break; // stampa dettaglio disponibilita' articoli
case 2:
or1300(argc,argv); break; // stampa statistiche sui tempi di consegna
default:
error_box(usage, argv[0]);
}

2
or/or1.h
View File

@ -2,6 +2,8 @@
#define __OR1_H
int or1100(int argc, char** argv);
int or1200(int argc, char** argv);
int or1300(int argc, char** argv);
#endif // __OR1_H

10
or/or1.url
View File

@ -1,14 +1,20 @@
#include <default.url>
/* or1 -0 Stampe */
/* or1 -0 Stampe ordini */
MENU TASK_MENUBAR
SUBMENU MENU_FILE "~File"
/* or1 -1 */
/* or1 -1 Stampa dettaglio disponbilita' articoli*/
MENUBAR MENU_BAR(1)
MENU MENU_BAR(1)
SUBMENU MENU_FILE "~File"
/* or1 -2 Stampa statistiche sui tempi di consegna*/
MENUBAR MENU_BAR(2)
MENU MENU_BAR(2)
SUBMENU MENU_FILE "~File"

1017
or/or1100.cpp Executable file
View File

File diff suppressed because it is too large Load Diff

68
or/or1100a.h Executable file
View File

@ -0,0 +1,68 @@
// Defines per maschera e form
#define F_TIPO 101
#define F_CODNUM 102
#define F_ANNO 103
#define F_PROVV 104
#define F_DATA_O_NUM 105
#define F_NDOCFROM 106
#define F_NDOCTO 107
#define F_EMISFROM 108
#define F_EMISTO 109
#define F_TIPOCF 110
#define F_CFFROM 111
#define F_CFTO 112
#define F_CONSFROM 113
#define F_CONSTO 114
#define F_ARTFROM 117
#define F_ARTTO 118
#define F_AGEFROM 119
#define F_AGETO 120
#define F_DETTAGLIO 121
#define F_STATOORD 122
#define F_STATORORD 123
#define F_DETAIL_LEV 124
#define F_RAGG_PER_ART 125
#define F_RAGG_CLI 126
#define F_GIAC1 127
#define F_GIAC1_DES 128
#define F_GIAC1_FROM 129
#define F_GIAC1_TO 130
#define F_GIAC2 131
#define F_GIAC2_DES 132
#define F_GIAC2_FROM 133
#define F_GIAC2_TO 134
#define F_GIAC3 135
#define F_GIAC3_DES 136
#define F_GIAC3_FROM 137
#define F_GIAC3_TO 138
#define F_GIAC4 139
#define F_GIAC4_DES 140
#define F_GIAC4_FROM 141
#define F_GIAC4_TO 142
#define F_DETAIL_MAG 143
#define F_DETAIL_DEP 144
#define F_MAGFROM 145
#define F_MAGTO 146
#define F_DEPFROM 147
#define F_DEPTO 148
#define F_DETAIL_BY_DOC 149
#define F_DETAIL_BY_CLI 150
#define GR_CLIFO 1
#define GR_NUM 2
#define GR_ART 3
#define GR_AGE 4
#define GR_NDOC 5
#define GR_DATA 6
#define GR_TUTTI 7
#define GR_MAG 8
#define GR_RAGG 9
#define GR_GIAC 10
#define GR_DETAIL 11
#define GR_DETAILART 12
// Defines per forms
#define G_DETTAGLIO 1
#define G_TOTALE 2
#define G_TOTALEART 3

606
or/or1100a.uml Executable file
View File

@ -0,0 +1,606 @@
#include "or1100a.h"
TOOLBAR "" 0 19 0 4
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
PAGE "Stampa ordini" -1 -1 78 20
RADIOBUTTON F_TIPO 30
BEGIN
PROMPT 2 1 "Tipo stampa"
ITEM "0|Numero/Data"
MESSAGE DISABLE,GR_TUTTI@|HIDE,GR_AGE@|SHOW,GR_CLIFO@|ENABLE,F_DATA_O_NUM|ENABLE,F_DETTAGLIO|" ",F_DETTAGLIO|CLEAR,GR_DETAIL@|CLEAR,GR_DETAILART@
ITEM "1|Cliente/Fornitore"
MESSAGE DISABLE,GR_TUTTI@|HIDE,GR_AGE@|SHOW,GR_CLIFO@|ENABLE,GR_CLIFO@|DISABLE,F_DATA_O_NUM|"D", F_DATA_O_NUM|ENABLE,F_DETTAGLIO|" ",F_DETTAGLIO|CLEAR,GR_DETAIL@
ITEM "2|Agente"
MESSAGE DISABLE,GR_TUTTI@|HIDE,GR_CLIFO@|SHOW,GR_AGE@|ENABLE,GR_AGE@|DISABLE,F_DATA_O_NUM|"D", F_DATA_O_NUM|ENABLE,F_DETTAGLIO|" ",F_DETTAGLIO|CLEAR,GR_DETAIL@|ENABLE,F_DETAIL_BY_CLI
ITEM "3|Articolo"
MESSAGE DISABLE,GR_TUTTI@|HIDE,GR_AGE@|SHOW,GR_CLIFO@|DISABLE,F_DATA_O_NUM|"D", F_DATA_O_NUM|DISABLE,F_DETTAGLIO|"X",F_DETTAGLIO|ENABLE,GR_CLIFO@|CLEAR,GR_DETAIL@
END
GROUPBOX DLG_NULL 40 6
BEGIN
PROMPT 35 1 "Ordine"
END
STRING F_CODNUM 4
BEGIN
PROMPT 36 2 "Codice Num. "
FLAG "U"
USE %NUM SELECT I1==3
INPUT CODTAB F_CODNUM
DISPLAY "Cod. Num." CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODNUM CODTAB
CHECKTYPE REQUIRED
END
NUMBER F_ANNO 4
BEGIN
PROMPT 65 2 "Anno "
CHECKTYPE REQUIRED
END
LIST F_PROVV 12
BEGIN
PROMPT 36 3 "Tipo numerazione "
ITEM "D|Definitiva"
ITEM "P|Provvisoria"
END
LISTBOX F_DATA_O_NUM 20
BEGIN
PROMPT 36 4 "Selezione su "
ITEM "N|Numero documento"
MESSAGE HIDE,GR_DATA@|SHOW,GR_NDOC@
ITEM "D|Data documento"
MESSAGE SHOW,GR_DATA@|HIDE,GR_NDOC@
END
NUMBER F_NDOCFROM 7
BEGIN
PROMPT 36 5 "Dal "
USE 33
JOIN 20 INTO CODCF=CODCF TIPOCF=TIPOCF
JOIN 13 TO 20 INTO COM=COMCF
INPUT PROVV F_PROVV SELECT
INPUT ANNO F_ANNO SELECT
INPUT CODNUM F_CODNUM SELECT
INPUT NDOC F_NDOCFROM
DISPLAY "Data@10" DATADOC
DISPLAY "Numero@7" NDOC
DISPLAY "Cliente/Fornitore@40" 20->RAGSOC
DISPLAY "Comune@20" 13->DENCOM
OUTPUT F_NDOCFROM NDOC
CHECKTYPE NORMAL
GROUP GR_NDOC
END
NUMBER F_NDOCTO 7
BEGIN
PROMPT 62 5 "Al "
USE 33
JOIN 20 INTO CODCF=CODCF TIPOCF=TIPOCF
JOIN 13 TO 20 INTO COM=COMCF
INPUT PROVV F_PROVV SELECT
INPUT ANNO F_ANNO SELECT
INPUT CODNUM F_CODNUM SELECT
INPUT NDOC F_NDOCTO
DISPLAY "Data@10" DATADOC
DISPLAY "Numero@7" NDOC
DISPLAY "Cliente/Fornitore@40" 20->RAGSOC
DISPLAY "Comune@20" 13->DENCOM
OUTPUT F_NDOCTO NDOC
GROUP GR_NDOC
CHECKTYPE NORMAL
END
DATE F_EMISFROM
BEGIN
PROMPT 36 5 "Dal "
GROUP GR_DATA
END
DATE F_EMISTO
BEGIN
PROMPT 59 5 "Al "
GROUP GR_DATA
END
GROUPBOX DLG_NULL 30 4
BEGIN
PROMPT 2 7 "Cliente"
GROUP GR_CLIFO
END
LIST F_TIPOCF 1 11
BEGIN
PROMPT 3 8 "Tipo C/F "
ITEM "C|Clienti"
ITEM "F|Fornitori"
GROUP GR_CLIFO
END
NUMBER F_CFFROM 6
BEGIN
PROMPT 3 9 "Dal "
USE LF_CLIFO KEY 1
INPUT TIPOCF F_TIPOCF SELECT
INPUT CODCF F_CFFROM
DISPLAY "Codice@6R" CODCF
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CFFROM CODCF
CHECKTYPE NORMAL
GROUP GR_TUTTI GR_CLIFO
END
NUMBER F_CFTO 6
BEGIN
PROMPT 19 9 "Al "
USE LF_CLIFO KEY 1
INPUT TIPOCF F_TIPOCF SELECT
INPUT CODCF F_CFTO
DISPLAY "Codice@6R" CODCF
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CFTO CODCF
CHECKTYPE NORMAL
GROUP GR_TUTTI GR_CLIFO
END
GROUPBOX DLG_NULL 30 4
BEGIN
PROMPT 2 7 "Agente"
GROUP GR_TUTTI GR_AGE
END
STRING F_AGEFROM 6
BEGIN
PROMPT 3 8 "Dal "
FLAGS "U"
USE LF_AGENTI
INPUT CODAGE F_AGEFROM
DISPLAY "Codice" CODAGE
DISPLAY "Descr@50" RAGSOC
OUTPUT F_AGEFROM CODAGE
GROUP GR_TUTTI GR_AGE
END
STRING F_AGETO 6
BEGIN
PROMPT 3 9 "Al "
FLAGS "U"
COPY USE F_AGEFROM
INPUT CODAGE F_AGETO
COPY DISPLAY F_AGEFROM
OUTPUT F_AGETO CODAGE
GROUP GR_TUTTI GR_AGE
END
GROUPBOX DLG_NULL 40 4
BEGIN
PROMPT 35 7 "Data consegna"
END
DATE F_CONSFROM
BEGIN
PROMPT 36 8 "Dal "
END
DATE F_CONSTO
BEGIN
PROMPT 36 9 "Al "
END
BOOLEAN F_DETTAGLIO
BEGIN
PROMPT 3 11 "Dettaglio righe"
END
BOOLEAN F_DETAIL_BY_DOC
BEGIN
PROMPT 35 11 "Dettaglio per documento"
FLAGS "D"
MESSAGE TRUE DISABLE,GR_DETAILART@
MESSAGE FALSE ENABLE,GR_DETAILART@
GROUP GR_DETAIL
END
BOOLEAN F_DETAIL_BY_CLI
BEGIN
PROMPT 35 12 "Ordina per cliente"
FLAGS "D"
GROUP GR_TUTTI
END
NUMBER F_DETAIL_LEV 1
BEGIN
PROMPT 35 13 "Livello dettaglio "
FLAGS "D"
GROUP GR_DETAILART
USE FCG
INPUT CODTAB F_DETAIL_LEV
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione livello@50" S0
OUTPUT F_DETAIL_LEV CODTAB
CHECKTYPE NORMAL
END
LIST F_RAGG_PER_ART 12
BEGIN
PROMPT 35 14 "Periodo raggruppamento "
ITEM "0|Giornaliero"
ITEM "1|1 mese"
ITEM "2|2 mesi"
ITEM "3|3 mesi"
ITEM "4|4 mesi"
FLAGS "D"
GROUP GR_DETAILART
END
BOOLEAN F_DETAIL_MAG
BEGIN
PROMPT 35 15 "Dettaglia magazzini"
FLAGS "D"
GROUP GR_DETAILART
END
BOOLEAN F_DETAIL_DEP
BEGIN
PROMPT 35 16 "Dettaglia depositi"
FLAGS "D"
GROUP GR_DETAILART
END
LIST F_STATOORD 6
BEGIN
PROMPT 3 12 "Tipo ordini "
ITEM "T|Tutti"
ITEM "E|Evasi"
ITEM "A|Aperti"
END
LIST F_STATORORD 6
BEGIN
PROMPT 3 13 "Tipo righe ordini "
FLAGS "D"
GROUP GR_DETAIL
ITEM "T|Tutte"
ITEM "E|Evase"
ITEM "A|Aperte"
END
GROUPBOX DLG_NULL 30 4
BEGIN
PROMPT 2 15 "Articolo"
END
STRING F_ARTFROM 20
BEGIN
PROMPT 3 16 "Dal "
FLAGS "DU"
USE LF_ANAMAG
INPUT CODART F_ARTFROM
DISPLAY "Codice@20" CODART
DISPLAY "Descrizione@50" DESCR
OUTPUT F_ARTFROM CODART
CHECKTYPE NORMAL
ADD RUN ve2 -3
GROUP GR_DETAIL GR_ART
END
STRING F_ARTTO 20
BEGIN
PROMPT 3 17 "Al "
FLAGS "DU"
USE LF_ANAMAG
INPUT CODART F_ARTTO
DISPLAY "Codice@20" CODART
DISPLAY "Descrizione@50" DESCR
OUTPUT F_ARTTO CODART
CHECKTYPE NORMAL
ADD RUN ve2 -3
GROUP GR_DETAIL GR_ART
END
ENDPAGE
PAGE "Avanzate" -1 -1 78 20
GROUPBOX DLG_NULL 74 10
BEGIN
PROMPT 2 2 "Livelli di giacenza"
END
STRING F_GIAC1 1
BEGIN
PROMPT 3 3 "1. "
FLAGS "D"
USE FCG
INPUT CODTAB[1,1] F_GIAC1
OUTPUT F_GIAC1_DES S0
CHECKTYPE NORMAL
END
STRING F_GIAC1_DES 60
BEGIN
PROMPT 12 3 ""
FLAGS "D"
END
STRING F_GIAC1_FROM 24
BEGIN
PROMPT 12 4 "Da "
FLAGS "D"
KEY 1
USE GCG SELECT CODTAB[1,1]=#F_GIAC1
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
INPUT CODTAB[1,1] F_GIAC1
INPUT CODTAB[2,25] F_GIAC1_FROM
DISPLAY "N.Liv." CODTAB[1,1]
DISPLAY "Livello@20 " 500@->S0
DISPLAY "Codice@23" CODTAB[2,25]
DISPLAY "Descrizione@50 " GCG->S0
OUTPUT F_GIAC1_FROM CODTAB[2,25]
CHECKTYPE SEARCH
GROUP GR_DETAIL GR_GIAC
END
STRING F_GIAC1_TO 23
BEGIN
PROMPT 47 4 "A "
FLAGS "D"
KEY 1
USE GCG SELECT CODTAB[1,1]=#F_GIAC1
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
INPUT CODTAB[1,1] F_GIAC1
INPUT CODTAB[2,25] F_GIAC1_TO
DISPLAY "N.Liv." CODTAB[1,1]
DISPLAY "Livello@20 " 500@->S0
DISPLAY "Codice@23" CODTAB[2,25]
DISPLAY "Descrizione@50 " GCG->S0
OUTPUT F_GIAC1_TO CODTAB[2,25]
CHECKTYPE SEARCH
GROUP GR_DETAIL GR_GIAC
END
STRING F_GIAC2 1
BEGIN
PROMPT 3 5 "2. "
FLAGS "D"
USE FCG
INPUT CODTAB[1,1] F_GIAC2
OUTPUT F_GIAC2_DES S0
CHECKTYPE NORMAL
END
STRING F_GIAC2_DES 60
BEGIN
PROMPT 12 5 ""
FLAGS "D"
END
STRING F_GIAC2_FROM 23
BEGIN
PROMPT 12 6 "Da "
FLAGS "D"
KEY 1
USE GCG SELECT CODTAB[1,1]=#F_GIAC2
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
INPUT CODTAB[1,1] F_GIAC2
INPUT CODTAB[2,25] F_GIAC2_FROM
DISPLAY "N.Liv." CODTAB[1,1]
DISPLAY "Livello@20 " 500@->S0
DISPLAY "Codice@23" CODTAB[2,25]
DISPLAY "Descrizione@50 " GCG->S0
OUTPUT F_GIAC2_FROM CODTAB[2,25]
CHECKTYPE SEARCH
GROUP GR_DETAIL GR_GIAC
END
STRING F_GIAC2_TO 23
BEGIN
PROMPT 47 6 "A "
FLAGS "D"
KEY 1
USE GCG SELECT CODTAB[1,1]=#F_GIAC2
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
INPUT CODTAB[1,1] F_GIAC2
INPUT CODTAB[2,25] F_GIAC2_TO
DISPLAY "N.Liv." CODTAB[1,1]
DISPLAY "Livello@20 " 500@->S0
DISPLAY "Codice@23" CODTAB[2,25]
DISPLAY "Descrizione@50 " GCG->S0
OUTPUT F_GIAC2_TO CODTAB[2,25]
CHECKTYPE SEARCH
GROUP GR_DETAIL GR_GIAC
END
STRING F_GIAC3 1
BEGIN
PROMPT 3 7 "3. "
USE FCG
INPUT CODTAB[1,1] F_GIAC3
OUTPUT F_GIAC3_DES S0
CHECKTYPE NORMAL
FLAGS "D"
END
STRING F_GIAC3_DES 60
BEGIN
PROMPT 12 7 ""
FLAGS "D"
END
STRING F_GIAC3_FROM 23
BEGIN
PROMPT 12 8 "Da "
FLAGS "D"
KEY 1
USE GCG SELECT CODTAB[1,1]=#F_GIAC3
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
INPUT CODTAB[1,1] F_GIAC3
INPUT CODTAB[2,25] F_GIAC3_FROM
DISPLAY "N.Liv." CODTAB[1,1]
DISPLAY "Livello@20 " 500@->S0
DISPLAY "Codice@23" CODTAB[2,25]
DISPLAY "Descrizione@50 " GCG->S0
OUTPUT F_GIAC3_FROM CODTAB[2,25]
CHECKTYPE SEARCH
GROUP GR_DETAIL GR_GIAC
END
STRING F_GIAC3_TO 23
BEGIN
PROMPT 47 8 "A "
FLAGS "D"
KEY 1
USE GCG SELECT CODTAB[1,1]=#F_GIAC3
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
INPUT CODTAB[1,1] F_GIAC3
INPUT CODTAB[2,25] F_GIAC3_TO
DISPLAY "N.Liv." CODTAB[1,1]
DISPLAY "Livello@20 " 500@->S0
DISPLAY "Codice@23" CODTAB[2,25]
DISPLAY "Descrizione@50 " GCG->S0
OUTPUT F_GIAC3_TO CODTAB[2,25]
CHECKTYPE SEARCH
GROUP GR_DETAIL GR_GIAC
END
STRING F_GIAC4 1
BEGIN
PROMPT 3 9 "4. "
USE FCG
INPUT CODTAB[1,1] F_GIAC4
OUTPUT F_GIAC4_DES S0
CHECKTYPE NORMAL
FLAGS "D"
END
STRING F_GIAC4_DES 60
BEGIN
PROMPT 12 9 ""
FLAGS "D"
END
STRING F_GIAC4_FROM 23
BEGIN
PROMPT 12 10 "Da "
FLAGS "D"
KEY 1
USE GCG SELECT CODTAB[1,1]=#F_GIAC4
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
INPUT CODTAB[1,1] F_GIAC4
INPUT CODTAB[2,25] F_GIAC4_FROM
DISPLAY "N.Liv." CODTAB[1,1]
DISPLAY "Livello@20 " 500@->S0
DISPLAY "Codice@23" CODTAB[2,25]
DISPLAY "Descrizione@50 " GCG->S0
OUTPUT F_GIAC4_FROM CODTAB[2,25]
CHECKTYPE SEARCH
GROUP GR_DETAIL GR_GIAC
END
STRING F_GIAC4_TO 23
BEGIN
PROMPT 47 10 "A "
FLAGS "D"
KEY 1
USE GCG SELECT CODTAB[1,1]=#F_GIAC4
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
INPUT CODTAB[1,1] F_GIAC4
INPUT CODTAB[2,25] F_GIAC4_TO
DISPLAY "N.Liv." CODTAB[1,1]
DISPLAY "Livello@20 " 500@->S0
DISPLAY "Codice@23" CODTAB[2,25]
DISPLAY "Descrizione@50 " GCG->S0
OUTPUT F_GIAC4_TO CODTAB[2,25]
GROUP GR_DETAIL GR_GIAC
GROUP GR_DETAIL
END
GROUPBOX DLG_NULL 30 4
BEGIN
PROMPT 2 15 "Magazzino"
END
STRING F_MAGFROM 3
BEGIN
PROMPT 3 16 "Dal "
FLAGS "DU"
USE MAG SELECT CODTAB[4,5]==""
INPUT CODTAB F_MAGFROM
DISPLAY "Codice " CODTAB[1,3]
DISPLAY "Denominazione mag.@50 " S0
OUTPUT F_MAGFROM CODTAB[1,3]
CHECKTYPE NORMAL
GROUP GR_DETAIL GR_MAG
END
STRING F_MAGTO 3
BEGIN
PROMPT 3 17 "Al "
FLAGS "DU"
USE MAG SELECT CODTAB[4,5]==""
INPUT CODTAB F_MAGTO
DISPLAY "Codice " CODTAB[1,3]
DISPLAY "Denominazione mag.@50 " S0
OUTPUT F_MAGTO CODTAB[1,3]
CHECKTYPE NORMAL
GROUP GR_DETAIL GR_MAG
END
GROUPBOX DLG_NULL 40 4
BEGIN
PROMPT 35 15 "Deposito"
END
STRING F_DEPFROM 2
BEGIN
PROMPT 36 16 "Dal "
FLAGS "DU"
USE MAG SELECT CODTAB[4,5]!=""
INPUT CODTAB[1,3] F_MAGFROM
INPUT CODTAB[4,5] F_DEPFROM
DISPLAY "Codice " CODTAB
DISPLAY "Denominazione dep.@50 " S0
OUTPUT F_MAGFROM CODTAB[1,3]
OUTPUT F_DEPFROM CODTAB[4,5]
CHECKTYPE NORMAL
GROUP GR_DETAIL GR_MAG
END
STRING F_DEPTO 2
BEGIN
PROMPT 36 17 "Al "
FLAGS "DU"
USE MAG SELECT CODTAB[4,5]!=""
INPUT CODTAB[1,3] F_MAGTO
INPUT CODTAB[4,5] F_DEPTO
DISPLAY "Codice " CODTAB
DISPLAY "Denominazione mag.@50 " S0
OUTPUT F_MAGTO CODTAB[1,3]
OUTPUT F_DEPTO CODTAB[4,5]
CHECKTYPE NORMAL
GROUP GR_DETAIL GR_MAG
END
ENDPAGE
ENDMASK

566
or/or1100b.frm Executable file
View File

@ -0,0 +1,566 @@
// Form per la stampa ordini per cliente/fornitore
#include "or1100a.h"
// Cursor sorting on main file is set also in application
USE LF_RIGHEDOC BY LF_DOC->TIPOCF LF_DOC->CODCF CODNUM NDOC CODART DATACONS
JOIN LF_DOC INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC
JOIN LF_ANAMAG INTO CODART==CODART
JOIN LF_CLIFO TO LF_DOC INTO TIPOCF==TIPOCF CODCF==CODCF
END
DESCRIPTION
BEGIN
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 10
END
SECTION HEADER ODD 6
STRINGA 1 40 1
BEGIN
KEY "nome ditta"
PROMPT 1 1 "Ditta "
MESSAGE _DITTA, !RAGSOC
END
STRINGA 2 10
BEGIN
KEY "Data"
PROMPT 76 1 "Data "
MESSAGE _TODAY
END
NUMERO 3 7
BEGIN
KEY "Nr. pagina"
PROMPT 92 1 "Pagina "
MESSAGE _PAGENO
END
NUMERO 4 40
BEGIN
KEY "Intestazione stampa"
PROMPT 40 2 "Stampa ordini per cliente/fornitore"
END
END //HEADER
SECTION BODY ODD 4 COLUMNWISE
NUMBER 1 10
BEGIN
SPECIAL STRINGA INTESTAZIONE "Codice" "Codice"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "X " "Fincatura sinistra e destra"
KEY "Codice"
PROMPT 1 1 "@B"
FIELD LF_DOC->CODCF
MESSAGE _ORDINE,VALTABLE,RESET
PICTURE "########"
END
STRING 2 40
BEGIN
SPECIAL STRINGA INTESTAZIONE "Descrizione" "Descrizione"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA " X" "Fincatura sinistra e destra"
KEY "Descrizione Rag Soc"
PROMPT 2 1 ""
FIELD LF_CLIFO->RAGSOC
END
STRINGA 3 4
BEGIN
SPECIAL STRINGA INTESTAZIONE "Val." "Val."
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "Codice Valuta"
PROMPT 3 1 ""
END
DATA 4 10
BEGIN
SPECIAL STRINGA INTESTAZIONE "Data cons." "Data cons."
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "Data consegna documento"
PROMPT 4 1 ""
END
NUMBER 5 15
BEGIN
SPECIAL STRINGA INTESTAZIONE "@CValore" "Valore"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "Valore"
PROMPT 5 1 ""
END
NUMBER 6 15
BEGIN
SPECIAL STRINGA INTESTAZIONE "@CVal.Residuo" "Val.Residuo"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "Valore Residuo"
PROMPT 6 1 ""
END
STRINGA 7 4
BEGIN
SPECIAL STRINGA INTESTAZIONE "UM" "UM"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "Unita' di misura" // Solo intestazione
FLAGS "H"
PROMPT 7 1 ""
GROUP G_DETTAGLIO
END
STRINGA 8 13
BEGIN
SPECIAL STRINGA INTESTAZIONE "Q.ta Ordinata" "Q.ta Ordinata"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "Q.ta Ordinata" // Solo intestazione
FLAGS "H"
PROMPT 8 1 ""
GROUP G_DETTAGLIO
END
STRINGA 9 13
BEGIN
SPECIAL STRINGA INTESTAZIONE "Q.ta Evasa" "Q.ta Evasa"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "Q.ta Evasa" // Solo intestazione
FLAGS "H"
PROMPT 9 1 ""
GROUP G_DETTAGLIO
END
// Raggruppamento righe documenti per lo stesso cli/fo
SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF
NUMBER 101 10
BEGIN
PROMPT 1 1 ""
FLAGS "H"
MESSAGE RESET,G_TOTALEART@
END
STRING 102 40 2
BEGIN
KEY "Descrizione documento"
PROMPT 2 1 ""
MESSAGE _STREXPR,"*Doc. "+LF_DOC->CODNUM+"/"+LF_DOC->NDOC+" del "+LF_DOC->DATADOC
FLAGS "D"
END
STRING 103 4
BEGIN
KEY "Codice Valuta"
PROMPT 3 1 ""
FIELD LF_DOC->CODVAL
FLAGS "D"
END
DATA 104 10
BEGIN
KEY "Data consegna documento"
PROMPT 4 1 ""
FIELD LF_DOC->DATACONS
FLAGS "D"
END
NUMBER 105 15
BEGIN
KEY "Valore Ordinato"
PROMPT 5 1 ""
FIELD LF_DOC->TOTVALORE
MESSAGE _ORDINE,VALTABLE,VALORD
PICTURE "."
FLAGS "D"
END
NUMBER 106 15
BEGIN
KEY "Valore Residuo"
PROMPT 6 1 ""
FIELD LF_DOC->TOTVALRES
MESSAGE _ORDINE,VALTABLE,VALRES
PICTURE "."
FLAGS "D"
END
SECTION RIGHEDOC 2 1 1 FILE LF_RIGHEDOC GROUP NDOC // changes into CODART grouping
FLAGS "D" // Da abilitare solo su dettaglio righe
NUMBER 201 10
BEGIN
PROMPT 1 1 ""
END
STRING 202 40 2
BEGIN
KEY "Descrizione articolo"
PROMPT 2 1 ""
MESSAGE _STREXPR,"**Art. "+LF_RIGHEDOC->CODART+" "+LF_ANAMAG->DESCR
END
STRING 203 4
BEGIN
KEY "Codice Valuta"
PROMPT 3 1 ""
END
DATA 204 10
BEGIN
KEY "Data consegna articolo"
PROMPT 4 1 ""
FIELD LF_RIGHEDOC->DATACONS
END
NUMBER 205 15
BEGIN
KEY "Valore Ordinato"
PROMPT 5 1 ""
FIELD LF_RIGHEDOC->RIGAVALORE
PICTURE "."
END
NUMBER 206 15
BEGIN
KEY "Valore Residuo"
PROMPT 6 1 ""
FIELD LF_RIGHEDOC->RIGAVALRES
PICTURE "."
END
STRINGA 207 4
BEGIN
KEY "Unita' di misura"
PROMPT 7 1 ""
FIELD LF_RIGHEDOC->UMQTA
END
NUMBER 208 13
BEGIN
KEY "Q.ta Ordinata"
PROMPT 8 1 ""
FIELD LF_RIGHEDOC->QTA
PICTURE "#@,@@@"
END
NUMBER 209 13
BEGIN
KEY "Q.ta Evasa"
PROMPT 9 1 ""
FIELD LF_RIGHEDOC->QTAEVASA
PICTURE "#@,@@@"
END
END // END SECTION RIGHEDOC
// Ecco la sezione per il resto
SECTION RIGHEART 1 0 0 FILE LF_RIGHEDOC GROUP CODVAL+CODART+DATACONS
FLAGS "D"
NUMBER 301 10
BEGIN
PROMPT 1 1 ""
FLAGS "H"
END
STRING 302 40 2
BEGIN
KEY "Descrizione"
PROMPT 2 1 ""
MESSAGE _ORDINE,DESCRIZIONE|COPY,402
FLAGS "H"
END
STRING 303 4
BEGIN
KEY "Codice Valuta"
PROMPT 3 1 ""
FIELD LF_DOC->CODVAL
MESSAGE COPY,403
FLAGS "H"
END
DATA 304 10
BEGIN
KEY "Data consegna articolo"
PROMPT 4 1 ""
FIELD LF_RIGHEDOC->DATACONS
MESSAGE COPY,404
FLAGS "H"
END
NUMBER 305 15
BEGIN
KEY "Valore Ordinato"
PROMPT 5 1 ""
FIELD LF_RIGHEDOC->RIGAVALORE
MESSAGE _ORDINE,VALTABLE,VALORD|ADD,405
PICTURE "."
FLAGS "H"
END
NUMBER 306 15
BEGIN
KEY "Valore Residuo"
PROMPT 6 1 ""
FIELD LF_RIGHEDOC->RIGAVALRES
PICTURE "."
FLAGS "H"
MESSAGE _ORDINE,VALTABLE,VALRES|ADD,406
END
STRINGA 307 4
BEGIN
KEY "Unita' di misura"
PROMPT 7 1 ""
FIELD LF_RIGHEDOC->UMQTA
MESSAGE _ORDINE,SELECTUM|COPY,407
FLAGS "H"
END
NUMBER 308 13
BEGIN
KEY "Q.ta Ordinata"
PROMPT 8 1 ""
FIELD LF_RIGHEDOC->QTA
MESSAGE _ORDINE,CONVUM|ADD,408
FLAGS "H"
END
NUMBER 309 13
BEGIN
KEY "Q.ta Evasa"
PROMPT 9 1 ""
FIELD LF_RIGHEDOC->QTAEVASA
MESSAGE _ORDINE,CONVUM|ADD,409
FLAGS "H"
END
END // END SECTION RIGHEART
// Totalizers for previous section
NUMBER 401 10
BEGIN
PROMPT 1 1 ""
FLAGS "D"
END
STRING 402 40 2
BEGIN
KEY "Descrizione"
PROMPT 2 1 ""
FLAGS "D"
END
STRING 403 4
BEGIN
KEY "Codice Valuta"
PROMPT 3 1 ""
FLAGS "D"
END
DATA 404 10
BEGIN
KEY "Data consegna articolo"
PROMPT 4 1 ""
FLAGS "D"
END
NUMBER 405 15
BEGIN
KEY "Valore Ordinato"
PROMPT 5 1 ""
PICTURE "."
FLAGS "D"
//MESSAGE _ORDINE,VALTABLE,VALORD
GROUP G_TOTALEART
END
NUMBER 406 15
BEGIN
KEY "Valore Residuo"
PROMPT 6 1 ""
PICTURE "."
FLAGS "D"
//MESSAGE _ORDINE,VALTABLE,VALRES
GROUP G_TOTALEART
END
STRINGA 407 4
BEGIN
KEY "Unita' di misura"
PROMPT 7 1 ""
FLAGS "D"
GROUP G_TOTALEART
END
NUMBER 408 13
BEGIN
KEY "Q.ta Ordinata"
PROMPT 8 1 ""
PICTURE "#@,@@@"
FLAGS "D"
GROUP G_TOTALEART
END
NUMBER 409 13
BEGIN
KEY "Q.ta Evasa"
PROMPT 9 1 ""
PICTURE "#@,@@@"
FLAGS "D"
GROUP G_TOTALEART
END
END // END SECTION DOCUMENTI
// Sezioni di totalizzazione per Valuta (4, shown & hidden at runtime by VALTABLE messages in application code)
SECTION TOTVAL1 3 0 1 GROUP
FLAGS "D"
NUMBER 51 10
BEGIN
PROMPT 1 1 ""
END
STRING 52 40
BEGIN
PROMPT 2 1 ""
END
STRINGA 53 4
BEGIN
KEY "Codice valuta #1"
PROMPT 3 1 ""
END
DATA 54 10
BEGIN
PROMPT 4 1 ""
END
NUMBER 55 15
BEGIN
KEY "Tot Valore Ordinato per cli/fo"
PROMPT 5 1 ""
PICTURE "."
END
NUMBER 56 15
BEGIN
KEY "Tot Valore Residuo per cli/fo"
PROMPT 6 1 ""
PICTURE "."
END
END // Fine sezione totale in valuta #1
SECTION TOTVAL2 1 0 1 GROUP
FLAGS "D"
NUMBER 61 10
BEGIN
PROMPT 1 1 ""
END
STRING 62 40
BEGIN
PROMPT 2 1 ""
END
STRINGA 63 4
BEGIN
KEY "Codice valuta #2"
PROMPT 3 1 ""
END
DATA 64 10
BEGIN
PROMPT 4 1 ""
END
NUMBER 65 15
BEGIN
KEY "Tot Valore Ordinato per cli/fo"
PROMPT 5 1 ""
PICTURE "."
END
NUMBER 66 15
BEGIN
KEY "Tot Valore Residuo per cli/fo"
PROMPT 6 1 ""
PICTURE "."
END
END // Fine sezione totale in valuta #2
SECTION TOTVAL3 1 0 1 GROUP
FLAGS "D"
NUMBER 71 10
BEGIN
PROMPT 1 1 ""
END
STRING 72 40
BEGIN
PROMPT 2 1 ""
END
STRINGA 73 4
BEGIN
KEY "Codice valuta #3"
PROMPT 3 1 ""
END
DATA 74 10
BEGIN
PROMPT 4 1 ""
END
NUMBER 75 15
BEGIN
KEY "Tot Valore Ordinato per cli/fo"
PROMPT 5 1 ""
PICTURE "."
END
NUMBER 76 15
BEGIN
KEY "Tot Valore Residuo per cli/fo"
PROMPT 6 1 ""
PICTURE "."
END
END // Fine sezione totale in valuta #3
SECTION TOTVAL4 1 0 1 GROUP
FLAGS "D"
NUMBER 81 10
BEGIN
PROMPT 1 1 ""
END
STRING 82 40
BEGIN
PROMPT 2 1 ""
END
STRINGA 83 4
BEGIN
KEY "Codice valuta #4"
PROMPT 3 1 ""
END
DATA 84 10
BEGIN
PROMPT 4 1 ""
END
NUMBER 85 15
BEGIN
KEY "Tot Valore Ordinato per cli/fo"
PROMPT 5 1 ""
PICTURE "."
END
NUMBER 86 15
BEGIN
KEY "Tot Valore Residuo per cli/fo"
PROMPT 6 1 ""
PICTURE "."
END
END // Fine sezione totale in valuta #4
END // End of Body

590
or/or1100c.frm Executable file
View File

@ -0,0 +1,590 @@
// Form per la stampa ordini per agente
#include "or1100a.h"
// Cursor sorting on main file is set also in application
USE LF_RIGHEDOC BY LF_DOC->CODAG LF_DOC->TIPOCF LF_DOC->CODCF CODNUM NDOC CODART DATACONS
JOIN LF_DOC INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC
JOIN LF_AGENTI TO LF_DOC INTO CODAGE==CODAG
JOIN LF_ANAMAG INTO CODART==CODART
JOIN LF_CLIFO TO LF_DOC INTO TIPOCF==TIPOCF CODCF==CODCF
END
DESCRIPTION
BEGIN
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 10
END
SECTION HEADER ODD 6
STRINGA 1 40 1
BEGIN
KEY "nome ditta"
PROMPT 1 1 "Ditta "
MESSAGE _DITTA, !RAGSOC
END
STRINGA 2 10
BEGIN
KEY "Data"
PROMPT 76 1 "Data "
MESSAGE _TODAY
END
NUMERO 3 7
BEGIN
KEY "Nr. pagina"
PROMPT 92 1 "Pagina "
MESSAGE _PAGENO
END
NUMERO 4 40
BEGIN
KEY "Intestazione stampa"
PROMPT 40 2 "Stampa ordini per agente"
END
END //HEADER
SECTION BODY ODD 4 COLUMNWISE
STRINGA 1 10
BEGIN
SPECIAL STRINGA INTESTAZIONE "Codice" "Codice"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "X " "Fincatura sinistra e destra"
KEY "Codice"
PROMPT 1 1 "@B"
FIELD LF_AGENTI->CODAGE
MESSAGE _ORDINE,VALTABLE,RESET
PICTURE "########"
END
STRING 2 40
BEGIN
SPECIAL STRINGA INTESTAZIONE "Descrizione" "Descrizione"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA " X" "Fincatura sinistra e destra"
KEY "Descrizione Rag Soc"
PROMPT 2 1 ""
FIELD LF_AGENTI->RAGSOC
END
STRINGA 3 4
BEGIN
SPECIAL STRINGA INTESTAZIONE "Val." "Val."
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "Codice Valuta"
PROMPT 3 1 ""
END
DATA 4 10
BEGIN
SPECIAL STRINGA INTESTAZIONE "Data cons." "Data cons."
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "Data consegna documento"
PROMPT 4 1 ""
END
NUMBER 5 15
BEGIN
SPECIAL STRINGA INTESTAZIONE "@CValore" "Valore"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "Valore"
PROMPT 5 1 ""
END
NUMBER 6 15
BEGIN
SPECIAL STRINGA INTESTAZIONE "@CVal.Residuo" "Val.Residuo"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "Valore Residuo"
PROMPT 6 1 ""
END
STRINGA 7 4
BEGIN
SPECIAL STRINGA INTESTAZIONE "UM" "UM"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "Unita' di misura" // Solo intestazione
FLAGS "H"
PROMPT 7 1 ""
GROUP G_DETTAGLIO
END
STRINGA 8 13
BEGIN
SPECIAL STRINGA INTESTAZIONE "Q.ta Ordinata" "Q.ta Ordinata"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "Q.ta Ordinata" // Solo intestazione
FLAGS "H"
PROMPT 8 1 ""
GROUP G_DETTAGLIO
END
STRINGA 9 13
BEGIN
SPECIAL STRINGA INTESTAZIONE "Q.ta Evasa" "Q.ta Evasa"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "Q.ta Evasa" // Solo intestazione
FLAGS "H"
PROMPT 9 1 ""
GROUP G_DETTAGLIO
END
// Raggruppamento di tutte le righe documenti per lo stesso agente
SECTION AGENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_DOC->CODAG
NUMBER 90 10
BEGIN
PROMPT 1 1 ""
FLAGS "H"
MESSAGE RESET,G_TOTALEART@
END
SECTION HCLIENTI 1 0 1 GROUP
FLAGS "D"
NUMBER 91 10
BEGIN
PROMPT 1 1 ""
END
STRING 92 40 2
BEGIN
KEY "Descrizione cliente"
PROMPT 2 1 ""
MESSAGE _STREXPR,LF_DOC->CODCF+" "+LF_CLIFO->RAGSOC
END
END
// Raggruppamento di tutte le righe (intestazioni documenti) per lo stesso cliente
SECTION DOCUMENTI 2 1 1 FILE LF_RIGHEDOC GROUP LF_CLIFO->TIPOCF+LF_CLIFO->CODCF
FLAGS "D"
NUMBER 101 10
BEGIN
PROMPT 1 1 ""
END
STRING 102 40 2
BEGIN
KEY "Descrizione documento"
PROMPT 2 1 ""
MESSAGE _STREXPR,"*Doc. "+LF_DOC->CODNUM+"/"+LF_DOC->NDOC+" del "+LF_DOC->DATADOC
END
STRING 103 4
BEGIN
KEY "Codice Valuta"
PROMPT 3 1 ""
FIELD LF_DOC->CODVAL
END
DATA 104 10
BEGIN
KEY "Data consegna documento"
PROMPT 4 1 ""
FIELD LF_DOC->DATACONS
END
NUMBER 105 15
BEGIN
KEY "Valore Ordinato"
PROMPT 5 1 ""
FIELD LF_DOC->TOTVALORE
MESSAGE _ORDINE,VALTABLE,VALORD
PICTURE "."
END
NUMBER 106 15
BEGIN
KEY "Valore Residuo"
PROMPT 6 1 ""
FIELD LF_DOC->TOTVALRES
MESSAGE _ORDINE,VALTABLE,VALRES
PICTURE "."
END
// Raggruppamento righe stesso documento
SECTION RIGHEDOC 2 1 1 FILE LF_RIGHEDOC GROUP NDOC
FLAGS "D" // Da abilitare solo su dettaglio righe
NUMBER 201 10
BEGIN
PROMPT 1 1 ""
END
STRING 202 40 2
BEGIN
KEY "Descrizione articolo"
PROMPT 2 1 ""
MESSAGE _STREXPR,"**Art. "+LF_RIGHEDOC->CODART+" "+LF_ANAMAG->DESCR
END
STRING 203 4
BEGIN
KEY "Codice Valuta"
PROMPT 3 1 ""
END
DATA 204 10
BEGIN
KEY "Data consegna articolo"
PROMPT 4 1 ""
FIELD LF_RIGHEDOC->DATACONS
END
NUMBER 205 15
BEGIN
KEY "Valore Ordinato"
PROMPT 5 1 ""
FIELD LF_RIGHEDOC->RIGAVALORE
PICTURE "."
END
NUMBER 206 15
BEGIN
KEY "Valore Residuo"
PROMPT 6 1 ""
FIELD LF_RIGHEDOC->RIGAVALRES
PICTURE "."
END
STRINGA 207 4
BEGIN
KEY "Unita' di misura"
PROMPT 7 1 ""
FIELD LF_RIGHEDOC->UMQTA
END
NUMBER 208 13
BEGIN
KEY "Q.ta Ordinata"
PROMPT 8 1 ""
FIELD LF_RIGHEDOC->QTA
PICTURE "#@,@@@"
END
NUMBER 209 13
BEGIN
KEY "Q.ta Evasa"
PROMPT 9 1 ""
FIELD LF_RIGHEDOC->QTAEVASA
PICTURE "#@,@@@"
END
END // END SECTION RIGHEDOC
END // END SECTION DOCUMENTI
// Ragruppamento eventuale per cliente in caso di stampa righe articolo;
// viene settato a LF_CLIFO->TIPOCF+LF_CLIFO->CODCF dal programma nel
// caso l'utente decida di distinguere per cliente.
SECTION ARTCLI 2 1 1 FILE LF_RIGHEDOC //GROUP
// Ecco la sezione per raggruppamento/dettaglio per riga articolo
FLAGS "D" // Sezione abilitata se non si stampa per documenti
SECTION RIGHEART 1 0 0 FILE LF_RIGHEDOC GROUP CODVAL+CODART+DATACONS
//FLAGS "D"
NUMBER 301 10
BEGIN
PROMPT 1 1 ""
FLAGS "H"
END
STRING 302 40 2
BEGIN
KEY "Descrizione"
PROMPT 2 1 ""
MESSAGE _ORDINE,DESCRIZIONE|COPY,402
FLAGS "H"
END
STRING 303 4
BEGIN
KEY "Codice Valuta"
PROMPT 3 1 ""
FIELD LF_DOC->CODVAL
MESSAGE COPY,403
FLAGS "H"
END
DATA 304 10
BEGIN
KEY "Data consegna articolo"
PROMPT 4 1 ""
FIELD LF_RIGHEDOC->DATACONS
MESSAGE COPY,404
FLAGS "H"
END
NUMBER 305 15
BEGIN
KEY "Valore Ordinato"
PROMPT 5 1 ""
FIELD LF_RIGHEDOC->RIGAVALORE
MESSAGE _ORDINE,VALTABLE,VALORD|ADD,405
PICTURE "."
FLAGS "H"
END
NUMBER 306 15
BEGIN
KEY "Valore Residuo"
PROMPT 6 1 ""
FIELD LF_RIGHEDOC->RIGAVALRES
PICTURE "."
FLAGS "H"
MESSAGE _ORDINE,VALTABLE,VALRES|ADD,406
END
STRINGA 307 4
BEGIN
KEY "Unita' di misura"
PROMPT 7 1 ""
FIELD LF_RIGHEDOC->UMQTA
MESSAGE _ORDINE,SELECTUM|COPY,407
FLAGS "H"
END
NUMBER 308 13
BEGIN
KEY "Q.ta Ordinata"
PROMPT 8 1 ""
FIELD LF_RIGHEDOC->QTA
MESSAGE _ORDINE,CONVUM|ADD,408
FLAGS "H"
END
NUMBER 309 13
BEGIN
KEY "Q.ta Evasa"
PROMPT 9 1 ""
FIELD LF_RIGHEDOC->QTAEVASA
MESSAGE _ORDINE,CONVUM|ADD,409
FLAGS "H"
END
END // END SECTION RIGHEART
// Totalizers for previous section
NUMBER 401 10
BEGIN
PROMPT 1 1 ""
//FLAGS "D"
END
STRING 402 40 2
BEGIN
KEY "Descrizione"
PROMPT 2 1 ""
//FLAGS "D"
END
STRING 403 4
BEGIN
KEY "Codice Valuta"
PROMPT 3 1 ""
//FLAGS "D"
END
DATA 404 10
BEGIN
KEY "Data consegna articolo"
PROMPT 4 1 ""
//FLAGS "D"
END
NUMBER 405 15
BEGIN
KEY "Valore Ordinato"
PROMPT 5 1 ""
PICTURE "."
//FLAGS "D"
GROUP G_TOTALEART
END
NUMBER 406 15
BEGIN
KEY "Valore Residuo"
PROMPT 6 1 ""
PICTURE "."
//FLAGS "D"
GROUP G_TOTALEART
END
STRINGA 407 4
BEGIN
KEY "Unita' di misura"
PROMPT 7 1 ""
//FLAGS "D"
GROUP G_TOTALEART
END
NUMBER 408 13
BEGIN
KEY "Q.ta Ordinata"
PROMPT 8 1 ""
PICTURE "#@,@@@"
//FLAGS "D"
GROUP G_TOTALEART
END
NUMBER 409 13
BEGIN
KEY "Q.ta Evasa"
PROMPT 9 1 ""
PICTURE "#@,@@@"
//FLAGS "D"
GROUP G_TOTALEART
END
END // END SECTION ARTCLI
END // END SECTION AGENTI
// Sezioni di totalizzazione per Valuta (4, shown & hidden at runtime by VALTABLE messages in application code)
SECTION TOTVAL1 3 0 1 GROUP
FLAGS "D"
NUMBER 51 10
BEGIN
PROMPT 1 1 ""
END
STRING 52 40
BEGIN
PROMPT 2 1 ""
END
STRINGA 53 4
BEGIN
KEY "Codice valuta #1"
PROMPT 3 1 ""
END
DATA 54 10
BEGIN
PROMPT 4 1 ""
END
NUMBER 55 15
BEGIN
KEY "Tot Valore Ordinato per agente"
PROMPT 5 1 ""
PICTURE "."
END
NUMBER 56 15
BEGIN
KEY "Tot Valore Residuo per agente"
PROMPT 6 1 ""
PICTURE "."
END
END // Fine sezione totale in valuta #1
SECTION TOTVAL2 1 0 1 GROUP
FLAGS "D"
NUMBER 61 10
BEGIN
PROMPT 1 1 ""
END
STRING 62 40
BEGIN
PROMPT 2 1 ""
END
STRINGA 63 4
BEGIN
KEY "Codice valuta #2"
PROMPT 3 1 ""
END
DATA 64 10
BEGIN
PROMPT 4 1 ""
END
NUMBER 65 15
BEGIN
KEY "Tot Valore Ordinato per agente"
PROMPT 5 1 ""
PICTURE "."
END
NUMBER 66 15
BEGIN
KEY "Tot Valore Residuo per agente"
PROMPT 6 1 ""
PICTURE "."
END
END // Fine sezione totale in valuta #2
SECTION TOTVAL3 1 0 1 GROUP
FLAGS "D"
NUMBER 71 10
BEGIN
PROMPT 1 1 ""
END
STRING 72 40
BEGIN
PROMPT 2 1 ""
END
STRINGA 73 4
BEGIN
KEY "Codice valuta #3"
PROMPT 3 1 ""
END
DATA 74 10
BEGIN
PROMPT 4 1 ""
END
NUMBER 75 15
BEGIN
KEY "Tot Valore Ordinato per agente"
PROMPT 5 1 ""
PICTURE "."
END
NUMBER 76 15
BEGIN
KEY "Tot Valore Residuo per agente"
PROMPT 6 1 ""
PICTURE "."
END
END // Fine sezione totale in valuta #3
SECTION TOTVAL4 1 0 1 GROUP
FLAGS "D"
NUMBER 81 10
BEGIN
PROMPT 1 1 ""
END
STRING 82 40
BEGIN
PROMPT 2 1 ""
END
STRINGA 83 4
BEGIN
KEY "Codice valuta #4"
PROMPT 3 1 ""
END
DATA 84 10
BEGIN
PROMPT 4 1 ""
END
NUMBER 85 15
BEGIN
KEY "Tot Valore Ordinato per agente"
PROMPT 5 1 ""
PICTURE "."
END
NUMBER 86 15
BEGIN
KEY "Tot Valore Residuo per agente"
PROMPT 6 1 ""
PICTURE "."
END
END // Fine sezione totale in valuta #4
END // End of Body

446
or/or1100d.frm Executable file
View File

@ -0,0 +1,446 @@
// Form per la stampa ordini per articolo
#include "or1100a.h"
// Cursor sorting on main file is set also in application
USE LF_RIGHEDOC BY CODART CODNUM NDOC CODART DATACONS
JOIN LF_DOC INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC
JOIN LF_ANAMAG INTO CODART==CODART
END
DESCRIPTION
BEGIN
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 10
END
SECTION HEADER ODD 6
STRINGA 1 40 1
BEGIN
KEY "nome ditta"
PROMPT 1 1 "Ditta "
MESSAGE _DITTA, !RAGSOC
END
STRINGA 2 10
BEGIN
KEY "Data"
PROMPT 76 1 "Data "
MESSAGE _TODAY
END
NUMERO 3 7
BEGIN
KEY "Nr. pagina"
PROMPT 92 1 "Pagina "
MESSAGE _PAGENO
END
NUMERO 4 40
BEGIN
KEY "Intestazione stampa"
PROMPT 40 2 "Stampa ordini per articolo"
END
END //HEADER
SECTION BODY ODD 4 COLUMNWISE
STRINGA 1 10
BEGIN
SPECIAL STRINGA INTESTAZIONE "Codice" "Codice"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "X " "Fincatura sinistra e destra"
KEY "Codice"
PROMPT 1 1 "@B"
FIELD LF_RIGHEDOC->CODART
MESSAGE _ORDINE,VALTABLE,RESET
PICTURE "########"
END
STRING 2 40
BEGIN
SPECIAL STRINGA INTESTAZIONE "Descrizione" "Descrizione"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA " X" "Fincatura sinistra e destra"
KEY "Descrizione art."
PROMPT 2 1 ""
FIELD LF_ANAMAG->DESCR
END
STRINGA 3 4
BEGIN
SPECIAL STRINGA INTESTAZIONE "Val." "Val."
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "Codice Valuta"
PROMPT 3 1 ""
END
DATA 4 10
BEGIN
SPECIAL STRINGA INTESTAZIONE "Data cons." "Data cons."
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "Data consegna articolo"
PROMPT 4 1 ""
END
NUMBER 5 15
BEGIN
SPECIAL STRINGA INTESTAZIONE "@CValore" "Valore"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "Valore"
PROMPT 5 1 ""
END
NUMBER 6 15
BEGIN
SPECIAL STRINGA INTESTAZIONE "@CVal.Residuo" "Val.Residuo"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "Valore Residuo"
PROMPT 6 1 ""
END
STRINGA 7 4
BEGIN
SPECIAL STRINGA INTESTAZIONE "UM" "UM"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "Unita' di misura" // Solo intestazione
PROMPT 7 1 ""
GROUP G_DETTAGLIO
END
STRINGA 8 13
BEGIN
SPECIAL STRINGA INTESTAZIONE "Q.ta Ordinata" "Q.ta Ordinata"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "Q.ta Ordinata" // Solo intestazione
PROMPT 8 1 ""
GROUP G_DETTAGLIO
END
STRINGA 9 13
BEGIN
SPECIAL STRINGA INTESTAZIONE "Q.ta Evasa" "Q.ta Evasa"
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
KEY "Q.ta Evasa" // Solo intestazione
PROMPT 9 1 ""
GROUP G_DETTAGLIO
END
// Raggruppamento righe documenti per lo stesso codice articolo
SECTION ARTMAIN 2 1 1 FILE LF_RIGHEDOC GROUP CODART
SECTION ARTICOLI 1 0 0 FILE LF_RIGHEDOC GROUP CODVAL+DATACONS
FLAGS "D"
NUMBER 301 10
BEGIN
PROMPT 1 1 ""
FLAGS "H"
END
STRING 302 40 2
BEGIN
KEY "Descrizione"
PROMPT 2 1 ""
MESSAGE _ORDINE,DESCRIZIONE|COPY,402
FLAGS "H"
END
STRING 303 4
BEGIN
KEY "Codice Valuta"
PROMPT 3 1 ""
FIELD LF_DOC->CODVAL
MESSAGE COPY,403
FLAGS "H"
END
DATA 304 10
BEGIN
KEY "Data consegna articolo"
PROMPT 4 1 ""
FIELD LF_RIGHEDOC->DATACONS
MESSAGE COPY,404
FLAGS "H"
END
NUMBER 305 15
BEGIN
KEY "Valore Ordinato"
PROMPT 5 1 ""
FIELD LF_RIGHEDOC->RIGAVALORE
MESSAGE _ORDINE,VALTABLE,VALORD|ADD,405
PICTURE "."
FLAGS "H"
END
NUMBER 306 15
BEGIN
KEY "Valore Residuo"
PROMPT 6 1 ""
FIELD LF_RIGHEDOC->RIGAVALRES
PICTURE "."
FLAGS "H"
MESSAGE _ORDINE,VALTABLE,VALRES|ADD,406
END
STRINGA 307 4
BEGIN
KEY "Unita' di misura"
PROMPT 7 1 ""
FIELD LF_RIGHEDOC->UMQTA
MESSAGE _ORDINE,SELECTUM|COPY,407
FLAGS "H"
END
NUMBER 308 13
BEGIN
KEY "Q.ta Ordinata"
PROMPT 8 1 ""
FIELD LF_RIGHEDOC->QTA
MESSAGE _ORDINE,CONVUM|ADD,408
FLAGS "H"
END
NUMBER 309 13
BEGIN
KEY "Q.ta Evasa"
PROMPT 9 1 ""
FIELD LF_RIGHEDOC->QTAEVASA
MESSAGE _ORDINE,CONVUM|ADD,409
FLAGS "H"
END
END // END SECTION ARTICOLI
// Totalizers for previous section
NUMBER 401 10
BEGIN
PROMPT 1 1 ""
FLAGS "D"
END
STRING 402 40 2
BEGIN
KEY "Descrizione"
PROMPT 2 1 ""
FLAGS "D"
END
STRING 403 4
BEGIN
KEY "Codice Valuta"
PROMPT 3 1 ""
FLAGS "D"
END
DATA 404 10
BEGIN
KEY "Data consegna articolo"
PROMPT 4 1 ""
FLAGS "D"
END
NUMBER 405 15
BEGIN
KEY "Valore Ordinato"
PROMPT 5 1 ""
PICTURE "."
FLAGS "D"
//MESSAGE _ORDINE,VALTABLE,VALORD
GROUP G_TOTALEART
END
NUMBER 406 15
BEGIN
KEY "Valore Residuo"
PROMPT 6 1 ""
PICTURE "."
FLAGS "D"
//MESSAGE _ORDINE,VALTABLE,VALRES
GROUP G_TOTALEART
END
STRINGA 407 4
BEGIN
KEY "Unita' di misura"
PROMPT 7 1 ""
FLAGS "D"
GROUP G_TOTALEART
END
NUMBER 408 13
BEGIN
KEY "Q.ta Ordinata"
PROMPT 8 1 ""
PICTURE "#@,@@@"
FLAGS "D"
GROUP G_TOTALEART
END
NUMBER 409 13
BEGIN
KEY "Q.ta Evasa"
PROMPT 9 1 ""
PICTURE "#@,@@@"
FLAGS "D"
GROUP G_TOTALEART
END
END // SEZIONE ARTMAIN
// Sezioni di totalizzazione per Valuta (4, shown & hidden at runtime by VALTABLE messages in application code)
SECTION TOTVAL1 3 0 1 GROUP
FLAGS "D"
NUMBER 51 10
BEGIN
PROMPT 1 1 ""
END
STRING 52 40
BEGIN
PROMPT 2 1 ""
END
STRINGA 53 4
BEGIN
KEY "Codice valuta #1"
PROMPT 3 1 ""
END
DATA 54 10
BEGIN
PROMPT 4 1 ""
END
NUMBER 55 15
BEGIN
KEY "Tot Valore Ordinato per cli/fo"
PROMPT 5 1 ""
PICTURE "."
END
NUMBER 56 15
BEGIN
KEY "Tot Valore Residuo per cli/fo"
PROMPT 6 1 ""
PICTURE "."
END
END // Fine sezione totale in valuta #1
SECTION TOTVAL2 1 0 1 GROUP
FLAGS "D"
NUMBER 61 10
BEGIN
PROMPT 1 1 ""
END
STRING 62 40
BEGIN
PROMPT 2 1 ""
END
STRINGA 63 4
BEGIN
KEY "Codice valuta #2"
PROMPT 3 1 ""
END
DATA 64 10
BEGIN
PROMPT 4 1 ""
END
NUMBER 65 15
BEGIN
KEY "Tot Valore Ordinato per cli/fo"
PROMPT 5 1 ""
PICTURE "."
END
NUMBER 66 15
BEGIN
KEY "Tot Valore Residuo per cli/fo"
PROMPT 6 1 ""
PICTURE "."
END
END // Fine sezione totale in valuta #2
SECTION TOTVAL3 1 0 1 GROUP
FLAGS "D"
NUMBER 71 10
BEGIN
PROMPT 1 1 ""
END
STRING 72 40
BEGIN
PROMPT 2 1 ""
END
STRINGA 73 4
BEGIN
KEY "Codice valuta #3"
PROMPT 3 1 ""
END
DATA 74 10
BEGIN
PROMPT 4 1 ""
END
NUMBER 75 15
BEGIN
KEY "Tot Valore Ordinato per cli/fo"
PROMPT 5 1 ""
PICTURE "."
END
NUMBER 76 15
BEGIN
KEY "Tot Valore Residuo per cli/fo"
PROMPT 6 1 ""
PICTURE "."
END
END // Fine sezione totale in valuta #3
SECTION TOTVAL4 1 0 1 GROUP
FLAGS "D"
NUMBER 81 10
BEGIN
PROMPT 1 1 ""
END
STRING 82 40
BEGIN
PROMPT 2 1 ""
END
STRINGA 83 4
BEGIN
KEY "Codice valuta #4"
PROMPT 3 1 ""
END
DATA 84 10
BEGIN
PROMPT 4 1 ""
END
NUMBER 85 15
BEGIN
KEY "Tot Valore Ordinato per cli/fo"
PROMPT 5 1 ""
PICTURE "."
END
NUMBER 86 15
BEGIN
KEY "Tot Valore Residuo per cli/fo"
PROMPT 6 1 ""
PICTURE "."
END
END // Fine sezione totale in valuta #4
END // End of Body

36
or/or1200.cpp Executable file
View File

@ -0,0 +1,36 @@
// Stampa dettaglio disponibilita' articoli
#include <applicat.h>
class TStampa_dettaglio_articoli : public TSkeleton_application
{
protected:
virtual bool create();
virtual bool destroy();
virtual void main_loop();
public:
TStampa_dettaglio_articoli() {};
virtual ~TStampa_dettaglio_articoli() {};
};
bool TStampa_dettaglio_articoli::create()
{
return TSkeleton_application::create();
}
bool TStampa_dettaglio_articoli::destroy()
{
return TSkeleton_application::destroy();
}
void TStampa_dettaglio_articoli::main_loop()
{
sorry_box("Programma non ancora implementato.");
}
int or1200(int argc, char** argv)
{
TStampa_dettaglio_articoli a;
a.run(argc,argv,"Stampa dettaglio articoli");
return 0;
}

36
or/or1300.cpp Executable file
View File

@ -0,0 +1,36 @@
// Stampa statistiche sui tempi di consegna
#include <applicat.h>
class TStampa_statistiche_consegna : public TSkeleton_application
{
protected:
virtual bool create();
virtual bool destroy();
virtual void main_loop();
public:
TStampa_statistiche_consegna() {};
virtual ~TStampa_statistiche_consegna() {};
};
bool TStampa_statistiche_consegna::create()
{
return TSkeleton_application::create();
}
bool TStampa_statistiche_consegna::destroy()
{
return TSkeleton_application::destroy();
}
void TStampa_statistiche_consegna::main_loop()
{
sorry_box("Programma non ancora implementato.");
}
int or1300(int argc, char** argv)
{
TStampa_statistiche_consegna a;
a.run(argc,argv,"Stampa tempi di consegna");
return 0;
}