diff --git a/lv/lv0400c.h b/lv/lv0400c.h new file mode 100755 index 000000000..80657cc75 --- /dev/null +++ b/lv/lv0400c.h @@ -0,0 +1,6 @@ +//Definizione campi per maschera lv0400c +//Stampa Contratti per Cliente +#define F_CODCF 201 +#define F_RAGSOC 202 +#define F_CODCONT_DA 203 +#define F_CODCONT_A 204 \ No newline at end of file diff --git a/lv/lv0400c.rep b/lv/lv0400c.rep new file mode 100755 index 000000000..a0fd66a3f --- /dev/null +++ b/lv/lv0400c.rep @@ -0,0 +1,143 @@ + + + Stampa Contratto per Cliente + +
+
+ + + + + + + + + 168.CODCONT + + + + + + 20.RAGSOC + + + + 168.DATAIN + + + 20.INDCF + + + 20.CIVCF + + + + 168.DATASC + + + 20.CAPCF + + + 20.LOCALITACF + + + + 20.COFI + + + + + 20.CODPAG + + + 201@.S0 + + + + + 20.CODABI + + + + 20.CODCAB + + + 200@.RAGSOC + + + 204@.S0 + + + 200@.INDIR + + + 200@.CIV + + + + 207@.S0 + + + 200@.CAP + + + 200@.LOCALITA + + + + + + + + 168.COMMENTI + + + + + + + + +
+
+
+ + 169.CODART + + + 47.DESCR + + + 169.PREZZO + + + 169.UM + + + 169.QTACONG + +
+
+
+ USE 168 + +SELECT BETWEEN (CODCONT,#F_CODCONT_DA,#F_CODCONT_A) + +JOIN 20 TO 168 INTO TIPOCF=="C" CODCF==CODCF + +JOIN 169 TO 168 INTO CODCF==CODCF CODCONT==CODCONT + +JOIN 16 TO 168 ALIAS 200 INTO TIPOCF=="C" CODCF==CODCF CODIND==CODINDSP + +JOIN 47 TO 169 INTO CODART==CODART + +JOIN %CPG TO 20 ALIAS 201 INTO CODTAB==CODPAG + +JOIN %BAN TO 20 ALIAS 204 INTO CODTAB==CODABI+CODCAB + +JOIN %VAL TO 20 ALIAS 207 INTO CODTAB==CODVAL + +FROM CODCF=#F_CODCF + +TO CODCF=#F_CODCF + \ No newline at end of file diff --git a/lv/lv0400c.uml b/lv/lv0400c.uml new file mode 100755 index 000000000..080c76f5b --- /dev/null +++ b/lv/lv0400c.uml @@ -0,0 +1,87 @@ +#include "lv0400c.h" + +TOOLBAR "topbar" 0 0 0 2 +#include "printbar.h" +ENDPAGE + +PAGE "Stampa Contratti per Cliente" -1 -1 40 5 + +GROUPBOX DLG_NULL 85 5 +BEGIN + PROMPT 1 1 "@b Parametri Estrazione" +END + +NUMBER F_CODCF 6 +BEGIN + PROMPT 2 2 "Cliente " + FLAGS "U" + KEY 1 + USE LF_CLIFO + INPUT TIPOCF "C" + INPUT CODCF F_CODCF + DISPLAY "Codice" CODCF + DISPLAY "Ragione Sociale@50" RAGSOC + OUTPUT F_CODCF CODCF + OUTPUT F_RAGSOC RAGSOC + CHECKTYPE REQUIRED + FIELD #F_CODCF +END + +STRING F_RAGSOC 50 +BEGIN + PROMPT 30 2 "" + KEY 2 + USE LF_CLIFO KEY 2 + INPUT TIPOCF "C" + INPUT RAGSOC F_RAGSOC + DISPLAY "Ragione Sociale@50" RAGSOC + DISPLAY "Codice" CODCF + COPY OUTPUT F_CODCF + CHECKTYPE REQUIRED +END + +NUMBER F_CODCONT_DA 6 +BEGIN + PROMPT 2 4 "Da Contratto N." + USE LF_LVCONDV + JOIN LF_CLIFO INTO TIPOCF="C" CODCF=F_CODCF + INPUT CODCF F_CODCF SELECT + INPUT CODCONT F_CODCONT_DA + DISPLAY "Cliente" CODCF + DISPLAY "Contratto" CODCONT + DISPLAY "Dalla data" DATAIN + DISPLAY "alla data" DATASC + DISPLAY "Stato" STATUS + DISPLAY "Ragione sociale@50" LF_CLIFO->RAGSOC + OUTPUT F_CODCF CODCF + OUTPUT F_CODCONT_DA CODCONT + FLAGS "U" + FIELD #F_CODCONT_DA + CHECKTYPE REQUIRED +END + +NUMBER F_CODCONT_A 6 +BEGIN + PROMPT 30 4 "A Contratto N. " + USE LF_LVCONDV + JOIN LF_CLIFO INTO TIPOCF="C" CODCF=F_CODCF + INPUT CODCF F_CODCF SELECT + INPUT CODCONT F_CODCONT_A + DISPLAY "Cliente" CODCF + DISPLAY "Contratto" CODCONT + DISPLAY "Dalla data" DATAIN + DISPLAY "alla data" DATASC + DISPLAY "Stato" STATUS + DISPLAY "Ragione sociale@50" LF_CLIFO->RAGSOC + OUTPUT F_CODCF CODCF + OUTPUT F_CODCONT_A CODCONT + FLAGS "U" + FIELD #F_CODCONT_A + CHECKTYPE REQUIRED +END + + +ENDPAGE +ENDMASK + +