diff --git a/cg/cgstcam.rep b/cg/cgstcam.rep new file mode 100755 index 000000000..bee04604f --- /dev/null +++ b/cg/cgstcam.rep @@ -0,0 +1,57 @@ + + + +
+ + + #SYSTEM.RAGSOC + + + + + + + + + + + + + + + + + + +
+
+
+
+ + CODTAB + + + D0 + + + S0 + + + S4 + +
+
+ + + #SYSTEM.DATE + + + #PAGE + + +
+
+ USE CAM + FROM CODTAB=#FROM + TO CODTAB=#TO + \ No newline at end of file diff --git a/cg/cgstcam.uml b/cg/cgstcam.uml new file mode 100755 index 000000000..44186cced --- /dev/null +++ b/cg/cgstcam.uml @@ -0,0 +1,62 @@ +#include "../ba/ba3200.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Stampa Tabella Cambi Giornalieri" 0 2 0 0 + +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da valuta " + FIELD FROM[1,3] + USE CAM + JOIN %VAL ALIAS 200 INTO CODTAB=CODTAB[1,3] + INPUT CODTAB[1,3] F_INIZIO1 + INPUT CODTAB[4,11] F_INIZIO2 + DISPLAY "Valuta" CODTAB[1,3] + DISPLAY "Data valuta" D0 + DISPLAY "Descrizione@50" -200->S0 + OUTPUT F_INIZIO1 CODTAB[1,3] + OUTPUT F_INIZIO2 CODTAB[4,14] + FLAGS "UZ" + GROUP 1 +END + +DATE F_INIZIO2 +BEGIN + PROMPT 28 1 "Da data " + FIELD FROM[4,11] + COPY ALL F_INIZIO1 + FLAGS "R" + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 2 2 "A valuta " + FIELD TO[1,3] + COPY USE F_INIZIO1 + INPUT CODTAB[1,3] F_FINE1 + INPUT CODTAB[4,11] F_FINE2 + DISPLAY "Valuta" CODTAB[1,3] + DISPLAY "Data valuta" D0 + DISPLAY "Descrizione@50" -200->S0 + OUTPUT F_FINE1 CODTAB[1,3] + OUTPUT F_FINE2 CODTAB[4,11] + FLAGS "UZ" + GROUP 2 +END + + +DATE F_FINE2 +BEGIN + PROMPT 28 2 "A data " + FIELD TO[4,11] + FLAGS "R" + COPY ALL F_FINE1 + GROUP 2 +END + +ENDPAGE +ENDMASK diff --git a/cg/cgstcco.rep b/cg/cgstcco.rep new file mode 100755 index 000000000..eea14711d --- /dev/null +++ b/cg/cgstcco.rep @@ -0,0 +1,69 @@ + + + +
+ + + #SYSTEM.RAGSOC + + + + + + + + + + + + + + + + + + +
+
+
+
+ + CODTAB + + + S0 + + + I3 + + + I4 + + + I5 + + + I0 + + + I1 + + + I2 + +
+
+ + + #SYSTEM.DATE + + + #PAGE + + +
+
+ USE CCO + FROM CODTAB=#FROM + TO CODTAB=#TO + \ No newline at end of file diff --git a/cg/cgstcco.uml b/cg/cgstcco.uml new file mode 100755 index 000000000..70793f4d8 --- /dev/null +++ b/cg/cgstcco.uml @@ -0,0 +1,35 @@ +#include "../ba/ba3200.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Stampa Categorie contabili" 0 2 0 0 + +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "U" + FIELD FROM + USE CCO + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 20 1 "A codice " + FLAGS "U" + FIELD TO + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +ENDPAGE +ENDMASK diff --git a/cg/cgstcve.rep b/cg/cgstcve.rep new file mode 100755 index 000000000..061bae6a1 --- /dev/null +++ b/cg/cgstcve.rep @@ -0,0 +1,87 @@ + + + +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + #SYSTEM.RAGSOC + +
+
+
+
+ + CODTAB + + + S0 + + + R0 + + + I1 + + + I2 + + + I3 + + + I4 + + + I5 + +
+
+ + + #SYSTEM.DATE + + + #PAGE + + +
+
+ USE CVE + FROM CODTAB=#FROM + TO CODTAB=#TO + \ No newline at end of file diff --git a/cg/cgstcve.uml b/cg/cgstcve.uml new file mode 100755 index 000000000..d5a1a74b5 --- /dev/null +++ b/cg/cgstcve.uml @@ -0,0 +1,38 @@ +#include "../ba/ba3200.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Stampa Categorie Vendita" 0 2 0 0 + +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "U" + FIELD FROM + USE CVE + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + DISPLAY "Provvigione" R0 + DISPLAY "Gruppo" I1 + DISPLAY "Conto" I2 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 20 1 "A codice " + FLAGS "U" + FIELD TO + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +ENDPAGE +ENDMASK diff --git a/cg/cgstesc.h b/cg/cgstesc.h new file mode 100755 index 000000000..ba919fa4b --- /dev/null +++ b/cg/cgstesc.h @@ -0,0 +1,6 @@ +//campi di bastesc.uml + +#define F_CODDITTA 101 +#define F_INIZIO1 102 +#define F_FINE1 103 + diff --git a/cg/cgstesc.rep b/cg/cgstesc.rep new file mode 100755 index 000000000..c15ce925f --- /dev/null +++ b/cg/cgstesc.rep @@ -0,0 +1,51 @@ + + + +
+ + + + + + + + + + + + + + + + + #SYSTEM.RAGSOC + +
+
+
+
+ + CODTAB + + + D0 + + + D1 + +
+
+ + + #SYSTEM.DATE + + + #PAGE + + +
+
+ USE ESC + FROM CODTAB=#FROM + TO CODTAB=#TO + \ No newline at end of file diff --git a/cg/cgstesc.uml b/cg/cgstesc.uml new file mode 100755 index 000000000..46710dfc2 --- /dev/null +++ b/cg/cgstesc.uml @@ -0,0 +1,42 @@ +#include "cgstesc.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Stampa esercizi" 0 2 0 0 + +NUMBER F_CODDITTA 5 +BEGIN + PROMPT 2 1 "Ditta " + FLAGS "FRD" +END + +NUMBER F_INIZIO1 4 +BEGIN + PROMPT 2 2 "Da anno " + FIELD FROM + FLAGS "ZR" + USE ESC KEY 1 + INPUT CODTAB F_INIZIO1 + DISPLAY "Anno esercizio" CODTAB + DISPLAY "Data inizio esercizio" D0 + DISPLAY "Data fine esercizio" D1 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +NUMBER F_FINE1 4 +BEGIN + PROMPT 20 2 "a anno " + FIELD TO + COPY USE F_INIZIO1 + FLAGS "ZR" + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +ENDPAGE +ENDMASK diff --git a/cg/cgstinv.rep b/cg/cgstinv.rep index 57a54b68e..e11314bef 100755 --- a/cg/cgstinv.rep +++ b/cg/cgstinv.rep @@ -1,5 +1,5 @@ - + Stampa Codici Invio di ditta
diff --git a/cg/cgstinv.uml b/cg/cgstinv.uml index f0582440f..053a50d45 100755 --- a/cg/cgstinv.uml +++ b/cg/cgstinv.uml @@ -1,4 +1,4 @@ -#include "ba3200.h" +#include "../ba/ba3200.h" TOOLBAR "topbar" 0 0 0 2 #include diff --git a/cg/cgstleg.rep b/cg/cgstleg.rep new file mode 100755 index 000000000..b5ade3e80 --- /dev/null +++ b/cg/cgstleg.rep @@ -0,0 +1,41 @@ + + + +
+ + + + + + + + + + + +
+
+
+
+ + CODTAB + + + S0 + +
+
+ + + #SYSTEM.DATE + + + #PAGE + + +
+
+ USE %LEG + FROM CODTAB=#FROM + TO CODTAB=#TO + \ No newline at end of file diff --git a/cg/cgstleg.uml b/cg/cgstleg.uml new file mode 100755 index 000000000..ae635c215 --- /dev/null +++ b/cg/cgstleg.uml @@ -0,0 +1,35 @@ +#include "../ba/ba3200.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Stampa Legali" 0 2 0 0 + +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "U" + FIELD FROM + USE %LEG + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 20 1 "A codice " + FLAGS "U" + FIELD TO + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +ENDPAGE +ENDMASK diff --git a/cg/cgstmsp.rep b/cg/cgstmsp.rep new file mode 100755 index 000000000..78e2f20c1 --- /dev/null +++ b/cg/cgstmsp.rep @@ -0,0 +1,41 @@ + + + +
+ + + + + + + + + + + +
+
+
+
+ + CODTAB + + + S0 + +
+
+ + + #SYSTEM.DATE + + + #PAGE + + +
+
+ USE %MSP + FROM CODTAB=#FROM + TO CODTAB=#TO + \ No newline at end of file diff --git a/cg/cgstmsp.uml b/cg/cgstmsp.uml new file mode 100755 index 000000000..5728b0d23 --- /dev/null +++ b/cg/cgstmsp.uml @@ -0,0 +1,35 @@ +#include "../ba/ba3200.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Stampa Modalita' di spedizione" 0 2 0 0 + +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "U" + FIELD FROM + USE %MSP + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 20 1 "A codice " + FLAGS "U" + FIELD TO + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +ENDPAGE +ENDMASK diff --git a/cg/cgstndo.rep b/cg/cgstndo.rep new file mode 100755 index 000000000..38d7006bb --- /dev/null +++ b/cg/cgstndo.rep @@ -0,0 +1,41 @@ + + + +
+ + + + + + + + + + + +
+
+
+
+ + CODTAB + + + S0 + +
+
+ + + #SYSTEM.DATE + + + #PAGE + + +
+
+ USE %NDO + FROM CODTAB=#FROM + TO CODTAB=#TO + \ No newline at end of file diff --git a/cg/cgstndo.uml b/cg/cgstndo.uml new file mode 100755 index 000000000..51d16e2c6 --- /dev/null +++ b/cg/cgstndo.uml @@ -0,0 +1,35 @@ +#include "../ba/ba3200.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Stampa Note documento" 0 2 0 0 + +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "U" + FIELD FROM + USE %NDO + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 20 1 "A codice " + FLAGS "U" + FIELD TO + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +ENDPAGE +ENDMASK diff --git a/cg/cgstnot.rep b/cg/cgstnot.rep new file mode 100755 index 000000000..755c1110b --- /dev/null +++ b/cg/cgstnot.rep @@ -0,0 +1,47 @@ + + + +
+ + + + + + + + + + + + + + +
+
+
+
+ + CODTAB + + + S0+S1+S2+S3 + + + B0 + +
+
+ + + #SYSTEM.DATE + + + #PAGE + + +
+
+ USE %NOT + FROM CODTAB=#FROM + TO CODTAB=#TO + \ No newline at end of file diff --git a/cg/cgstnot.uml b/cg/cgstnot.uml new file mode 100755 index 000000000..483c1e72f --- /dev/null +++ b/cg/cgstnot.uml @@ -0,0 +1,36 @@ +#include "../ba/ba3200.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Stampa Codici note" 0 2 0 0 + +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "U" + FIELD FROM + USE %NOT + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + DISPLAY "Blocca imm." B0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 20 1 "A codice " + FLAGS "U" + FIELD TO + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +ENDPAGE +ENDMASK diff --git a/cg/cgstpor.rep b/cg/cgstpor.rep new file mode 100755 index 000000000..5fc3c8258 --- /dev/null +++ b/cg/cgstpor.rep @@ -0,0 +1,53 @@ + + + +
+ + + + + + + + + + + + + + + + + +
+
+
+
+ + CODTAB + + + S0 + + + I0 + + + S3 + +
+
+ + + #SYSTEM.DATE + + + #PAGE + + +
+
+ USE %POR + FROM CODTAB=#FROM + TO CODTAB=#TO + \ No newline at end of file diff --git a/cg/cgstpor.uml b/cg/cgstpor.uml new file mode 100755 index 000000000..759cbf9f7 --- /dev/null +++ b/cg/cgstpor.uml @@ -0,0 +1,35 @@ +#include "../ba/ba3200.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Stampa Modalita' di consegna" 0 2 0 0 + +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "U" + FIELD FROM + USE %POR + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 20 1 "A codice " + FLAGS "U" + FIELD TO + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +ENDPAGE +ENDMASK diff --git a/cg/cgstreg.rep b/cg/cgstreg.rep new file mode 100755 index 000000000..98ab189e6 --- /dev/null +++ b/cg/cgstreg.rep @@ -0,0 +1,97 @@ + + + +
+ + + #SYSTEM.RAGSOC + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+
+
+
+ + CODTAB[1,4] + + + CODTAB[5,7] + + + I0 + + + S0 + + + S8 + + + I5 + + + D2 + + + I4 + + + D3 + + + S1 + + +
+
+ + + #SYSTEM.DATE + + + #PAGE + + +
+
+ USE REG +FROM CODTAB=#FROM +TO CODTAB=#TO + \ No newline at end of file diff --git a/cg/cgstreg.uml b/cg/cgstreg.uml new file mode 100755 index 000000000..20a219434 --- /dev/null +++ b/cg/cgstreg.uml @@ -0,0 +1,48 @@ +#include "../ba/ba3200.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Stampa registri" 0 2 0 0 + +NUMBER F_CODDITTA 5 +BEGIN + PROMPT 2 1 "Ditta " + FLAGS "FRD" + USE LF_NDITTE KEY 1 + CHECKTYPE REQUIRED + INPUT CODDITTA F_CODDITTA + DISPLAY "Codice" CODDITTA + DISPLAY "Ragione sociale @50" RAGSOC + OUTPUT F_CODDITTA CODDITTA + OUTPUT F_RAGSOC RAGSOC +END + +STRING F_RAGSOC 50 +BEGIN + PROMPT 2 2 "Ragione sociale " + FLAGS "D" +END + +NUMBER F_INIZIO1 4 +BEGIN + PROMPT 2 3 "Stampa i registri dell'anno " + FLAGS "Z" + FIELD FROM + MESSAGE COPY, F_FINE1 + CHECKTYPE REQUIRED + GROUP 1 +END + +NUMBER F_FINE1 4 +BEGIN + PROMPT 2 4 "" + FLAGS "HZ" + FIELD TO + GROUP 2 +END + +ENDPAGE +ENDMASK + diff --git a/cg/cgstscc.rep b/cg/cgstscc.rep new file mode 100755 index 000000000..d1bba36e5 --- /dev/null +++ b/cg/cgstscc.rep @@ -0,0 +1,47 @@ + + + +
+ + + + + + + + + + + + + + +
+
+
+
+ + CODTAB + + + S0 + + + S1 + +
+
+ + + #SYSTEM.DATE + + + #PAGE + + +
+
+ USE %SCC + FROM CODTAB=#FROM + TO CODTAB=#TO + \ No newline at end of file diff --git a/cg/cgstscc.uml b/cg/cgstscc.uml new file mode 100755 index 000000000..e6afb01cc --- /dev/null +++ b/cg/cgstscc.uml @@ -0,0 +1,35 @@ +#include "../ba/ba3200.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Stampa sconti clienti" 0 2 0 0 + +STRING F_INIZIO1 2 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "U" + FIELD FROM + USE %SCC + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 2 +BEGIN + PROMPT 20 1 "A codice " + FLAGS "U" + FIELD TO + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +ENDPAGE +ENDMASK diff --git a/cg/cgsttit.rep b/cg/cgsttit.rep new file mode 100755 index 000000000..16413dd19 --- /dev/null +++ b/cg/cgsttit.rep @@ -0,0 +1,41 @@ + + + +
+ + + + + + + + + + + +
+
+
+
+ + CODTAB + + + S0 + +
+
+ + + #SYSTEM.DATE + + + #PAGE + + +
+
+ USE %TIT + FROM CODTAB=#FROM + TO CODTAB=#TO + \ No newline at end of file diff --git a/cg/cgsttit.uml b/cg/cgsttit.uml new file mode 100755 index 000000000..8185916a6 --- /dev/null +++ b/cg/cgsttit.uml @@ -0,0 +1,35 @@ +#include "../ba/ba3200.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Stampa Titoli onorifici" 0 2 0 0 + +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "U" + FIELD FROM + USE %TIT + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 20 1 "A codice " + FLAGS "U" + FIELD TO + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +ENDPAGE +ENDMASK diff --git a/cg/cgstvet.rep b/cg/cgstvet.rep new file mode 100755 index 000000000..8d2f01456 --- /dev/null +++ b/cg/cgstvet.rep @@ -0,0 +1,115 @@ + + + +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+
+
+
+ + + CODTAB + + + S0 + + + S1[1,35] + + + S1[36,45] + + + S7 + + + S1[46,70] + + + COMUNI.DENCOM + + + COMUNI.PROVCOM + + + 200@.S0 + + + S5[1,10] + + + S3 + + + S5[11,20] + + + S4 + + + S2[11,30] + + + + S2[1,10] + +
+
+ + + #SYSTEM.DATE + + + #PAGE + + +
+
+ USE %VET +JOIN COMUNI INTO COM==S9 +JOIN %STA ALIAS 200 INTO CODTAB==S8 +FROM CODTAB=#FROM +TO CODTAB=#TO + + \ No newline at end of file diff --git a/cg/cgstvet.uml b/cg/cgstvet.uml new file mode 100755 index 000000000..007c59741 --- /dev/null +++ b/cg/cgstvet.uml @@ -0,0 +1,35 @@ +#include "../ba/ba3200.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Stampa vettori" 0 2 0 0 + +STRING F_INIZIO1 6 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "ZU" + FIELD FROM + USE %VET + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice vettore" CODTAB + DISPLAY "Ragione sociale@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 6 +BEGIN + PROMPT 25 1 "A codice " + FLAGS "ZU" + FIELD TO + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +ENDPAGE +ENDMASK diff --git a/cg/cgstzon.rep b/cg/cgstzon.rep new file mode 100755 index 000000000..2b2b37861 --- /dev/null +++ b/cg/cgstzon.rep @@ -0,0 +1,45 @@ + + + +
+ + + + + + + + + + + + + + #SYSTEM.RAGSOC + +
+
+
+
+ + CODTAB + + + S0 + +
+
+ + + #SYSTEM.DATE + + + #PAGE + + +
+
+ USE ZON + FROM CODTAB=#FROM + TO CODTAB=#TO + \ No newline at end of file diff --git a/cg/cgstzon.uml b/cg/cgstzon.uml new file mode 100755 index 000000000..055a89b17 --- /dev/null +++ b/cg/cgstzon.uml @@ -0,0 +1,35 @@ +#include "../ba/ba3200.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Stampa Zone" 0 2 0 0 + +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "U" + FIELD FROM + USE ZON + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 20 1 "A codice " + FLAGS "U" + FIELD TO + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +ENDPAGE +ENDMASK diff --git a/cg/cgtbcam.h b/cg/cgtbcam.h new file mode 100755 index 000000000..17facc45b --- /dev/null +++ b/cg/cgtbcam.h @@ -0,0 +1,9 @@ +#define FLD_TABCAM_CODVAL 101 +#define FLD_TABCAM_B1 102 +#define FLD_TABCAM_S0 103 +#define FLD_TABCAM_S4 104 +#define FLD_TABCAM_S7 105 +#define FLD_TABCAM_R10 106 +#define FLD_TABCAM_D0 107 +#define FLD_TABCAM_I2 108 +#define FLD_DATACAM_COPY 109 diff --git a/cg/cgtbcam.uml b/cg/cgtbcam.uml new file mode 100755 index 000000000..6ead225fd --- /dev/null +++ b/cg/cgtbcam.uml @@ -0,0 +1,111 @@ +#include "cgtbcam.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Cambi giornalieri" 0 2 0 0 + +GROUPBOX DLG_NULL 78 6 +BEGIN + PROMPT 1 1 "@bValuta" +END + +STRING FLD_TABCAM_CODVAL 3 +BEGIN + PROMPT 2 3 "Codice " + FLAGS "UZ" + KEY 1 + FIELD CODTAB[1,3] + USE %VAL + INPUT CODTAB FLD_TABCAM_CODVAL + DISPLAY "Codice" CODTAB + DISPLAY "Contro EURO" B1 + DISPLAY "Valuta@50" S0 + OUTPUT FLD_TABCAM_CODVAL CODTAB + OUTPUT FLD_TABCAM_S0 S0 + OUTPUT FLD_TABCAM_I2 I2 + OUTPUT FLD_TABCAM_B1 B1 + CHECKTYPE FORCED + WARNING "Valuta assente" +END + +DATE FLD_DATACAM_COPY +BEGIN + PROMPT 9 5 "" + FLAGS "D" + FIELD D0 +END + +DATE FLD_TABCAM_D0 +BEGIN + PROMPT 2 5 "Data " + FIELD CODTAB[4,11] + FLAGS "R" + KEY 1 +// USE CAM SELECT CODTAB?(#FLD_TABCAM_CODVAL+"*") +// JOIN %VAL TO CAM KEY 1 ALIAS 50 INTO CODTAB=CODTAB[1,3] + USE CAM SELECT TRIM(CODTAB[1,3])==#FLD_TABCAM_CODVAL + JOIN %VAL TO CAM KEY 1 ALIAS 50 INTO CODTAB==(TRIM(CODTAB[1,3])) + INPUT CODTAB[1,3] FLD_TABCAM_CODVAL SELECT // PER INPUT + INPUT CODTAB[4,11] FLD_TABCAM_D0 + DISPLAY "Valuta" CODTAB[1,3] + DISPLAY "Data@10" D0 + DISPLAY "Descrizione@50" 50@->S0 + OUTPUT FLD_TABCAM_CODVAL CODTAB[1,3] + OUTPUT FLD_TABCAM_D0 D0 + OUTPUT FLD_DATACAM_COPY D0 + CHECKTYPE REQUIRED + MESSAGE COPY,FLD_DATACAM_COPY + WARNING "Data assente" +END + +STRING FLD_TABCAM_S0 50 +BEGIN + PROMPT 20 3 "" + USE %VAL KEY 2 + INPUT S0 FLD_TABCAM_S0 + DISPLAY "Valuta@50" S0 + DISPLAY "Codice" CODTAB + DISPLAY "Contro EURO" B1 + COPY OUTPUT FLD_TABCAM_CODVAL + CHECKTYPE REQUIRED + KEY 1 // Serve a farlo disabilitare in modifica +END + +GROUPBOX DLG_NULL 78 5 +BEGIN + PROMPT 1 8 "@bCambio" +END + +NUMBER FLD_TABCAM_I2 1 +BEGIN + PROMPT 2 10 "Decimali " + FLAGS "D" +END + +NUMBER FLD_TABCAM_S4 15 5 +BEGIN + PROMPT 20 10 "Cambio " + FIELD S4 + PICTURE ".5" + FLAGS "U" +END + +NUMBER FLD_TABCAM_R10 15 5 +BEGIN + PROMPT 20 30 "Cambio " + FIELD R10 + PICTURE ".5" + FLAGS "DU" +END + +BOOLEAN FLD_TABCAM_B1 +BEGIN + PROMPT 50 10 "Contro EURO" + FLAGS "D" +END + +ENDPAGE + +ENDMASK diff --git a/cg/cgtbcco.h b/cg/cgtbcco.h new file mode 100755 index 000000000..358062959 --- /dev/null +++ b/cg/cgtbcco.h @@ -0,0 +1,16 @@ + +// campi maschera batb%cco.msk + +#define F_CODICE 101 +#define F_DESCR 102 +#define F_GRUPPOA 103 +#define F_CONTOA 104 +#define F_SOTTOCA 105 +#define F_DESCRA 106 +#define F_GRUPPOV 107 +#define F_CONTOV 108 +#define F_SOTTOCV 109 +#define F_DESCRV 110 + + + diff --git a/cg/cgtbcco.uml b/cg/cgtbcco.uml new file mode 100755 index 000000000..d06527550 --- /dev/null +++ b/cg/cgtbcco.uml @@ -0,0 +1,171 @@ +#include "cgtbcco.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Tabella Codici Categorie Contabili" 0 2 0 0 + +GROUPBOX DLG_NULL 75 7 +BEGIN + PROMPT 1 0 "" + FLAGS "R" +END + +STRING F_CODICE 2 +BEGIN + PROMPT 2 2 "Codice " + HELP "Codice della categoria contabile" + FIELD CODTAB + FLAGS "U" + KEY 1 + USE CCO + INPUT CODTAB F_CODICE + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione @30" S0 + OUTPUT F_CODICE CODTAB + OUTPUT F_DESCR S0 + CHECKTYPE REQUIRED +END + +STRING F_DESCR 50 +BEGIN + PROMPT 2 4 "Descrizione " + HELP "Descrizione della categoria contabile" + FIELD S0 + KEY 2 + USE CCO KEY 2 + INPUT CODTAB F_CODICE + INPUT S0 F_DESCR + DISPLAY "Descrizione @30" S0 + DISPLAY "Codice" CODTAB + OUTPUT F_CODICE CODTAB + OUTPUT F_DESCR S0 + CHECKTYPE REQUIRED +END + +NUMBER F_GRUPPOV 3 +BEGIN + PROMPT 2 8 "Conto di vendita " + FIELD I3 +END + +NUMBER F_CONTOV 3 +BEGIN + PROMPT 26 8 "" + FIELD I4 + USE LF_PCON SELECT INDBIL=="4" + INPUT GRUPPO F_GRUPPOV + INPUT CONTO F_CONTOV + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Descrizione@50" DESCR + OUTPUT F_GRUPPOV GRUPPO + OUTPUT F_CONTOV CONTO + CHECKTYPE NORMAL + ADD RUN CG0 -0 + WARNING "Il conto deve essere un ricavo" +END + +NUMBER F_SOTTOCV 6 +BEGIN + PROMPT 33 8 "" + FIELD I5 + USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4") + JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO + INPUT GRUPPO F_GRUPPOV + INPUT CONTO F_CONTOV + INPUT SOTTOCONTO F_SOTTOCV + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + DISPLAY "Descrizione@50" DESCR + OUTPUT F_GRUPPOV GRUPPO + OUTPUT F_CONTOV CONTO + OUTPUT F_SOTTOCV SOTTOCONTO + OUTPUT F_DESCRV DESCR + CHECKTYPE NORMAL + WARNING "Sottoconto errato" + ADD RUN CG0 -0 +END + +STRING F_DESCRV 50 +BEGIN + PROMPT 21 9 "" + FLAG "U" + USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4") + JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO + INPUT DESCR F_DESCRV + DISPLAY "Descrizione@50" DESCR + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + COPY OUTPUT F_SOTTOCV + WARNING "Il conto deve essere un ricavo" + ADD RUN CG0 -0 +END + +NUMBER F_GRUPPOA 3 +BEGIN + PROMPT 2 11 "Conto d'acquisto " + FIELD I0 +END + +NUMBER F_CONTOA 3 +BEGIN + PROMPT 26 11 "" + FIELD I1 + USE LF_PCON SELECT INDBIL=="3" + INPUT GRUPPO F_GRUPPOA + INPUT CONTO F_CONTOA + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Descrizione@50" DESCR + OUTPUT F_GRUPPOA GRUPPO + OUTPUT F_CONTOA CONTO + CHECKTYPE NORMAL + WARNING "Il conto deve essere un costo" + ADD RUN CG0 -0 +END + +NUMBER F_SOTTOCA 6 +BEGIN + PROMPT 33 11 "" + FIELD I2 + USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3") + JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO + INPUT GRUPPO F_GRUPPOA + INPUT CONTO F_CONTOA + INPUT SOTTOCONTO F_SOTTOCA + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + DISPLAY "Descrizione@50" DESCR + OUTPUT F_GRUPPOA GRUPPO + OUTPUT F_CONTOA CONTO + OUTPUT F_SOTTOCA SOTTOCONTO + OUTPUT F_DESCRA DESCR + CHECKTYPE NORMAL + WARNING "Sottoconto errato" + ADD RUN CG0 -0 +END + +STRING F_DESCRA 50 +BEGIN + PROMPT 21 12 "" + FLAG "U" + USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && (500@->INDBIL=="3") + JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO + INPUT DESCR F_DESCRA + DISPLAY "Descrizione@50" DESCR + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + COPY OUTPUT F_SOTTOCA + CHECKTYPE NORMAL + WARNING "Il conto deve essere un ricavo" + ADD RUN CG0 -0 +END + +ENDPAGE +ENDMASK diff --git a/cg/cgtbcve.h b/cg/cgtbcve.h new file mode 100755 index 000000000..224216aaa --- /dev/null +++ b/cg/cgtbcve.h @@ -0,0 +1,29 @@ + + +// campi maschera batbcve.msk + +#define F_CODICE 101 +#define F_DESCR 102 +#define F_PROVV 103 +#define F_GRUPPO 104 +#define F_CONTO 105 +#define F_DESCONTO 106 +#define F_GRUPPOV 107 +#define F_CONTOV 108 +#define F_SOTTOCV 109 +#define F_DESCRV 110 + + + + + + + + + + + + + + + diff --git a/cg/cgtbcve.uml b/cg/cgtbcve.uml new file mode 100755 index 000000000..48a5d22ec --- /dev/null +++ b/cg/cgtbcve.uml @@ -0,0 +1,166 @@ +#include "cgtbcve.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Categorie di vendita " 0 2 0 0 +GROUPBOX DLG_NULL 75 7 +BEGIN + PROMPT 1 0 "" + FLAGS "R" +END + +STRING F_CODICE 2 +BEGIN + PROMPT 2 2 "Codice " + HELP "Codice della categoria di vendita" + FIELD CODTAB + FLAGS "U" + KEY 1 + USE CVE + INPUT CODTAB F_CODICE + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione @50" S0 + DISPLAY "Provvigione" R0 + DISPLAY "Gruppo" I1 + DISPLAY "Conto" I2 + OUTPUT F_CODICE CODTAB + OUTPUT F_DESCR S0 + OUTPUT F_PROVV R0 + OUTPUT F_GRUPPO I1 + OUTPUT F_CONTO I2 + CHECKTYPE REQUIRED +END + +STRING F_DESCR 50 +BEGIN + PROMPT 2 4 "Descrizione " + HELP "Descrizione della categoria di vendita" + FIELD S0 + KEY 2 + USE CVE KEY 2 + INPUT CODTAB F_CODICE + INPUT S0 F_DESCR + DISPLAY "Descrizione @50" S0 + DISPLAY "Codice" CODTAB + DISPLAY "Provvigione" R0 + DISPLAY "Gruppo" I1 + DISPLAY "Conto" I2 + OUTPUT F_CODICE CODTAB + OUTPUT F_DESCR S0 + OUTPUT F_PROVV R0 + OUTPUT F_GRUPPO I1 + OUTPUT F_CONTO I2 + CHECKTYPE REQUIRED +END + +NUMBER F_PROVV 5 2 +BEGIN + PROMPT 2 8 "Provvigione " + HELP "Percentuale di provvigione della categoria" + FIELD R0 +END + +NUMBER F_GRUPPO 3 +BEGIN + PROMPT 2 10 "Conto Cliente " + HELP "Gruppo del piano dei conti della categoria" + FIELD I1 +END + +NUMBER F_CONTO 3 +BEGIN + PROMPT 26 10 "" + HELP "Conto del piano dei conti della categoria" + FIELD I2 + USE LF_PCON SELECT TMCF="C" + INPUT GRUPPO F_GRUPPO + INPUT CONTO F_CONTO + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Descrizione@50" DESCR + OUTPUT F_GRUPPO GRUPPO + OUTPUT F_CONTO CONTO + OUTPUT F_DESCONTO DESCR + ADD RUN CG0 -0 + CHECKTYPE NORMAL +END + +STRING F_DESCONTO 50 +BEGIN + PROMPT 21 11 "" + FLAG "U" + USE LF_PCON KEY 2 SELECT TMCF="C" + INPUT DESCR F_DESCONTO + DISPLAY "Descrizione@50" DESCR + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + COPY OUTPUT F_CONTO +END + +NUMBER F_GRUPPOV 3 +BEGIN + PROMPT 2 13 "Conto di vendita " + FIELD I3 + CHECKTYPE NORMAL +END + +NUMBER F_CONTOV 3 +BEGIN + PROMPT 26 13 "" + FIELD I4 + USE LF_PCON SELECT INDBIL=="4" + INPUT GRUPPO F_GRUPPOV + INPUT CONTO F_CONTOV + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Descrizione@50" DESCR + OUTPUT F_GRUPPOV GRUPPO + OUTPUT F_CONTOV CONTO + CHECKTYPE NORMAL + ADD RUN CG0 -0 + WARNING "Il conto deve essere un ricavo" +END + +NUMBER F_SOTTOCV 6 +BEGIN + PROMPT 33 13 "" + FIELD I5 + USE LF_PCON SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4") + JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO + INPUT GRUPPO F_GRUPPOV + INPUT CONTO F_CONTOV + INPUT SOTTOCONTO F_SOTTOCV + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + DISPLAY "Descrizione@50" DESCR + OUTPUT F_GRUPPOV GRUPPO + OUTPUT F_CONTOV CONTO + OUTPUT F_SOTTOCV SOTTOCONTO + OUTPUT F_DESCRV DESCR + CHECKTYPE NORMAL + WARNING "Sottoconto errato" + ADD RUN CG0 -0 +END + +STRING F_DESCRV 50 +BEGIN + PROMPT 21 14 "" + FLAG "U" + USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="") && (500@->INDBIL=="4") + JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO + INPUT DESCR F_DESCRV + DISPLAY "Descrizione@50" DESCR + DISPLAY "Gruppo" GRUPPO + DISPLAY "Conto" CONTO + DISPLAY "Sottoconto" SOTTOCONTO + COPY OUTPUT F_SOTTOCV + CHECKTYPE NORMAL + WARNING "Il conto deve essere un ricavo" + ADD RUN CG0 -0 +END + +ENDPAGE +ENDMASK diff --git a/cg/cgtbesc.h b/cg/cgtbesc.h new file mode 100755 index 000000000..cb85b8696 --- /dev/null +++ b/cg/cgtbesc.h @@ -0,0 +1,11 @@ +// campi maschera batbesc.msk + +#define F_ANNO 131 +#define F_DATAINI 132 +#define F_DATAFIN 133 +#define F_CODDITTA 141 +#define F_RAGSOC 142 +#define F_DATASCARICO 143 +#define F_DATACHIUSURA 144 +#define F_DATACHIUSURAMAG 145 +#define BUT_CHECK 146 diff --git a/cg/cgtbesc.uml b/cg/cgtbesc.uml new file mode 100755 index 000000000..33301d949 --- /dev/null +++ b/cg/cgtbesc.uml @@ -0,0 +1,95 @@ +#include "cgtbesc.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Esercizi contabili" 0 2 0 0 + +NUMBER F_CODDITTA 5 +BEGIN + PROMPT 4 1 "Ditta " + HELP "Codice della ditta a cui assegnare l'esercizio" + FLAGS "FRD" + USE LF_NDITTE + INPUT CODDITTA F_CODDITTA + DISPLAY "Codice" CODDITTA + DISPLAY "Ragione sociale@50" RAGSOC + OUTPUT F_CODDITTA CODDITTA + OUTPUT F_RAGSOC RAGSOC + CHECKTYPE NORMAL +END + +STRING F_RAGSOC 50 +BEGIN + PROMPT 4 3 "Ragione sociale " + FLAGS "D" +END + +NUMBER F_ANNO 4 +BEGIN + PROMPT 4 5 "Codice esercizio " + HELP "Codice d'esercizio da assegnare" + FLAGS "ZR" + FIELD LF_TAB->CODTAB + KEY 1 + USE ESC + INPUT CODTAB F_ANNO + DISPLAY "Codice esercizio" CODTAB + DISPLAY "Data inizio esercizio" D0 + DISPLAY "Data fine esercizio" D1 + DISPLAY "Data di scarico" D2 + DISPLAY "Data chiusura esercizio" D3 + OUTPUT F_ANNO CODTAB + CHECKTYPE REQUIRED +END + +BUTTON BUT_CHECK 10 1 +BEGIN + PROMPT 40 5 "Controllo" +END + +DATE F_DATAINI +BEGIN + PROMPT 4 7 "Data inizio esercizio " + HELP "Data di inizio dell'esercizio" + FIELD LF_TAB->D0 + CHECKTYPE REQUIRED + WARNING "La data di inizio esercizio e' obbligatoria" +END + +DATE F_DATAFIN +BEGIN + PROMPT 4 9 "Data fine esercizio " + HELP "Data di fine dell'esercizio" + FIELD LF_TAB->D1 + CHECKTYPE REQUIRED + VALIDATE DATE_CMP_FUNC > F_DATAINI + WARNING "La data fine esercizio deve essere indicata e deve essere maggiore della data di inizio esercizio" +END + +DATE F_DATASCARICO +BEGIN + PROMPT 4 11 "Data di scarico " + HELP "Data in cui e' stato effettuato l'ultimo scarico su dischetto" + FIELD LF_TAB->D2 +END + +DATE F_DATACHIUSURA +BEGIN + PROMPT 4 13 "Data chiusura esercizio " + HELP "Data di chiusura dell'esercizio" + FIELD LF_TAB->D3 + VALIDATE DATE_CMP_FUNC >= F_DATAFIN + WARNING "La data chiusura esercizio deve essere maggiore o uguale alla data di fine esercizio" +END + +DATE F_DATACHIUSURAMAG +BEGIN + PROMPT 4 15 "Data chiusura magazzino " + FIELD LF_TAB->D4 +END + +ENDPAGE + +ENDMASK diff --git a/cg/cgtbind.h b/cg/cgtbind.h new file mode 100755 index 000000000..eb0eee947 --- /dev/null +++ b/cg/cgtbind.h @@ -0,0 +1,27 @@ +// Campi maschera tabella ditte per invio + +#define F_DITTAINV 101 +#define F_CAUSALI 102 +#define F_CLIFO 103 +#define F_PCON 104 +#define F_MOV 105 +#define F_IVA 106 +#define F_FATT 107 +#define F_NUMULINV 108 +#define F_DATAULIN 109 +#define F_STATO 110 +#define F_RAGSOC 111 +#define F_USELAB 112 +#define F_CHIAVE 113 +#define F_NOMEID 114 +#define F_GHOST_FIELD 115 +#define F_BOLLATO 116 +#define F_CODICE 117 +#define F_CAU_FATT 118 +#define F_CAU_NC 119 +#define F_CAU_INC 120 +#define F_CAU_INS 121 +#define F_CAU_PAGINS 122 +#define F_CPAG_NC 123 +#define F_PROVVIS 124 + diff --git a/cg/cgtbind.uml b/cg/cgtbind.uml new file mode 100755 index 000000000..81cde9e1b --- /dev/null +++ b/cg/cgtbind.uml @@ -0,0 +1,230 @@ +#include "cgtbind.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Tabella ditte per invio" 0 2 0 0 + +NUMBER F_DITTAINV 5 +BEGIN + PROMPT 1 1 "Codice ditta inviante " + FIELD %IND->CODTAB + FLAGS "Z" + KEY 1 + USE %IND + INPUT CODTAB[1,5] F_DITTAINV + DISPLAY "Codice Ditta" CODTAB + DISPLAY "Numero inv." I0 + DISPLAY "Data invio" D0 + DISPLAY "Stato" S6 + OUTPUT F_DITTAINV CODTAB + OUTPUT F_NUMULINV I0 + OUTPUT F_DATAULIN D0 + OUTPUT F_STATO S6 + CHECKTYPE REQUIRED +END + +STRING F_RAGSOC 50 +BEGIN + PROMPT 1 2 "Ragione sociale " + FLAGS "DP" +END + +GROUPBOX DLG_NULL 76 8 +BEGIN + PROMPT 1 3 "Archivi da inviare" +END + +BOOLEAN F_CAUSALI +BEGIN + PROMPT 2 4 "Tabella causali" + FIELD %IND->B0 +END + +BOOLEAN F_CLIFO +BEGIN + PROMPT 2 5 "Anagrafica Clienti/Fornitori" + FIELD %IND->B1 +END + +BOOLEAN F_PCON +BEGIN + PROMPT 2 6 "Anagrafica Piano dei Conti" + FIELD %IND->B2 +END + +BOOLEAN F_MOV +BEGIN + PROMPT 2 7 "Movimenti Prima Nota" + FIELD %IND->B3 +END + +BOOLEAN F_PROVVIS +BEGIN + PROMPT 29 7 "Includi movimenti provvisori nell'invio a PC" + FIELD %IND->B6 +END + +BOOLEAN F_IVA +BEGIN + PROMPT 2 8 "Movimenti Iva" + FIELD %IND->B4 +END + +BOOLEAN F_FATT +BEGIN + PROMPT 2 9 "Scadenze Fattura / Pagamento Rate" + FIELD %IND->B5 + MESSAGE TRUE ENABLE,1@ + MESSAGE FALSE CLEAR,1@ +// FLAGS "D" +END + +GROUPBOX DLG_NULL 76 5 +BEGIN + PROMPT 1 11 "Causali di corrispondenza movimenti extracontabili" +END + +STRING F_CAU_FATT 3 +BEGIN + FLAGS "UZ" + PROMPT 2 12 "Fattura " + FIELD S5[1,3] + USE LF_CAUSALI SELECT TIPOMOV==1 + INPUT CODCAUS F_CAU_FATT + DISPLAY "Codice causale" CODCAUS + DISPLAY "Descrizione@50" DESCR + OUTPUT F_CAU_FATT CODCAUS + CHECKTYPE NORMAL + ADD RUN cg0 -4 + GROUP 1 +END + +STRING F_CAU_NC 3 +BEGIN + FLAGS "UZ" + PROMPT 2 13 "Nota di credito " + FIELD S5[4,6] + USE LF_CAUSALI SELECT TIPOMOV==2 + INPUT CODCAUS F_CAU_NC + DISPLAY "Codice causale" CODCAUS + DISPLAY "Descrizione@50" DESCR + OUTPUT F_CAU_NC CODCAUS + CHECKTYPE NORMAL + ADD RUN cg0 -4 + GROUP 1 +END + +STRING F_CAU_INC 3 +BEGIN + FLAGS "UZ" + PROMPT 2 14 "Incasso/Pagamento " + FIELD S5[7,9] + USE LF_CAUSALI SELECT TIPOMOV==3 + INPUT CODCAUS F_CAU_INC + DISPLAY "Codice causale" CODCAUS + DISPLAY "Descrizione@50" DESCR + OUTPUT F_CAU_INC CODCAUS + CHECKTYPE NORMAL + ADD RUN cg0 -4 + GROUP 1 +END + +STRING F_CAU_INS 3 +BEGIN + FLAGS "UZ" + PROMPT 40 12 "Insoluto " + FIELD S5[10,12] + USE LF_CAUSALI SELECT TIPOMOV==5 + INPUT CODCAUS F_CAU_INS + DISPLAY "Codice causale" CODCAUS + DISPLAY "Descrizione@50" DESCR + OUTPUT F_CAU_INS CODCAUS + CHECKTYPE NORMAL + ADD RUN cg0 -4 + GROUP 1 +END + +STRING F_CAU_PAGINS 3 +BEGIN + FLAGS "UZ" + PROMPT 40 13 "Pagamento insoluto " + FIELD S5[13,15] + USE LF_CAUSALI SELECT TIPOMOV==6 + INPUT CODCAUS F_CAU_PAGINS + DISPLAY "Codice causale" CODCAUS + DISPLAY "Descrizione@50" DESCR + OUTPUT F_CAU_PAGINS CODCAUS + CHECKTYPE NORMAL + ADD RUN cg0 -4 + GROUP 1 +END + +STRING F_CPAG_NC 2 +BEGIN + FLAGS "U" + PROMPT 38 16 "Cod. pag. per note di credito " + FIELD S7 + USE %CPG SELECT ((CODTAB?="??")||(CODTAB?="?")) && (S4=="1") + INPUT CODTAB F_CPAG_NC + DISPLAY "Cod. pagamento" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_CPAG_NC CODTAB + CHECKTYPE NORMAL + ADD RUN ba3 -6 +END + +BOOLEAN F_BOLLATO +BEGIN + PROMPT 1 16 "Imposta il flag di bollato" + FIELD %IND->B7 +END + +NUMBER F_NUMULINV 3 +BEGIN + PROMPT 1 17 "N.ro ult.invio " + FIELD %IND->I0 + FLAGS "RG" +END + +DATE F_DATAULIN +BEGIN + PROMPT 38 17 "Data ultimo invio " + FIELD %IND->D0 + FLAGS "G" +END + +STRING F_STATO 1 +BEGIN + PROMPT 1 18 "Stato ultimo " + FIELD %IND->S6 + FLAGS "GU" +END + +STRING F_USELAB 1 +BEGIN + PROMPT 20 18 "" + FLAGS "GU" +END + +TEXT DLG_NULL +BEGIN + PROMPT 1 19 "invio " +END + +STRING F_CHIAVE 60 +BEGIN + PROMPT 16 19 "" + FLAGS "GU" +END + +STRING F_GHOST_FIELD 1 +BEGIN + PROMPT -1 -30 "" + FLAGS "DG" +END + +ENDPAGE + +ENDMASK diff --git a/cg/cgtbinl.h b/cg/cgtbinl.h new file mode 100755 index 000000000..76d77bd52 --- /dev/null +++ b/cg/cgtbinl.h @@ -0,0 +1,17 @@ +#define F_ANNOREG 101 +#define F_MESE 102 +#define F_PINI_LU 103 +#define F_PFIN_LU 104 +#define F_DITTA 105 +#define F_RAGSOC 106 +#define F_CODREG 107 +#define F_DESCREG 108 +#define F_PINI_RU 109 +#define F_PFIN_RU 110 +#define F_CODVID 111 +#define F_STAMPATO 112 +#define F_PANN_LU 113 +#define F_ANNO 114 +#define F_CODLIB 115 +#define F_INDEX 116 +#define F_DESVID 117 diff --git a/cg/cgtbinl.uml b/cg/cgtbinl.uml new file mode 100755 index 000000000..d88ae08cf --- /dev/null +++ b/cg/cgtbinl.uml @@ -0,0 +1,212 @@ +#include "cgtbinl.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Tabella Indici Libro Unico" 0 2 0 0 + +NUMBER F_ANNO 4 +BEGIN + PROMPT 1 1 "Anno " + FLAGS "A" + FIELD ANNO + USE %LBU + INPUT CODTAB[1,4] F_ANNO + INPUT CODTAB[5,7] F_CODLIB + DISPLAY "Anno" CODTAB[1,4] + DISPLAY "Libro" CODTAB[5,7] + DISPLAY "Descrizione@50" S0 + OUTPUT F_ANNO CODTAB[1,4] + OUTPUT F_CODLIB CODTAB[5,7] + CHECKTYPE REQUIRED + MESSAGE COPY,F_ANNOREG + KEY 1 +END + +STRING F_CODLIB 3 +BEGIN + PROMPT 28 1 "Libro " + FLAGS "UZ" + FIELD CODLIB + COPY ALL F_ANNO + CHECKTYPE FORCED + KEY 1 +END + +NUMBER F_INDEX 7 +BEGIN + PROMPT 42 1 "Num. registrazione " + FLAGS "U" + FIELD NUMREG + USE LF_INDLIB +// JOIN %LBU INTO CODTAB=ANNO+CODLIB + INPUT ANNO F_ANNO + INPUT CODLIB F_CODLIB + INPUT NUMREG F_INDEX + DISPLAY "Anno" ANNO + DISPLAY "Codice libro" CODLIB +// DISPLAY "Descrizione@50" %LBU->S0 + DISPLAY "Indice@7" NUMREG + DISPLAY "Ditta" CODDITTA + DISPLAY "Mese" MESEREG + DISPLAY "Registro" CODREG + OUTPUT F_ANNO ANNO + OUTPUT F_CODLIB CODLIB + OUTPUT F_INDEX NUMREG + CHECKTYPE REQUIRED + KEY 1 +END + +NUMBER F_ANNOREG 4 +BEGIN + PROMPT 1 2 "Anno registrazione " + FIELD ANNOREG + FLAGS "DP" +END + +LIST F_MESE 2 10 +BEGIN + PROMPT 40 2 "Mese registrazione " + FIELD MESEREG + FLAGS "M" +END + +NUMBER F_PINI_LU 5 +BEGIN + PROMPT 1 3 "Numero pagina iniziale registro unico " + FIELD PAGINI + FLAGS "UR" + MESSAGE DIRTY,F_PFIN_LU + CHECKTYPE REQUIRED +END + +NUMBER F_PFIN_LU 5 +BEGIN + PROMPT 1 4 "Numero pagina finale registro unico " + FIELD PAGFIN + FLAGS "UR" + NUM_EXPR (#THIS_FIELD>=#F_PINI_LU) + CHECKTYPE REQUIRED + WARNING "Inserire un numero di pagina superiore a quella iniziale" +END + +NUMBER F_DITTA 5 +BEGIN + PROMPT 1 6 "Codice ditta " + FIELD CODDITTA + USE LF_NDITTE + INPUT CODDITTA F_DITTA + DISPLAY "Codice ditta" CODDITTA + DISPLAY "Ragione sociale@50" RAGSOC + OUTPUT F_DITTA CODDITTA + OUTPUT F_RAGSOC RAGSOC + CHECKTYPE NORMAL + WARNING "E' necessario specificare un codice ditta valido" +END + +STRING F_RAGSOC 50 +BEGIN + PROMPT 1 7 "Ragione sociale " + USE LF_NDITTE KEY 2 + INPUT RAGSOC F_RAGSOC + DISPLAY "Ragione sociale@50" RAGSOC + DISPLAY "Codice ditta" CODDITTA + COPY OUTPUT F_DITTA + CHECKTYPE NORMAL +END + +STRING F_CODREG 3 +BEGIN + PROMPT 1 8 "Codice registro " + FIELD CODREG + FLAGS "UZ" + USE REG + INPUT CODTAB[1,4] F_ANNO + INPUT CODTAB[5,7] F_CODREG + DISPLAY "Anno" CODTAB[1,4] + DISPLAY "Codice" CODTAB[5,7] + DISPLAY "Descrizione@50" S0 + OUTPUT F_CODREG CODTAB[5,7] + OUTPUT F_DESCREG S0 + WARNING "Codice registro assente" + VALIDATE NOT_EMPTY_CHECK_FIELD + CHECKTYPE NORMAL +// MESSAGE EMPTY RESET,F_DESCREG +END + +STRING F_DESCREG 50 +BEGIN + PROMPT 1 9 "Descrizione " + USE REG KEY 2 + INPUT S0 F_DESCREG + DISPLAY "Descrizione@50" S0 + DISPLAY "Anno" CODTAB[1,4] + DISPLAY "Codice" CODTAB[5,7] + OUTPUT F_CODREG CODTAB[5,7] + OUTPUT F_DESCREG S0 + CHECKTYPE NORMAL +END + +NUMBER F_PINI_RU 5 +BEGIN + PROMPT 1 11 "Numero iniziale pagina registro utente " + FIELD PAGINIUT + FLAGS "R" + CHECKTYPE REQUIRED +END + +NUMBER F_PFIN_RU 5 +BEGIN + PROMPT 1 12 "Numero finale pagina registro utente " + FIELD PAGFINUT + FLAGS "R" + CHECKTYPE REQUIRED +END + +STRING F_CODVID 3 +BEGIN + PROMPT 1 14 "Codice vidimazione " + FIELD CODVID + FLAGS "UZ" + USE %VID + INPUT CODTAB F_CODVID + DISPLAY "Codice" CODTAB + DISPLAY "Intestatario@50" S0 + OUTPUT F_CODVID CODTAB + OUTPUT F_DESVID S0 + CHECKTYPE NORMAL +END + +STRING F_DESVID 50 +BEGIN + PROMPT 1 15 "Intestatario " + USE %VID KEY 2 + INPUT S0 F_DESVID + DISPLAY "Intestatario@60" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT F_CODVID + CHECKTYPE NORMAL +END + +BOOLEAN F_STAMPATO +BEGIN + PROMPT 1 16 "Stampato su bollato " + FIELD STAMPATO +END + +BOOLEAN F_PANN_LU +BEGIN + PROMPT 36 16 "Pagine libro unico annullate" + FIELD ANNULLATE + MESSAGE FALSE ENABLE,F_DITTA|ENABLE,F_RAGSOC +// MESSAGE FALSE ENABLE,F_CODREG|ENABLE,F_DESCREG + MESSAGE FALSE REQUIRED,F_PINI_RU|REQUIRED,F_PFIN_RU + MESSAGE TRUE CLEAR,F_DITTA|CLEAR,F_RAGSOC + MESSAGE TRUE CLEAR,F_CODREG|CLEAR,F_DESCREG|"Pagine annullate",F_DESCREG + MESSAGE TRUE NORMAL,F_PINI_RU|NORMAL,F_PFIN_RU +END + +ENDPAGE + +ENDMASK diff --git a/cg/cgtbins.uml b/cg/cgtbins.uml new file mode 100755 index 000000000..cf48e6bd7 --- /dev/null +++ b/cg/cgtbins.uml @@ -0,0 +1,76 @@ +#include "cgtbind.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Tabella studio per invio" 0 2 0 0 + +STRING F_CODICE 3 +BEGIN + PROMPT 90 90 "" + FIELD %INS->CODTAB +// FLAGS "HG" + CHECKTYPE REQUIRED + KEY 1 +END + +STRING F_NOMEID 10 +BEGIN + PROMPT 2 1 "Nome simbolico studio per trasferimenti " + FIELD %INS->S0 + FLAGS "ZU" + CHECKTYPE REQUIRED + KEY 2 +END + +GROUPBOX DLG_NULL 76 7 +BEGIN + PROMPT 1 3 "Eventuale ultimo invio non completato" +END + +NUMBER F_DITTAINV 5 +BEGIN + PROMPT 2 4 "ditta inviante " + FLAGS "G" + FIELD %INS->I0 +END + +STRING F_RAGSOC 50 +BEGIN + PROMPT 25 4 "" + FLAGS "D" +END + +NUMBER F_NUMULINV 3 +BEGIN + PROMPT 2 6 "Numero invio " + FLAGS "R" +END + +DATE F_DATAULIN +BEGIN + PROMPT 45 6 "Data ultimo invio " +END + +STRING F_STATO 1 +BEGIN + PROMPT 2 7 "Stato invio " + FLAGS "U" +END + +STRING F_USELAB 1 +BEGIN + PROMPT 18 7 "" + FLAGS "U" +END + +STRING F_CHIAVE 60 +BEGIN + PROMPT 15 8 "" + FLAGS "U" +END + +ENDPAGE + +ENDMASK diff --git a/cg/cgtbinv.uml b/cg/cgtbinv.uml index 47b776a26..b332315b9 100755 --- a/cg/cgtbinv.uml +++ b/cg/cgtbinv.uml @@ -1,9 +1,7 @@ #include "cgtbinv.h" TOOLBAR "topbar" 0 0 0 2 - #include - ENDPAGE PAGE "Tabella invii ditta" 0 2 0 0 diff --git a/cg/cgtbleg.h b/cg/cgtbleg.h new file mode 100755 index 000000000..fe5c0b5dd --- /dev/null +++ b/cg/cgtbleg.h @@ -0,0 +1,21 @@ + + +// campi maschera batb%leg.msk + +#define F_CODICE 101 +#define F_DESCR 102 + + + + + + + + + + + + + + + diff --git a/cg/cgtbleg.uml b/cg/cgtbleg.uml new file mode 100755 index 000000000..751ebfa9f --- /dev/null +++ b/cg/cgtbleg.uml @@ -0,0 +1,47 @@ +#include "cgtbleg.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Tabella Codici Legali" 0 2 0 0 +GROUPBOX DLG_NULL 75 7 +BEGIN + PROMPT 1 0 "" + FLAGS "R" +END + +STRING F_CODICE 3 +BEGIN +PROMPT 4 2 "Codice " +HELP "Codice di riconoscimento codici legali" +FIELD CODTAB +FLAGS "U" +KEY 1 +USE %LEG +INPUT CODTAB F_CODICE +DISPLAY "Codice" CODTAB +DISPLAY "Descrizione @50" S0 +OUTPUT F_CODICE CODTAB +OUTPUT F_DESCR S0 +CHECKTYPE REQUIRED +END + +STRING F_DESCR 50 +BEGIN +PROMPT 4 4 "Descrizione " +HELP "Descrizione del codice legale" +FIELD LF_TABCOM->S0 +KEY 2 +USE %LEG KEY 2 +INPUT CODTAB F_CODICE +INPUT S0 F_DESCR +DISPLAY "Descrizione @50" S0 +DISPLAY "Codice" CODTAB +OUTPUT F_CODICE CODTAB +OUTPUT F_DESCR S0 +CHECKTYPE REQUIRED +END + +ENDPAGE +ENDMASK diff --git a/cg/cgtbmsp.h b/cg/cgtbmsp.h new file mode 100755 index 000000000..c8fad230f --- /dev/null +++ b/cg/cgtbmsp.h @@ -0,0 +1,21 @@ + + +// campi maschera batb%msp.msk + +#define F_CODICE 101 +#define F_DESCR 102 + + + + + + + + + + + + + + + diff --git a/cg/cgtbmsp.uml b/cg/cgtbmsp.uml new file mode 100755 index 000000000..e1f396592 --- /dev/null +++ b/cg/cgtbmsp.uml @@ -0,0 +1,48 @@ +#include "cgtbmsp.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Modalita' di Spedizione" 0 2 0 0 + +GROUPBOX DLG_NULL 75 7 +BEGIN + PROMPT 1 0 "" + FLAGS "R" +END + +STRING F_CODICE 3 +BEGIN +PROMPT 4 2 "Codice " +HELP "Codice della modalit… di spedizione" +FIELD CODTAB +FLAGS "U" +KEY 1 +USE %MSP +INPUT CODTAB F_CODICE +DISPLAY "Codice" CODTAB +DISPLAY "Descrizione @50" S0 +OUTPUT F_CODICE CODTAB +OUTPUT F_DESCR S0 +CHECKTYPE REQUIRED +END + +STRING F_DESCR 50 +BEGIN +PROMPT 4 4 "Descrizione " +HELP "Descrizione della modalit… di spedizione" +FIELD LF_TABCOM->S0 +KEY 2 +USE %MSP KEY 2 +INPUT CODTAB F_CODICE +INPUT S0 F_DESCR +DISPLAY "Descrizione @50" S0 +DISPLAY "Codice" CODTAB +OUTPUT F_CODICE CODTAB +OUTPUT F_DESCR S0 +CHECKTYPE REQUIRED +END + +ENDPAGE +ENDMASK diff --git a/cg/cgtbndo.h b/cg/cgtbndo.h new file mode 100755 index 000000000..741ed58cf --- /dev/null +++ b/cg/cgtbndo.h @@ -0,0 +1,21 @@ + + +// campi maschera batb%ndo.msk + +#define F_CODICE 101 +#define F_DESCR 102 + + + + + + + + + + + + + + + diff --git a/cg/cgtbndo.uml b/cg/cgtbndo.uml new file mode 100755 index 000000000..3e323ea70 --- /dev/null +++ b/cg/cgtbndo.uml @@ -0,0 +1,48 @@ +#include "cgtbndo.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Tabella Note Documento" 0 2 0 0 + +GROUPBOX DLG_NULL 75 7 +BEGIN + PROMPT 1 0 "" + FLAGS "R" +END + +STRING F_CODICE 3 +BEGIN + PROMPT 4 2 "Codice " + HELP "Codice note documento" + FIELD CODTAB + FLAGS "U" + KEY 1 + USE %NDO + INPUT CODTAB F_CODICE + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione @50" S0 + OUTPUT F_CODICE CODTAB + OUTPUT F_DESCR S0 + CHECKTYPE REQUIRED +END + +STRING F_DESCR 50 +BEGIN + PROMPT 4 4 "Descrizione " + HELP "Descrizione nota documento" + FIELD LF_TABCOM->S0 + KEY 2 + USE %NDO KEY 2 + INPUT CODTAB F_CODICE + INPUT S0 F_DESCR + DISPLAY "Descrizione @50" S0 + DISPLAY "Codice" CODTAB + OUTPUT F_CODICE CODTAB + OUTPUT F_DESCR S0 + CHECKTYPE REQUIRED +END + +ENDPAGE +ENDMASK diff --git a/cg/cgtbnot.h b/cg/cgtbnot.h new file mode 100755 index 000000000..ff2f6ba18 --- /dev/null +++ b/cg/cgtbnot.h @@ -0,0 +1,20 @@ +// campi maschera batb%not.msk + +#define F_NOT_COD 101 +#define F_NOT_DESC 102 +#define F_NOT_BLOCCA 103 + + + + + + + + + + + + + + + diff --git a/cg/cgtbnot.uml b/cg/cgtbnot.uml new file mode 100755 index 000000000..bf0da6f9d --- /dev/null +++ b/cg/cgtbnot.uml @@ -0,0 +1,46 @@ +#include "cgtbnot.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Tabella Note cliente" 0 2 0 0 + +GROUPBOX DLG_NULL 75 3 +BEGIN + PROMPT 1 0 "" + FLAGS "R" +END + +STRING F_NOT_COD 2 +BEGIN +PROMPT 3 1 "Codice " +HELP "Codice note del cliente" +FIELD CODTAB +FLAGS "U" +KEY 1 +USE %NOT +INPUT CODTAB F_NOT_COD +DISPLAY "Codice" CODTAB +DISPLAY "Descrizione@50" S0 +DISPLAY "Blocca immissione" B0 +OUTPUT F_NOT_COD CODTAB +CHECKTYPE REQUIRED +END + +BOOLEAN F_NOT_BLOCCA +BEGIN +PROMPT 3 3 "Blocca immissione" +HELP "Indicare se bloccare l'inserimento del documento" +FIELD B0 +END + +MEMO F_NOT_DESC 75 -2 +BEGIN + PROMPT 1 5 "Descrizione" + HELP "Descrizione della nota del cliente" + CHECKTYPE SEARCH +END + +ENDPAGE +ENDMASK diff --git a/cg/cgtbpor.h b/cg/cgtbpor.h new file mode 100755 index 000000000..936e605c9 --- /dev/null +++ b/cg/cgtbpor.h @@ -0,0 +1,22 @@ + + +// campi maschera batb%por.msk + +#define F_CODICE 101 +#define F_DESCR 102 +#define F_CONSEGNA 103 +#define F_TRASPORTO 104 + + + + + + + + + + + + + + diff --git a/cg/cgtbpor.uml b/cg/cgtbpor.uml new file mode 100755 index 000000000..439f0048e --- /dev/null +++ b/cg/cgtbpor.uml @@ -0,0 +1,74 @@ +#include "cgtbpor.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Modalità di consegna" 0 2 0 0 + +GROUPBOX DLG_NULL 75 7 +BEGIN + PROMPT 1 0 "" + FLAGS "R" +END + +STRING F_CODICE 3 +BEGIN +PROMPT 4 2 "Codice " +HELP "Codice della modalita' di consegna" +FIELD CODTAB +FLAGS "U" +KEY 1 +USE %POR +INPUT CODTAB F_CODICE +DISPLAY "Codice" CODTAB +DISPLAY "Descrizione @50" S0 +OUTPUT F_CODICE CODTAB +OUTPUT F_DESCR S0 +CHECKTYPE REQUIRED +END + +STRING F_DESCR 50 +BEGIN +PROMPT 4 4 "Descrizione " +HELP "Descrizione della modalita' di consegna" +FIELD LF_TABCOM->S0 +KEY 2 +USE %POR KEY 2 +INPUT CODTAB F_CODICE +INPUT S0 F_DESCR +DISPLAY "Descrizione @50" S0 +DISPLAY "Codice" CODTAB +OUTPUT F_CODICE CODTAB +OUTPUT F_DESCR S0 +CHECKTYPE REQUIRED +END + +NUMBER F_TRASPORTO 1 +BEGIN + PROMPT 4 7 "Modo di trasporto " + USE %IMT + INPUT CODTAB F_TRASPORTO + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_TRASPORTO CODTAB + CHECKTYPE NORMAL + FIELD I0 +END + +STRING F_CONSEGNA 3 +BEGIN + PROMPT 4 9 "Condizioni consegna " + USE %ICC + FLAGS "U" + INPUT CODTAB F_CONSEGNA + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_CONSEGNA CODTAB + CHECKTYPE NORMAL + FIELD S3 +END + +ENDPAGE + +ENDMASK diff --git a/cg/cgtbreg.h b/cg/cgtbreg.h new file mode 100755 index 000000000..455fc7233 --- /dev/null +++ b/cg/cgtbreg.h @@ -0,0 +1,83 @@ +// campi maschera batbreg.msk + +#define F_CODICE 131 +#define F_ANNO 132 +#define F_DESCR 133 +#define F_CODLIB 134 +#define F_TIPO 135 +#define F_CONSPRESSO 136 +#define F_PAGSTAMP 137 +#define F_PAGNUM 138 +#define F_DATAVID 139 +#define F_DATASCAD 140 +#define F_REGSOSP 141 +#define F_CODDITTA 142 +#define F_ATTIVITA 143 +#define F_CORRISP 144 + +#define F_STAMPA_SULLO_STESSO_REGISTRO 145 +#define F_ULTIMO_NUM_RIGA_STAMPATO 146 +#define F_PROG_DARE 147 +#define F_PROG_AVERE 148 + +#define F_STAMPA_RIEPIL_SUL_REGISTRO 149 +#define F_STAMPA_LIQUIDAZIONE 150 +#define F_ULTIMO_NUM_PROT 151 +#define F_MESE_STAMPA_ULTIMA_LIQ 152 +#define F_ULTIMA_DATA_DI_REGISTR 153 + +#define F_VENTIL 154 +#define F_STAMPA_CREDITO_ANNO_PREC 155 +#define F_STAMPA_INDIRIZZI_COMPLETI 156 +#define F_STAMPA_INTESTAZIONE 157 + +#define F_FREQUENZA_STAMPA 158 + +#define F_STAMPA_COSTI_RICAVI 159 +#define F_TIPO_DESC_COSTI_RICAVI 160 + +#define F_TOT_INCASSI 161 +#define F_TOT_PAGAMENTI 162 + +#define F_CODULC 163 +#define F_CODLBU 164 +#define F_RAGSOC 165 +#define F_REGSOSPEXT 166 +#define F_STAMPA_PLAFONDS 167 +#define F_STAMPA_NUMERI 168 + +#define F_ULTIMA_DATA_DI_STAMPA 170 +#define F_PROGINV 171 +#define F_TOTINV 172 + +#define F_PRINTER 201 +#define F_CONFIG 202 + +#define F_FREQSTA 203 +#define F_STARAGG 204 +#define F_STARAGGMAG 205 +#define F_STACLAFIS 206 +#define F_STAFISART 207 +#define F_STAFISCAU 208 +#define F_PAGULTCORR 215 +#define F_ULTCORR 216 +#define F_PAGULTPREC 217 +#define F_ULTPREC 218 + +#define GRP_VENDITE 2 +#define GRP_ACQUISTI 3 +#define GRP_RIEPIVA 4 +#define GRP_INCASSI 5 +#define GRP_GIORNALE 6 +#define GRP_LSOCIALI 7 +#define GRP_CESPITI 8 +#define GRP_INVENTARI 9 +#define GRP_GIORNMAG 10 + +#define GRP_SOLOGIORNMAG 11 +#define GRP_NOGIORNMAG 12 +#define GRP_SOLOGIORNALE 13 +#define GRP_NOGIORNALE 14 + +#define GRP_INTENTI 15 +#define GRP_NOINTENTI 16 diff --git a/cg/cgtbreg.uml b/cg/cgtbreg.uml new file mode 100755 index 000000000..abd68a77c --- /dev/null +++ b/cg/cgtbreg.uml @@ -0,0 +1,586 @@ +#include "../ba/ba3100.h" +#include "cgtbreg.h" +// +// I campi della tabella usate in più registri con significati diversi +// sono gestiti con messaggi a gruppi (GRP_NOxx e GRP_SOLOxxx ...) +// che azzerano i campi duplicati, impedendono il salvataggio su archivio +// +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Registri" -1 -1 78 18 + +NUMBER F_CODDITTA 5 +BEGIN + PROMPT 1 1 "Ditta " + FLAGS "FRDG" + USE LF_NDITTE + INPUT CODDITTA F_CODDITTA + OUTPUT F_RAGSOC RAGSOC + OUTPUT F_ATTIVITA CODATTPREV + CHECKTYPE NORMAL + MESSAGE COPY,18@ + MESSAGE FALSE COPY,18@ +END + +STRING F_RAGSOC 50 +BEGIN + PROMPT 20 1 "" + FLAGS "DG" + MESSAGE COPY,19@ + MESSAGE FALSE COPY,19@ +END + +NUMBER F_ANNO 4 +BEGIN + PROMPT 1 2 "Anno " + HELP "Anno a cui fa riferimento il registro" + FIELD CODTAB[1,4] + FLAGS "GAZ" + KEY 1 + GROUP 1 + USE REG + INPUT CODTAB[1,4] F_ANNO + INPUT CODTAB[5,7] F_CODICE + DISPLAY "Anno" CODTAB[1,4] + DISPLAY "Codice" CODTAB[5,7] + DISPLAY "Descrizione @50" S0 + DISPLAY "Tipo" I0 + OUTPUT F_ANNO CODTAB[1,4] + OUTPUT F_CODICE CODTAB[5,7] + OUTPUT F_DESCR S0 + CHECKTYPE REQUIRED + MESSAGE COPY,20@ + MESSAGE FALSE COPY,20@ +END + +STRING F_CODICE 3 +BEGIN + PROMPT 49 2 "Codice registro " + Help "Codice del registro" + FIELD CODTAB[5,7] + USE REG + INPUT CODTAB[1,4] F_ANNO + INPUT CODTAB[5,7] F_CODICE + DISPLAY "Anno" CODTAB[1,4] + DISPLAY "Codice" CODTAB[5,7] + DISPLAY "Descrizione @50" S0 + DISPLAY "Tipo" I0 + OUTPUT F_CODICE CODTAB[5,7] + OUTPUT F_ANNO CODTAB[1,4] + OUTPUT F_DESCR S0 + FLAGS "GUZ" + KEY 1 + GROUP 1 + CHECKTYPE REQUIRED + MESSAGE COPY,21@ +END + +STRING F_DESCR 50 +BEGIN + PROMPT 1 3 "Descrizione " + FIELD S0 + KEY 2 + GROUP 1 + USE REG KEY 2 + INPUT S0 F_DESCR + DISPLAY "Descrizione @50" S0 + DISPLAY "Anno" CODTAB[1,4] + DISPLAY "Codice" CODTAB[5,7] + DISPLAY "Tipo" I0 + COPY OUTPUT F_CODICE + CHECKTYPE REQUIRED + MESSAGE COPY,22@ + HELP "Descrizione del registro" + WARNING "La descrizione e' obbligatoria" +END + +NUMBER F_CODLIB 2 +BEGIN + PROMPT 1 5 "Codice libro " + FIELD S7 + FLAGS "Z" + GROUP 1 + USE %ITL + INPUT CODTAB F_CODLIB + DISPLAY "Codice libro" CODTAB + DISPLAY "Descrizione @50" S0 + OUTPUT F_CODLIB CODTAB + OUTPUT F_DESCR S0 + CHECKTYPE NORMAL + HELP "Codice del libro sociale a cui fa riferimento il registro" +END + +LIST F_TIPO 1 28 +BEGIN + PROMPT 30 5 "Tipo " + HELP "Tipo di registro" + FIELD I0 + FLAGS "G" + GROUP 1 GR_MODIFY_PROTECTED + ITEM "1|1) Vendite" + MESSAGE HIDE,GRP_ACQUISTI@|HIDE,GRP_RIEPIVA@|HIDE,GRP_INCASSI@|HIDE,GRP_GIORNALE@|HIDE,GRP_LSOCIALI@|HIDE,GRP_CESPITI@|HIDE,GRP_INVENTARI@|HIDE,GRP_GIORNMAG@|SHOW,GRP_VENDITE@ + MESSAGE "",GRP_SOLOGIORNMAG@ + ITEM "2|2) Acquisti" + MESSAGE HIDE,GRP_VENDITE@|HIDE,GRP_RIEPIVA@|HIDE,GRP_INCASSI@|HIDE,GRP_GIORNALE@|HIDE,GRP_LSOCIALI@|HIDE,GRP_CESPITI@|HIDE,GRP_INVENTARI@|HIDE,GRP_GIORNMAG@|SHOW,GRP_ACQUISTI@ + MESSAGE "",GRP_SOLOGIORNMAG@ + ITEM "3|3) Libro IVA riepilogativo" + MESSAGE HIDE,GRP_VENDITE@|HIDE,GRP_ACQUISTI@|HIDE,GRP_INCASSI@|HIDE,GRP_GIORNALE@|HIDE,GRP_LSOCIALI@|HIDE,GRP_CESPITI@|HIDE,GRP_INVENTARI@|HIDE,GRP_GIORNMAG@|SHOW,GRP_RIEPIVA@ + MESSAGE "",GRP_SOLOGIORNMAG@ +// ITEM "4|4) Libro Incassi e pagamenti" +// MESSAGE HIDE,GRP_VENDITE@|HIDE,GRP_ACQUISTI@|HIDE,GRP_RIEPIVA@|HIDE,GRP_GIORNALE@|HIDE,GRP_LSOCIALI@|HIDE,GRP_CESPITI@|HIDE,GRP_INVENTARI@|HIDE,GRP_GIORNMAG@|SHOW,GRP_INCASSI@ + ITEM "5|5) Libro Giornale" + MESSAGE HIDE,GRP_VENDITE@|HIDE,GRP_RIEPIVA@|HIDE,GRP_INCASSI@|HIDE,GRP_LSOCIALI@|HIDE,GRP_CESPITI@|HIDE,GRP_INVENTARI@|HIDE,GRP_GIORNMAG@|SHOW,GRP_GIORNALE@ + MESSAGE "",GRP_SOLOGIORNMAG@|"",F_ATTIVITA + ITEM "6|6) Libri Sociali" + MESSAGE HIDE,GRP_VENDITE@|HIDE,GRP_ACQUISTI@|HIDE,GRP_RIEPIVA@|HIDE,GRP_INCASSI@|HIDE,GRP_GIORNALE@|HIDE,GRP_CESPITI@|HIDE,GRP_INVENTARI@|HIDE,GRP_GIORNMAG@|SHOW,GRP_LSOCIALI@ + MESSAGE "",GRP_SOLOGIORNMAG@|"",F_ATTIVITA + ITEM "7|7) Libro Cespiti" + MESSAGE HIDE,GRP_VENDITE@|HIDE,GRP_ACQUISTI@|HIDE,GRP_RIEPIVA@|HIDE,GRP_INCASSI@|HIDE,GRP_GIORNALE@|HIDE,GRP_LSOCIALI@|HIDE,GRP_INVENTARI@|HIDE,GRP_GIORNMAG@|SHOW,GRP_CESPITI@|"",F_ATTIVITA +// ITEM "8|8) Libro Inventari" +// MESSAGE HIDE,GRP_VENDITE@|HIDE,GRP_ACQUISTI@|HIDE,GRP_RIEPIVA@|HIDE,GRP_INCASSI@|HIDE,GRP_GIORNALE@|HIDE,GRP_LSOCIALI@|HIDE,GRP_CESPITI@|HIDE,GRP_GIORNMAG@|SHOW,GRP_INVENTARI@|"",F_ATTIVITA + ITEM "9|9) Giornale di magazzino" + MESSAGE HIDE,GRP_VENDITE@|HIDE,GRP_ACQUISTI@|HIDE,GRP_RIEPIVA@|HIDE,GRP_INCASSI@|HIDE,GRP_GIORNALE@|HIDE,GRP_LSOCIALI@|HIDE,GRP_CESPITI@|HIDE,GRP_INVENTARI@|SHOW,GRP_GIORNMAG@ + MESSAGE "",GRP_NOGIORNMAG@|"",F_ATTIVITA + ITEM "10|10) Dichiarazione d'intenti" + MESSAGE HIDE,GRP_NOINTENTI@|SHOW,GRP_INTENTI@ +END + +STRING F_CONSPRESSO 50 +BEGIN + PROMPT 1 7 "Conservato presso " + HELP "Luogo dove verra' conservato il registro" + FIELD S1 + GROUP 1 +END + +STRING F_ATTIVITA 5 +BEGIN + PROMPT 1 8 "Codice attivita' " + FIELD S8 + FLAGS "URZ" + GROUP GRP_VENDITE GRP_ACQUISTI GRP_RIEPIVA GRP_NOINTENTI + USE LF_ATTIV + INPUT CODDITTA F_CODDITTA SELECT + INPUT CODATT F_ATTIVITA + DISPLAY "Codice" CODATT + DISPLAY "Descrizione@50" DESCR + OUTPUT F_ATTIVITA CODATT + HELP "Codice dell'attivita' della ditta" + CHECKTYPE REQUIRED + WARNING "Attivita' non prevista per questa ditta" + ADD RUN ba4 -4 +END + +NUMBER F_CODULC 3 +BEGIN + PROMPT 35 8 "Unita' locale " + FLAGS "R" + GROUP GRP_VENDITE GRP_ACQUISTI GRP_RIEPIVA GRP_INCASSI GRP_GIORNALE GRP_LSOCIALI GRP_GIORNMAG GRP_NOINTENTI + FIELD I7 + USE LF_UNLOC + JOIN LF_COMUNI TO LF_UNLOC KEY 1 INTO COM=COMULC + INPUT CODDITTA F_CODDITTA SELECT + INPUT CODULC F_CODULC + DISPLAY "Codice" CODDITTA + DISPLAY "Un.Loc" CODULC + DISPLAY "Localita'@50" LF_COMUNI->DENCOM + DISPLAY "Indirizzo@35" INDULC + DISPLAY "N.ro civico@35" CIVULC + OUTPUT F_CODULC CODULC + HELP "Codice dell'unita' locale della ditta" + WARNING "Unita' locale non prevista per questa ditta" + CHECKTYPE NORMAL + ADD RUN ba4 -3 +END + +NUMBER F_PAGSTAMP 5 +BEGIN + PROMPT 1 10 "Pagine stampate " + HELP "Numero di pagine gia' stampate" + FIELD I1 + GROUP 1 +END + +NUMBER F_PAGNUM 5 +BEGIN + PROMPT 30 10 "Pagine numerate " + HELP "numero di pagine di cui e' stata stampata la numerazione" + FIELD I2 + GROUP 1 +END + +DATE F_ULTIMA_DATA_DI_STAMPA +BEGIN + PROMPT 1 11 "Ultima data di stampa " + HELP "Data dell'ultima stampa effettuata" + FIELD D3 + GROUP 1 +END + +BOOLEAN F_STAMPA_NUMERI +BEGIN + PROMPT 1 13 "Stampa numeri di pagina durante la stampa del registro" + FIELD S11 + GROUP 1 +END + +DATE F_DATAVID +BEGIN + PROMPT 1 14 "Data vidimazione " + HELP "Data di vidimazione del registro" + FIELD D0 + GROUP 1 +END + +DATE F_DATASCAD +BEGIN + PROMPT 35 14 "Data scadenza " + HELP "Data fino a cui rimane in vigore il registro" + FIELD D1 + GROUP 1 +END + +NUMBER F_PROGINV 4 +BEGIN + PROMPT 1 15 "Progressivo invio " + FIELD I3 + GROUP GRP_INTENTI +END + +NUMBER F_TOTINV 4 +BEGIN + PROMPT 30 15 "Totale invii " + FIELD I4 + GROUP GRP_INTENTI +END + +STRING F_CODLBU 3 +BEGIN + PROMPT 1 16 "Cod. libro unico " + FIELD S6 + HELP "Codice del libro unico a cui fa riferimento" + FLAGS "UZ" + GROUP GRP_VENDITE GRP_ACQUISTI GRP_RIEPIVA GRP_NOINTENTI + USE %LBU + INPUT CODTAB[1,4] F_ANNO + INPUT CODTAB[5,7] F_CODLBU + DISPLAY "Anno" CODTAB[1,4] + DISPLAY "Codice" CODTAB[5,7] + DISPLAY "Descrizione@50" S0 + OUTPUT F_ANNO CODTAB[1,4] + OUTPUT F_CODLBU CODTAB[5,7] + WARNING "Libro unico assente" + CHECKTYPE NORMAL + VALIDATE NOT_EMPTY_CHECK_FIELD +END + +BOOLEAN F_CONFIG +BEGIN + PROMPT 1 18 "Stampante configurata" + GROUP GRP_NOINTENTI +END + +BUTTON F_PRINTER 30 2 +BEGIN + PROMPT 40 18 "Configurazione ~stampante" + GROUP GRP_NOINTENTI +END + +ENDPAGE + +PAGE "Opzioni" -1 -1 78 18 + +NUMBER DLG_NULL 5 +BEGIN + PROMPT 1 1 "Ditta " + FLAGS "DR" + GROUP 18 +END + +STRING DLG_NULL 50 +BEGIN + PROMPT 20 1 "" + FLAGS "D" + GROUP 19 +END + +NUMBER DLG_NULL 4 +BEGIN + PROMPT 1 2 "Anno " + FLAGS "DP" + GROUP 20 +END + +STRING DLG_NULL 3 +BEGIN + PROMPT 49 2 "Codice registro " + FLAGS "D" + GROUP 21 +END + +STRING DLG_NULL 50 +BEGIN + PROMPT 1 3 "Descrizione " + GROUP 22 + FLAGS "D" +END + +BOOLEAN F_REGSOSP +BEGIN + PROMPT 1 5 "Registro in sospensione " + FIELD B1 + GROUP GRP_VENDITE GRP_ACQUISTI GRP_NOGIORNMAG + HELP "Indicare se il registro e' in sospensione d'imposta" + MESSAGE TRUE ENABLE,F_REGSOSPEXT + MESSAGE FALSE CLEAR,F_REGSOSPEXT +END + +LIST F_REGSOSPEXT 15 +BEGIN + PROMPT 29 5 "" + GROUP GRP_VENDITE GRP_ACQUISTI GRP_NOGIORNMAG + FLAGS "D" + FIELD I9 + ITEM "1|Normale" + ITEM "2|Volume d'affari" + ITEM "3|Liquidazione" +END + +BOOLEAN F_STAMPA_CREDITO_ANNO_PREC +BEGIN + PROMPT 48 5 "Stampa credito anno precedente" + HELP "Indicare se si vuole la stampa del credito IVA dell'anno precedente" + FIELD B4 + GROUP GRP_ACQUISTI GRP_NOGIORNMAG +END + +BOOLEAN F_CORRISP +BEGIN + PROMPT 48 5 "Registro corrispettivi" + HELP "Indicare se si tratta di registro dei corrispettivi" + FIELD B0 + GROUP GRP_VENDITE +END + +LIST F_TIPO_DESC_COSTI_RICAVI 1 10 +BEGIN + PROMPT 1 5 "Tipo descrizione costi/ricavi " + HELP "Livello a cui stampare la descrizione costi/ricavi" + FIELD I3 + GROUP GRP_INCASSI GRP_NOGIORNMAG GRP_NOINTENTI + ITEM "1|Gruppo" + ITEM "2|Conto" +END + +NUMBER F_ULTIMO_NUM_RIGA_STAMPATO 7 +BEGIN + PROMPT 1 5 "Ultima riga stampata " + FIELD I6 + HELP "Ultimo numero della riga stampata" + FLAGS "R" + GROUP GRP_INCASSI GRP_GIORNALE GRP_NOGIORNMAG +END + +BOOLEAN F_STAMPA_INDIRIZZI_COMPLETI +BEGIN + PROMPT 1 7 "Stampa indirizzi completi" + HELP "Indicare se stampare gli indirizzi completi" + FIELD B5 + GROUP GRP_VENDITE GRP_ACQUISTI GRP_NOGIORNMAG +END + +LIST F_FREQUENZA_STAMPA 1 16 +BEGIN + PROMPT 1 7 "Stampa reg. riepilogativo " + HELP "Intervallo per fare il riepilogo" + FIELD S9 + GROUP GRP_RIEPIVA + ITEM "M|Mensile" + ITEM "T|Trimestrale" +END + +CURRENCY F_PROG_DARE 18 +BEGIN + PROMPT 1 7 "Progressivo dare " + HELP "Progressivo dare del giornale" + FIELD R1 + GROUP GRP_GIORNALE GRP_SOLOGIORNALE +END + +CURRENCY F_TOT_INCASSI 18 +BEGIN + PROMPT 1 7 "Totale incassi " + HELP "Progressivo degli incassi effettuati" + FIELD R0 + GROUP GRP_INCASSI +END + +BOOLEAN F_STAMPA_RIEPIL_SUL_REGISTRO +BEGIN + PROMPT 48 7 "Stampa riepilogo liquidazione" + FIELD B6 + GROUP GRP_VENDITE GRP_ACQUISTI GRP_RIEPIVA + HELP "Indicare se stampare il riepilogo IVA delle aliquote utilizzate" + MESSAGE FALSE ENABLE,F_STAMPA_LIQUIDAZIONE + MESSAGE TRUE DISABLE,F_STAMPA_LIQUIDAZIONE|"X",F_STAMPA_LIQUIDAZIONE +END + +CURRENCY F_TOT_PAGAMENTI 18 +BEGIN + PROMPT 42 7 "Totale pagamenti " + HELP "Progressivo dei pagamenti effettuati" + FIELD R1 + GROUP GRP_INCASSI GRP_NOGIORNALE +END + +BOOLEAN F_STAMPA_LIQUIDAZIONE +BEGIN + PROMPT 1 9 "Stampa liquidazione" + FIELD B7 + GROUP GRP_VENDITE GRP_ACQUISTI GRP_RIEPIVA + HELP "Indicare se stampare a fine periodo la liquidazione" +END + +BOOLEAN F_STAMPA_PLAFONDS +BEGIN + PROMPT 48 9 "Stampa plafonds " + FIELD S10 + GROUP GRP_VENDITE GRP_ACQUISTI GRP_RIEPIVA +END + +CURRENCY F_PROG_AVERE 18 +BEGIN + PROMPT 1 9 "Progressivo avere " + HELP "Progressivo avere del giornale" + FIELD R2 + PICTURE "." + GROUP GRP_GIORNALE GRP_SOLOGIORNALE +END + +BOOLEAN F_STAMPA_COSTI_RICAVI +BEGIN + PROMPT 42 9 "Stampa costi/ricavi su libro cronologico " + FIELD B2 + GROUP GRP_INCASSI GRP_NOGIORNMAG +END + +LIST F_MESE_STAMPA_ULTIMA_LIQ 10 +BEGIN + PROMPT 1 11 "Mese stampa ultima liquidazione " + HELP "Mese in cui e' stata stampata l'ultima liquidazione" + FIELD I4 + FLAGS "M" + ITEM "00|Nessuno" + ITEM "13|Annuale" + GROUP GRP_VENDITE GRP_ACQUISTI GRP_RIEPIVA GRP_NOINTENTI +END + +BOOLEAN F_VENTIL +BEGIN + PROMPT 48 11 "Attivita' con ventilazione" + HELP "Indicare se vengono registrate operazioni con ventilazione IVA" + FIELD B3 + GROUP GRP_ACQUISTI GRP_NOGIORNMAG +END + +BOOLEAN F_STAMPA_SULLO_STESSO_REGISTRO +BEGIN + PROMPT 1 11 "Stampa sullo stesso registro" + HELP "Indicare se il nuovo esercizio viene stampato sullo stesso registro" + FIELD B8 + GROUP GRP_GIORNALE +END + +NUMBER F_ULTIMO_NUM_PROT 7 +BEGIN + PROMPT 1 13 "Ultimo numero di protocollo " + FIELD I5 + FLAGS "R" + GROUP GRP_VENDITE GRP_ACQUISTI + HELP "Ultimo numero di protocollo" +END + +DATE F_ULTIMA_DATA_DI_REGISTR +BEGIN + PROMPT 1 15 "Ultima data di registrazione " + HELP "Date dell'ultima registrazione stampata" + FIELD D2 + GROUP GRP_VENDITE GRP_ACQUISTI GRP_INCASSI GRP_GIORNALE +END + +BOOLEAN F_STAMPA_INTESTAZIONE +BEGIN + PROMPT 1 17 "Stampa intestazione ditta" + HELP "Indicare se stampare l'intestazione della ditta" + FIELD B9 + GROUP 1 +END + +NUMBER F_FREQSTA 2 +BEGIN + FLAGS "U" + PROMPT 2 6 "Frequenza di stampa " + FIELD I3 + NUM_EXPR #F_FREQ<=31 + WARNING "La frequenza di stampa può arrivare fino a 31 giorni" + GROUP GRP_GIORNMAG GRP_SOLOGIORNMAG GRP_NOINTENTI +END + +BOOLEAN F_STARAGG +BEGIN + PROMPT 2 7 "Stampa giornale raggruppato" + FIELD B1 + GROUP GRP_GIORNMAG GRP_SOLOGIORNMAG +END + +BOOLEAN F_STARAGGMAG +BEGIN + PROMPT 2 8 "Raggruppo i magazzini" + FIELD B2 + GROUP GRP_GIORNMAG GRP_SOLOGIORNMAG +END + +BOOLEAN F_STACLAFIS +BEGIN + PROMPT 2 9 "Raggruppo per classe fiscale articoli " + FIELD B3 + GROUP GRP_GIORNMAG GRP_SOLOGIORNMAG +END + + +BOOLEAN F_STAFISART +BEGIN + PROMPT 2 10 "Raggruppo per gruppo fiscale articoli " + FIELD B4 + GROUP GRP_GIORNMAG GRP_SOLOGIORNMAG +END + +BOOLEAN F_STAFISCAU +BEGIN + PROMPT 2 11 "Raggruppo per gruppo causali " + FIELD B5 + GROUP GRP_GIORNMAG GRP_SOLOGIORNMAG +END + + +NUMBER F_PAGULTPREC 3 +BEGIN + PROMPT 2 12 "Pagina e ultima stampa esercizio precedente " + FIELD I6 + GROUP GRP_GIORNMAG GRP_SOLOGIORNMAG +END + +DATE F_ULTPREC +BEGIN + PROMPT 2 13 "Data ultima stampa esercizio precedente " + FIELD D4 + GROUP GRP_GIORNMAG GRP_SOLOGIORNMAG +END + +ENDPAGE + +ENDMASK + + diff --git a/cg/cgtbscc.h b/cg/cgtbscc.h new file mode 100755 index 000000000..8e5eb5b71 --- /dev/null +++ b/cg/cgtbscc.h @@ -0,0 +1,22 @@ + + +// campi maschera batb%sco.msk + +#define F_CODICE 101 +#define F_DESCR 102 +#define F_PERC 103 + + + + + + + + + + + + + + + diff --git a/cg/cgtbscc.uml b/cg/cgtbscc.uml new file mode 100755 index 000000000..1e8d6df28 --- /dev/null +++ b/cg/cgtbscc.uml @@ -0,0 +1,52 @@ +#include "cgtbscc.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Tabella Sconti clienti" 0 2 0 0 + +GROUPBOX DLG_NULL 78 7 + BEGIN + PROMPT 1 0 "" + FLAGS "R" + END + +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 + +STRING F_PERC 20 +BEGIN +PROMPT 4 8 "Percentuale " +HELP "Percentuale sconto incondizionato" +FIELD S1 +END + +ENDPAGE +ENDMASK diff --git a/cg/cgtbtit.h b/cg/cgtbtit.h new file mode 100755 index 000000000..148b8f6fa --- /dev/null +++ b/cg/cgtbtit.h @@ -0,0 +1,21 @@ + + +// campi maschera batb%tit.msk + +#define F_CODICE 101 +#define F_DESCR 102 + + + + + + + + + + + + + + + diff --git a/cg/cgtbtit.uml b/cg/cgtbtit.uml new file mode 100755 index 000000000..43175cb9d --- /dev/null +++ b/cg/cgtbtit.uml @@ -0,0 +1,42 @@ +#include "cgtbtit.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Tabella Titoli Onorifici" 0 2 0 0 + +STRING F_CODICE 2 +BEGIN +PROMPT 4 2 "Codice " +HELP "Codice titolo onorifico" +FIELD CODTAB +FLAGS "U" +KEY 1 +USE %TIT +INPUT CODTAB F_CODICE +DISPLAY "Codice" CODTAB +DISPLAY "Descrizione @30" S0 +OUTPUT F_CODICE CODTAB +OUTPUT F_DESCR S0 +CHECKTYPE REQUIRED +END + +STRING F_DESCR 30 +BEGIN +PROMPT 4 4 "Descrizione " +HELP "Descrizione titolo onorifico" +FIELD LF_TABCOM->S0 +KEY 2 +USE %TIT KEY 2 +INPUT CODTAB F_CODICE +INPUT S0 F_DESCR +DISPLAY "Descrizione @30" S0 +DISPLAY "Codice" CODTAB +OUTPUT F_CODICE CODTAB +OUTPUT F_DESCR S0 +CHECKTYPE REQUIRED +END + +ENDPAGE +ENDMASK diff --git a/cg/cgtbtra.h b/cg/cgtbtra.h new file mode 100755 index 000000000..2b3fd3ff7 --- /dev/null +++ b/cg/cgtbtra.h @@ -0,0 +1,14 @@ +// Campi maschera tabella di trasferimento per ditta + +#define F_NOMEID 101 +#define F_CODDITTAINV 102 +#define F_CODDITTARIC 103 +#define F_AGGCAUSALI 104 +#define F_AGGCLIFO 105 +#define F_AGGPCON 106 +#define F_AGGIVD 107 +#define F_FATTEM 108 +#define F_FATTRIC 109 +#define F_NUMULTRAS 110 +#define F_DATAULTRAS 111 +#define F_RAGSOC 112 diff --git a/cg/cgtbtra.uml b/cg/cgtbtra.uml new file mode 100755 index 000000000..fc0bf630b --- /dev/null +++ b/cg/cgtbtra.uml @@ -0,0 +1,123 @@ +#include "cgtbtra.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Tabella ditte per trasferimento" 0 2 0 0 + +STRING F_NOMEID 10 +BEGIN + PROMPT 1 1 "Nome simbolico sistema inviante " + FIELD %TRA->CODTAB[1,10] + FLAGS "UZ" + KEY 1 + USE %TRA + INPUT CODTAB[1,10] F_NOMEID + INPUT CODTAB[11,15] F_CODDITTAINV + DISPLAY "Nome ident." CODTAB[1,10] + DISPLAY "Ditta inv." CODTAB[11,15] + DISPLAY "Ditta ric." I0 + DISPLAY "N.Invio" I1 + DISPLAY "Data invio" D0 + OUTPUT F_NOMEID CODTAB[1,10] + OUTPUT F_CODDITTAINV CODTAB[11,15] + CHECKTYPE REQUIRED + END + +NUMBER F_CODDITTAINV 5 +BEGIN + PROMPT 1 2 "Codice ditta inviante " + FIELD %TRA->CODTAB[11,15] + FLAGS "Z" + KEY 1 + COPY USE F_NOMEID + INPUT CODTAB[1,10] F_NOMEID + INPUT CODTAB[11,15] F_CODDITTAINV + COPY DISPLAY F_NOMEID + COPY OUTPUT F_NOMEID + CHECKTYPE REQUIRED + END + +NUMBER F_CODDITTARIC 5 +BEGIN + PROMPT 1 4 "Ditta ricevente " + FIELD %TRA->I0 + USE LF_NDITTE KEY 1 + INPUT CODDITTA F_CODDITTARIC + DISPLAY "Ditta" CODDITTA + DISPLAY "Ragione Sociale@50" RAGSOC + OUTPUT F_CODDITTARIC CODDITTA + OUTPUT F_RAGSOC RAGSOC + FLAGS "RZ" + CHECKTYPE REQUIRED + END + +STRING F_RAGSOC 50 +BEGIN + PROMPT 26 4 "" + FLAGS "D" + END + +LIST F_AGGCAUSALI 7 +BEGIN + PROMPT 1 6 "Aggiornamento causali gia' presenti " + FIELD %TRA->S0 + ITEMS "N|No" + ITEMS "D|Descr." + ITEMS "T|Tutto" +END + +LIST F_AGGCLIFO 7 +BEGIN + PROMPT 1 7 "Aggiornamento Clienti/Fornitori gia' presenti " + FIELD %TRA->S1 + ITEMS "N|No" + ITEMS "D|Descr." + ITEMS "T|Tutto" +END + +LIST F_AGGPCON 7 +BEGIN + PROMPT 1 8 "Aggiornamento voci Piano dei Conti gia' presenti " + FIELD %TRA->S2 + ITEMS "N|No" + ITEMS "D|Descr." + ITEMS "T|Tutto" +END + +LIST F_AGGIVD 7 +BEGIN + PROMPT 1 9 "Aggiornamento classi Piano dei Conti " + FIELD %TRA->S3 + ITEMS "N|No" + ITEMS "T|Tutto" +END + +BOOLEAN F_FATTEM +BEGIN + PROMPT 1 10 "Riattribuzione num. protocollo su fatture emesse " + FIELD %TRA->B0 +END + +BOOLEAN F_FATTRIC +BEGIN + PROMPT 1 11 "Riattribuzione num. protocollo su fatture ricevute " + FIELD %TRA->B1 +END + +NUMBER F_NUMULTRAS 3 +BEGIN + PROMPT 1 13 "Numero ultimo invio ricevuto " + FIELD %TRA->I1 +END + +DATE F_DATAULTRAS +BEGIN + PROMPT 39 13 "Data ultimo invio ricevuto " + FIELD %TRA->D0 +END + +ENPAGE + +ENDMASK diff --git a/cg/cgtbvet.h b/cg/cgtbvet.h new file mode 100755 index 000000000..d67538a6d --- /dev/null +++ b/cg/cgtbvet.h @@ -0,0 +1,34 @@ +// campi maschera batb%vet.msk + +#define F_CODVETT 101 +#define F_RAGSO 102 +#define F_IND 103 +#define F_TEL 104 +#define F_PTEL 105 +#define F_FAX 106 +#define F_TELEX 107 +#define F_CAP 108 +#define F_LOCALITA 109 +#define F_PROV 110 +#define F_CODNAZ 111 +#define F_DENNAZ 112 +#define F_CODCOM 113 +#define F_DENCOM 114 +#define F_NUM 115 +#define F_PFAX 116 +#define F_PTELEX 117 + + + + + + + + + + + + + + + diff --git a/cg/cgtbvet.uml b/cg/cgtbvet.uml new file mode 100755 index 000000000..313c3c6af --- /dev/null +++ b/cg/cgtbvet.uml @@ -0,0 +1,204 @@ +#include "cgtbvet.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Vettori" 0 2 0 0 + +GROUPBOX DLG_NULL 75 7 +BEGIN + PROMPT 1 0 "" + FLAGS "R" +END + +STRING F_CODVETT 6 +BEGIN +PROMPT 2 2 "Codice vettore " +FIELD CODTAB +HELP "Codice del vettore" +FLAGS "ZU" +USE %VET +CHECKTYPE REQUIRED +INPUT CODTAB F_CODVETT +DISPLAY "Codice vettore" CODTAB +DISPLAY "Ragione sociale@50" S0 +OUTPUT F_CODVETT CODTAB +OUTPUT F_RAGSO S0 +KEY 1 +END + +STRING F_RAGSO 50 +BEGIN +PROMPT 2 4 "Ragione sociale " +HELP "Ragione sociale del vettore" +FIELD S0 +USE %VET KEY 2 +CHECKTYPE REQUIRED +INPUT S0 F_RAGSO +DISPLAY "Codice vettore" CODTAB +DISPLAY "Ragione sociale@50" S0 +OUTPUT F_CODVETT CODTAB +OUTPUT F_RAGSO S0 +KEY 2 +END + +GROUPBOX DLG_NULL 75 6 +BEGIN + PROMPT 1 7 "Recapito" + FLAGS "R" +END + +STRING F_IND 35 +BEGIN +PROMPT 2 8 "Indirizzo" +HELP "Indirizzo di residenza del vettore" +FIELD S1[1,35] +END + +STRING F_NUM 10 +BEGIN +PROMPT 58 8 "N." +HELP "Numero civico del vettore" +FIELD S1[36,45] +END + +STRING F_LOCALITA 35 +BEGIN +PROMPT 2 9 "Localita'" +HELP "Localita' di residenza del vettore" +FIELD S1[46,70] +END + +STRING F_CAP 5 +BEGIN +PROMPT 50 9 "C.A.P." +HELP "C.A.P. di residenza del vettore" +FIELD S7 +END + +STRING F_PROV 2 +BEGIN +PROMPT 65 9 "Pr." +FLAGS "D" +HELP "Provincia di residenza del vettore" +END + +STRING F_CODCOM 4 +BEGIN +PROMPT 2 10 "Comune " +HELP "Codice comune di residenza del vettore" +FIELD S9 +USE LF_COMUNI +INPUT STATO F_CODNAZ +INPUT COM F_CODCOM +DISPLAY "Stato" STATO +DISPLAY "Cod. comune" COM +DISPLAY "Den. comune@50" DENCOM +OUTPUT F_CODNAZ STATO +OUTPUT F_CODCOM COM +OUTPUT F_DENCOM DENCOM +OUTPUT F_CAP CAPCOM +OUTPUT F_PROV PROVCOM +MESSAGE K_TAB,F_CODNAZ +CHECKTYPE NORMAL +WARNING "Comune assente" +END + +STRING F_DENCOM 50 +BEGIN +PROMPT 20 10 "" +USE LF_COMUNI KEY 2 +INPUT DENCOM F_DENCOM +DISPLAY "Comune@50" DENCOM +DISPLAY "Stato" STATO +DISPLAY "Codice" COM +COPY OUTPUT F_CODCOM +HELP "Nome del comune del vettore" +END + +NUMBER F_CODNAZ 3 +BEGIN +PROMPT 2 11 "Stato " +HELP "Codice nazione di residenza del vettore" +FIELD S8 +FLAGS "RZ" +USE %STA +INPUT CODTAB F_CODNAZ +DISPLAY "Codice" CODTAB +DISPLAY "Denominazione@50" S0 +OUTPUT F_CODNAZ CODTAB +OUTPUT F_DENNAZ S0 +CHECKTYPE NORMAL +WARNING "Stato assente" +END + +STRING F_DENNAZ 50 +BEGIN +PROMPT 20 11 "" +USE %STA KEY 2 +INPUT S0 F_DENNAZ +DISPLAY "Stato@50" S0 +DISPLAY "Codice" CODTAB +HELP "Nome dello stato del vettore" +COPY OUTPUT F_CODNAZ +END + +GROUPBOX DLG_NULL 75 5 +BEGIN + PROMPT 1 13 "Numeri telefonici" + FLAGS "R" +END + +STRING F_PTEL 10 +BEGIN +PROMPT 2 14 "Telefono " +HELP "Prefisso telefonico del vettore" +FIELD S5[1,10] +FLAGS "U" +END + +STRING F_TEL 20 +BEGIN +PROMPT 30 14 "" +HELP "Numero telefonico del vettore" +FIELD S3 +FLAGS "U" +END + +STRING F_PFAX 10 +BEGIN +PROMPT 2 15 "Fax " +HELP "Numero di Fax del vettore" +FIELD S5[11,20] +FLAGS "U" +END + +STRING F_FAX 20 +BEGIN +PROMPT 30 15 "" +HELP "Numero di Fax del vettore" +FIELD S4 +FLAGS "U" +END + +STRING F_PTELEX 10 +BEGIN +PROMPT 2 16 "Telex " +HELP "Numero di Telex del vettore" +FIELD S2[1,10] +FLAGS "U" +END + +STRING F_TELEX 20 +BEGIN +PROMPT 30 16 "" +HELP "Numero di Telex del vettore" +FIELD S2[11,30] +FLAGS "U" +END + + +ENDPAGE + +ENDMASK diff --git a/cg/cgtbzon.h b/cg/cgtbzon.h new file mode 100755 index 000000000..23e8c6901 --- /dev/null +++ b/cg/cgtbzon.h @@ -0,0 +1,9 @@ + + +// campi maschera batb%zon.msk + +#define F_CODICE 101 +#define F_DESCR 102 + + + diff --git a/cg/cgtbzon.uml b/cg/cgtbzon.uml new file mode 100755 index 000000000..4fab16efc --- /dev/null +++ b/cg/cgtbzon.uml @@ -0,0 +1,48 @@ +#include "cgtbzon.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Tabella Codici Zona" 0 2 0 0 + +GROUPBOX DLG_NULL 75 7 +BEGIN + PROMPT 1 0 "" + FLAGS "R" +END + +STRING F_CODICE 2 +BEGIN +PROMPT 2 2 "Codice " +HELP "Codice della zona" +FIELD CODTAB +FLAGS "U" +KEY 1 +USE ZON +INPUT CODTAB F_CODICE +DISPLAY "Codice" CODTAB +DISPLAY "Descrizione @50" S0 +OUTPUT F_CODICE CODTAB +OUTPUT F_DESCR S0 +CHECKTYPE REQUIRED +END + +STRING F_DESCR 50 +BEGIN +PROMPT 2 4 "Descrizione " +HELP "Descrizione della zona" +FIELD S0 +KEY 2 +USE ZON KEY 2 +INPUT CODTAB F_CODICE +INPUT S0 F_DESCR +DISPLAY "Descrizione @50" S0 +DISPLAY "Codice" CODTAB +OUTPUT F_CODICE CODTAB +OUTPUT F_DESCR S0 +CHECKTYPE REQUIRED +END + +ENDPAGE +ENDMASK