d0ab8cc457
Files correlati : Ricompilazione Demo : [ ] Commento : riportata la versione 98.01.05 patch 34 git-svn-id: svn://10.65.10.50/trunk@7409 c028cbd2-c16b-5b4b-a496-9718f37d4682
164 lines
3.3 KiB
Plaintext
Executable File
164 lines
3.3 KiB
Plaintext
Executable File
// Form per la stampa esplosione distinte
|
|
|
|
USE LF_DIST
|
|
JOIN LF_ANAMAG INTO CODART==CODDIST
|
|
JOIN LAV ALIAS 201 INTO CODTAB==CODDIST
|
|
END
|
|
|
|
DESCRIPTION
|
|
BEGIN
|
|
END
|
|
|
|
|
|
GENERAL
|
|
BEGIN
|
|
OFFSET 0 0
|
|
FONT "Courier New"
|
|
SIZE 10
|
|
END
|
|
|
|
|
|
SECTION HEADER ODD 7
|
|
|
|
STRINGA 1 40 1
|
|
BEGIN
|
|
KEY "nome ditta"
|
|
PROMPT 1 1 "Ditta "
|
|
MESSAGE _DITTA, !RAGSOC
|
|
END
|
|
|
|
STRINGA 2 10
|
|
BEGIN
|
|
KEY "Data"
|
|
PROMPT 106 1 "Data "
|
|
MESSAGE _TODAY
|
|
END
|
|
|
|
NUMERO 3 7
|
|
BEGIN
|
|
KEY "Nr. pagina"
|
|
PROMPT 122 1 "Pagina "
|
|
MESSAGE _PAGENO
|
|
END
|
|
|
|
STRINGA 4 40
|
|
BEGIN
|
|
KEY "Intestazione stampa"
|
|
PROMPT 60 2 "@BStampa esplosione distinte al "
|
|
END
|
|
|
|
END //HEADER
|
|
|
|
|
|
SECTION BODY ODD 2 COLUMNWISE
|
|
|
|
STRING 1 20
|
|
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 ""
|
|
MESSAGE _DISTINTA,_COD
|
|
END
|
|
|
|
STRING 2 40 2
|
|
BEGIN
|
|
SPECIAL STRINGA INTESTAZIONE "Descrizione" "Descrizione"
|
|
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
|
|
SPECIAL STRINGA FINCATURA " X" "Fincatura sinistra e destra"
|
|
KEY "Descrizione"
|
|
MESSAGE _DISTINTA,_DES
|
|
PROMPT 2 1 ""
|
|
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"
|
|
MESSAGE _DISTINTA,_DCO
|
|
PROMPT 3 1 ""
|
|
END
|
|
|
|
NUMERO 4 4
|
|
BEGIN
|
|
SPECIAL STRINGA INTESTAZIONE "Liv" "Liv."
|
|
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
|
|
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
|
|
KEY "Livello riga distinta"
|
|
PROMPT 4 1 ""
|
|
MESSAGE _DISTINTA,_LIV
|
|
END
|
|
|
|
STRINGA 5 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"
|
|
PROMPT 5 1 ""
|
|
MESSAGE _DISTINTA,_UM
|
|
END
|
|
|
|
NUMBER 6 14 5
|
|
BEGIN
|
|
SPECIAL STRINGA INTESTAZIONE "@cFabbisogno" "Fabbisogno"
|
|
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
|
|
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
|
|
KEY "Fabbisogno"
|
|
PROMPT 6 1 ""
|
|
MESSAGE _DISTINTA,_FAB
|
|
PICTURE "########,@@@@@"
|
|
END
|
|
|
|
NUMBER 7 14 5
|
|
BEGIN
|
|
SPECIAL STRINGA INTESTAZIONE "@cDisponibilita'" "Disponibilita'"
|
|
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
|
|
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
|
|
KEY "Disponibilita'"
|
|
PROMPT 7 1 ""
|
|
MESSAGE _DISTINTA,_DIS
|
|
PICTURE "########,@@@@@"
|
|
END
|
|
|
|
NUMBER 8 14 5
|
|
BEGIN
|
|
SPECIAL STRINGA INTESTAZIONE "@cFabbisogno da ord./prod." "Fabbisogno da ordinare"
|
|
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
|
|
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
|
|
KEY "Fabbisogno da ordinare/produrre"
|
|
PROMPT 8 1 ""
|
|
MESSAGE _DISTINTA,_ORDPROD
|
|
PICTURE "########,@@@@@"
|
|
END
|
|
|
|
NUMBER 9 14 5
|
|
BEGIN
|
|
SPECIAL STRINGA INTESTAZIONE "@cDisp. residua" "Disp. residua"
|
|
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
|
|
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
|
|
KEY "Disponibilita' residua"
|
|
PROMPT 9 1 ""
|
|
MESSAGE _DISTINTA,_RESIDUO
|
|
PICTURE "########,@@@@@"
|
|
END
|
|
|
|
NUMBER 10 14 3
|
|
BEGIN
|
|
SPECIAL STRINGA INTESTAZIONE "@cValore" "Valore"
|
|
SPECIAL NUMERO OFFSET "0" "Offset iniziale campo"
|
|
SPECIAL STRINGA FINCATURA "XX" "Fincatura sinistra e destra"
|
|
KEY "Valore"
|
|
PROMPT 10 1 ""
|
|
MESSAGE _DISTINTA,_VALORE
|
|
PICTURE "."
|
|
END
|
|
|
|
END // End of Body
|
|
|
|
END // End of form
|
|
|