4fe9dfe7d6
Files correlati : Ricompilazione Demo : [ ] Commento : Aggiunto form per stampa ordini numero/data git-svn-id: svn://10.65.10.50/trunk@6781 c028cbd2-c16b-5b4b-a496-9718f37d4682
241 lines
4.3 KiB
Plaintext
Executable File
241 lines
4.3 KiB
Plaintext
Executable File
// Form per la stampa ordini per numero/data
|
|
|
|
#include "or1100a.h"
|
|
|
|
USE LF_DOC
|
|
JOIN LF_RIGHEDOC INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC
|
|
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 32
|
|
BEGIN
|
|
KEY "Intestazione stampa"
|
|
PROMPT 40 2 "Stampa ordini per numero/data"
|
|
END
|
|
|
|
END //HEADER
|
|
|
|
|
|
SECTION BODY ODD 2 COLUMNWISE
|
|
|
|
STRING 1 22
|
|
BEGIN
|
|
SPECIAL STRINGA INTESTAZIONE "Documento" "Documento"
|
|
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
|
|
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
|
|
KEY "Descrizione documento"
|
|
PROMPT 1 1 "@B"
|
|
MESSAGE _STREXPR,CODNUM+"/"+NDOC+" del "+DATADOC
|
|
END
|
|
|
|
STRING 2 50
|
|
BEGIN
|
|
SPECIAL STRINGA INTESTAZIONE "Cod./Descrizione" "Cod./Descrizione"
|
|
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
|
|
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
|
|
KEY "Cod./Descrizione"
|
|
PROMPT 2 1 ""
|
|
MESSAGE _STREXPR,CODCF+" "+LF_CLIFO->RAGSOC
|
|
//MESSAGE _CLIENTE, !RAGSOC da implementare a causa degli occasionali...
|
|
END
|
|
|
|
|
|
DATA 3 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 3 1 ""
|
|
FIELD DATACONS
|
|
END
|
|
|
|
NUMBER 4 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 4 1 ""
|
|
FIELD TOTVALORE
|
|
PICTURE "."
|
|
END
|
|
|
|
NUMBER 5 11
|
|
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 5 1 ""
|
|
FIELD TOTVALRES
|
|
PICTURE "."
|
|
END
|
|
|
|
STRINGA 6 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 6 1 ""
|
|
GROUP G_DETTAGLIO
|
|
END
|
|
|
|
STRINGA 7 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 7 1 ""
|
|
GROUP G_DETTAGLIO
|
|
END
|
|
|
|
STRINGA 8 13
|
|
BEGIN
|
|
SPECIAL STRINGA INTESTAZIONE "@CQ.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 8 1 ""
|
|
GROUP G_DETTAGLIO
|
|
END
|
|
|
|
// Sezione di dettaglio righe / raggruppamento articoli per ordine corrente
|
|
|
|
SECTION DET 2 0 0 FILE LF_RIGHEDOC
|
|
FLAGS "H" // Abilitata solo se dettaglio righe
|
|
|
|
SECTION RIGHE 1 1 1 GROUP // Viene cambiata in STREXPR da programma
|
|
|
|
STRINGA 100 22
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
END
|
|
|
|
STRINGA 101 50
|
|
BEGIN
|
|
PROMPT 2 1 ""
|
|
MESSAGE _STREXPR, LF_RIGHEDOC->CODART+" "+LF_RIGHEDOC->DESCR
|
|
END
|
|
|
|
DATA 102 10
|
|
BEGIN
|
|
PROMPT 3 1 ""
|
|
FIELD LF_RIGHEDOC->DATACONS
|
|
END
|
|
|
|
NUMBER 103 15
|
|
BEGIN
|
|
PROMPT 4 1 "" // valore
|
|
FIELD LF_RIGHEDOC->RIGAVALORE
|
|
MESSAGE ADD, FL->203
|
|
PICTURE "."
|
|
END
|
|
|
|
NUMBER 104 11
|
|
BEGIN
|
|
PROMPT 5 1 "" // Val residuo riga
|
|
FIELD LF_RIGHEDOC->RIGAVALRES
|
|
MESSAGE ADD, FL->204
|
|
PICTURE "."
|
|
END
|
|
|
|
STRINGA 105 4
|
|
BEGIN
|
|
PROMPT 6 1 "" // Unita' di misura
|
|
FIELD LF_RIGHEDOC->UMQTA
|
|
END
|
|
|
|
NUMBER 106 13
|
|
BEGIN
|
|
PROMPT 7 1 "" // Q.ta Ordinata
|
|
FIELD LF_RIGHEDOC->QTA
|
|
PICTURE "#@,@@@"
|
|
END
|
|
|
|
NUMBER 107 13
|
|
BEGIN
|
|
PROMPT 8 1 "" // Q.ta Evasa
|
|
FIELD LF_RIGHEDOC->QTAEVASA
|
|
PICTURE "#@,@@@"
|
|
END
|
|
|
|
END //SECTION RIGHE
|
|
|
|
END // SECTION DET
|
|
|
|
END //BODY
|
|
|
|
SECTION FOOTER LAST 5 COLUMNWISE
|
|
|
|
STRINGA 200 22
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
END
|
|
|
|
STRINGA 201 50
|
|
BEGIN
|
|
PROMPT 2 1 "@BTotale:"
|
|
END
|
|
|
|
DATA 202 10
|
|
BEGIN
|
|
PROMPT 3 1 ""
|
|
END
|
|
|
|
NUMBER 203 15
|
|
BEGIN
|
|
PROMPT 4 1 "" // valore
|
|
PICTURE "."
|
|
END
|
|
|
|
NUMBER 204 11
|
|
BEGIN
|
|
PROMPT 5 1 "" // Val residuo riga
|
|
PICTURE "."
|
|
END
|
|
|
|
END //FOOTER
|
|
|