campo-sirio/db/db1100a.frm

// 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
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