diff --git a/ba/bastscc.uml b/ba/bastscc.uml new file mode 100755 index 000000000..d59e87359 --- /dev/null +++ b/ba/bastscc.uml @@ -0,0 +1,42 @@ +#include "ba3200.h" + +PAGE "Stampa sconti incondizionati" -1 -1 50 8 +STRING F_INIZIO1 2 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "U" + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archvio" + FIELD LF_TABCOM->CODTAB + USE %SCO + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 2 +BEGIN + PROMPT 2 3 "A codice " + FLAGS "U" + HELP "Codice di fine. Vuoto = fine archivio" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/batbscc.h b/ba/batbscc.h new file mode 100755 index 000000000..4a501136e --- /dev/null +++ b/ba/batbscc.h @@ -0,0 +1,21 @@ + + +// campi maschera batb%sco.msk + +#define F_CODICE 101 +#define F_DESCR 102 + + + + + + + + + + + + + + + diff --git a/ba/batbscc.rpt b/ba/batbscc.rpt new file mode 100755 index 000000000..c329c4086 --- /dev/null +++ b/ba/batbscc.rpt @@ -0,0 +1,9 @@ +[Headers] +80 +Tabella Sconti incondizionati +1|@3g%s|Codice +1|@14g%s|Descrizione + +[Rows] +1|CODTAB|@3g@2,ls +1|S0|@14g@50,ls diff --git a/ba/batbscc.uml b/ba/batbscc.uml new file mode 100755 index 000000000..4e392163c --- /dev/null +++ b/ba/batbscc.uml @@ -0,0 +1,41 @@ +#include "batbscc.h" + +TOOLBAR "" 0 20 0 2 + +#include + +ENDPAGE + +PAGE "Tabella Sconti clienti" -1 -1 78 8 + +STRING F_CODICE 2 +BEGIN +PROMPT 4 2 "Codice " +HELP "Codice sconto cliente" +FIELD CODTAB +FLAGS "U" +KEY 1 +USE %SCC +INPUT CODTAB F_CODICE +DISPLAY "Codice" CODTAB +DISPLAY "Descrizione @50" S0 +OUTPUT F_CODICE CODTAB +CHECKTYPE REQUIRED +END + +STRING F_DESCR 50 +BEGIN +PROMPT 4 4 "Descrizione " +HELP "Descrizione sconto incondizionato" +FIELD S0 +KEY 2 +USE %SCC KEY 2 +INPUT CODTAB F_DESCR +DISPLAY "Descrizione @50" S0 +DISPLAY "Codice" CODTAB +OUTPUT F_CODICE CODTAB +CHECKTYPE REQUIRED +END + +ENDPAGE +ENDMASK