diff --git a/ve/ve6200a.h b/ve/ve6200a.h index b1dd7740f..6c22a1958 100755 --- a/ve/ve6200a.h +++ b/ve/ve6200a.h @@ -1,17 +1,18 @@ -// Include file per ve6200a.uml - -#define F_DATA_ELAB 101 -#define F_CODICE_CLIFO_DA 102 -#define F_CODICE_CLIFO_A 103 -#define F_DATA_DOCUMENTO_DA 104 -#define F_DATA_DOCUMENTO_A 105 -#define F_CODICE_AGENTE_DA 106 -#define F_CODICE_AGENTE_A 107 -#define F_CODICE_ZONA_DA 108 -#define F_CODICE_ZONA_A 109 -#define F_NUMERO_DOCUMENTO_DA 110 -#define F_NUMERO_DOCUMENTO_A 111 -#define F_ORDINAMENTO 112 -#define F_CODICE_ELAB 113 -#define F_ANNO_ELAB 114 -#define F_CODICE_NUMERAZIONE 115 +// Include file per ve6000.uml + +#define F_DATA_ELAB 101 +#define F_CODICE_CLIFO_DA 102 +#define F_CODICE_CLIFO_A 103 +#define F_DATA_DOCUMENTO_DA 104 +#define F_DATA_DOCUMENTO_A 105 +#define F_CODICE_AGENTE_DA 106 +#define F_CODICE_AGENTE_A 107 +#define F_CODICE_ZONA_DA 108 +#define F_CODICE_ZONA_A 109 +#define F_NUMERO_DOCUMENTO_DA 110 +#define F_NUMERO_DOCUMENTO_A 111 +#define F_ORDINAMENTO 112 +#define F_CODICE_ELAB 113 +#define F_ANNO_ELAB 114 +#define F_CODICE_NUMERAZIONE 115 +#define F_DESCR_ELAB 116 diff --git a/ve/ve6200a.uml b/ve/ve6200a.uml index 0d615d520..7a943bfd5 100755 --- a/ve/ve6200a.uml +++ b/ve/ve6200a.uml @@ -1,195 +1,215 @@ -#include "ve6200a.h" - -PAGE "Fatturazione" -1 -1 70 15 - -STRING F_CODICE_ELAB 8 -BEGIN - PROMPT 1 1 "Codice elaborazione differita " - FLAG "U" - USE %ELD - INPUT CODTAB F_CODICE_ELAB - DISPLAY "Codice@8" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_CODICE_ELAB CODTAB - CHECKTYPE REQUIRED -END - -DATE F_DATA_ELAB -BEGIN - PROMPT 13 2 "Data elaborazione " - FLAG "A" - VALIDATE DATE_CMP_FUNC >= F_DATA_DOCUMENTO_A - WARNING "Specificare una data maggiore o uguale a 'a data documento'" - CHECKTYPE REQUIRED - MESSAGE COPY,F_ANNO_ELAB,7,10 -END - -NUMBER F_ANNO_ELAB 4 -BEGIN - PROMPT 43 2 "Anno " - FLAG "D" -END - -GROUPBOX DLG_NULL 68 10 -BEGIN - PROMPT 1 4 "Estremi dei documenti da elaborare:" -END - -RADIOBUTTON F_ORDINAMENTO 16 -BEGIN - PROMPT 3 5 "Ordinamento per" - ITEM "C|Clienti" - MESSAGE ENABLE,1@|CLEAR,2@|CLEAR,3@ - ITEM "A|Agenti" - MESSAGE CLEAR,1@|ENABLE,2@|CLEAR,3@ - ITEM "Z|Zone" - MESSAGE CLEAR,1@|CLEAR,2@|ENABLE,3@ -END - -NUMBER F_CODICE_CLIFO_DA 6 -BEGIN - PROMPT 20 6 "da codice cliente " - FLAG "UR" - USE LF_CLIFO - INPUT TIPOCF "C" - INPUT CODCF F_CODICE_CLIFO_DA - DISPLAY "Codice cliente," CODCF - DISPLAY "Ragione sociale@50" RAGSOC - OUTPUT F_CODICE_CLIFO_DA CODCF - GROUP 1 -END - -NUMBER F_CODICE_CLIFO_A 6 -BEGIN - PROMPT 55 6 "a " - FLAG "UR" - USE LF_CLIFO - INPUT TIPOCF "C" - INPUT CODCF F_CODICE_CLIFO_A - COPY DISPLAY F_CODICE_CLIFO_DA - OUTPUT F_CODICE_CLIFO_A CODCF - NUM_EXPR #F_CODICE_CLIFO_A>=#F_CODICE_CLIFO_DA - WARNING "Digitare un codice maggiore o uguale al campo 'da codice cliente'" - GROUP 1 -END - -STRING F_CODICE_AGENTE_DA 5 -BEGIN - PROMPT 20 7 "da codice agente " - FLAG "UR" - USE AGE - INPUT CODTAB F_CODICE_AGENTE_DA - DISPLAY "Codice agente" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_CODICE_AGENTE_DA CODTAB - GROUP 2 -END - -STRING F_CODICE_AGENTE_A 5 -BEGIN - PROMPT 55 7 "a " - FLAG "UR" - USE AGE - INPUT CODTAB F_CODICE_AGENTE_A - COPY DISPLAY F_CODICE_AGENTE_DA - OUTPUT F_CODICE_AGENTE_A CODTAB - NUM_EXPR #F_CODICE_AGENTE_A>=#F_CODICE_AGENTE_DA - WARNING "Digitare un codice maggiore o uguale al campo 'da codice agente'" - GROUP 2 -END - -STRING F_CODICE_ZONA_DA 2 -BEGIN - PROMPT 20 8 "da codice zona " - FLAG "UR" - USE ZON - INPUT CODTAB F_CODICE_ZONA_DA - DISPLAY "Codice Zona" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_CODICE_ZONA_DA CODTAB - GROUP 3 -END - -STRING F_CODICE_ZONA_A 2 -BEGIN - PROMPT 55 8 "a " - FLAG "UR" - USE ZON - INPUT CODTAB F_CODICE_ZONA_A - COPY DISPLAY F_CODICE_ZONA_DA - OUTPUT F_CODICE_ZONA_A CODTAB - STR_EXPR #F_CODICE_ZONA_A>=#F_CODICE_ZONA_DA - WARNING "Digitare un codice maggiore o uguale al campo 'da codice zona'" - GROUP 3 -END - -DATE F_DATA_DOCUMENTO_DA -BEGIN - PROMPT 20 10 "da data documento " - WARNING "E' necessario specificare una data" -END - -DATE F_DATA_DOCUMENTO_A -BEGIN - PROMPT 55 10 "a " - VALIDATE DATE_CMP_FUNC >= F_DATA_DOCUMENTO_DA - WARNING "Specificare una data maggiore o uguale a 'da data documento'" -END - -STRING F_CODICE_NUMERAZIONE 4 -BEGIN - PROMPT 20 11 "Codice numerazione " - FLAG "UZ" - USE %NUM - INPUT CODTAB F_CODICE_NUMERAZIONE - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_CODICE_NUMERAZIONE CODTAB - CHECKTYPE NORMAL - MESSAGE EMPTY CLEAR,F_NUMERO_DOCUMENTO_DA|CLEAR,F_NUMERO_DOCUMENTO_A - MESSAGE ENABLE,F_NUMERO_DOCUMENTO_DA|ENABLE,F_NUMERO_DOCUMENTO_A -END - -NUMBER F_NUMERO_DOCUMENTO_DA 7 -BEGIN - PROMPT 20 12 "da numero documento " - USE LF_DOC - JOIN %TIP ALIAS 104 INTO CODTAB=TIPODOC - JOIN LF_CLIFO INTO TIPOCF=TIPOCF CODCF=CODCF - INPUT PROVV "D" - INPUT ANNO F_ANNO_ELAB SELECT - INPUT CODNUM F_CODICE_NUMERAZIONE SELECT - INPUT NDOC F_NUMERO_DOCUMENTO_DA - DISPLAY "Numero" NDOC - DISPLAY "Tipo@50" 104@->S0 - DISPLAY "Ragione sociale@50" LF_CLIFO->RAGSOC - OUTPUT F_NUMERO_DOCUMENTO_DA NDOC -END - -NUMBER F_NUMERO_DOCUMENTO_A 7 -BEGIN - PROMPT 55 12 "a " - COPY USE F_NUMERO_DOCUMENTO_DA - INPUT PROVV "D" - INPUT ANNO F_ANNO_ELAB SELECT - INPUT CODNUM F_CODICE_NUMERAZIONE SELECT - INPUT NDOC F_NUMERO_DOCUMENTO_A - COPY DISPLAY F_NUMERO_DOCUMENTO_DA - OUTPUT F_NUMERO_DOCUMENTO_A NDOC - NUM_EXPR (#THIS_FIELD==0)||(#THIS_FIELD>=#F_NUMERO_DOCUMENTO_DA) - WARNING "Specificare un numero documento superiore a quello di partenza" -END - -BUTTON DLG_OK 10 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 10 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE - -ENDMASK +#include "ve6200a.h" + +PAGE "Fatturazione" -1 -1 70 15 + +GROUPBOX DLG_NULL 68 4 +BEGIN + PROMPT 1 0 "Elaborazione differita" +END + +STRING F_CODICE_ELAB 8 +BEGIN + PROMPT 2 1 "Codice " + FLAG "U" + USE %ELD + INPUT CODTAB F_CODICE_ELAB + DISPLAY "Codice@8" CODTAB + DISPLAY "Descrizione@50" S0 + DISPLAY "Numerazione" S5 + OUTPUT F_CODICE_ELAB CODTAB + OUTPUT F_DESCR_ELAB S0 + OUTPUT F_CODICE_NUMERAZIONE S5 + CHECKTYPE REQUIRED +END + +STRING F_DESCR_ELAB 50 +BEGIN + PROMPT 2 2 "Descrizione " + USE %ELD KEY 2 + INPUT S0 F_DESCR_ELAB + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice@8" CODTAB + DISPLAY "Numerazione" S5 + COPY OUTPUT F_CODICE_ELAB + CHECKTYPE REQUIRED +END + +DATE F_DATA_ELAB +BEGIN + PROMPT 32 1 "Data " + FLAG "A" + VALIDATE DATE_CMP_FUNC >= F_DATA_DOCUMENTO_A + WARNING "Specificare una data maggiore o uguale a 'a data documento'" + CHECKTYPE REQUIRED + MESSAGE COPY,F_ANNO_ELAB,7,10 +END + +NUMBER F_ANNO_ELAB 4 +BEGIN + PROMPT 55 1 "Anno " + FLAG "D" +END + +GROUPBOX DLG_NULL 68 10 +BEGIN + PROMPT 1 4 "Estremi dei documenti da elaborare:" +END + +RADIOBUTTON F_ORDINAMENTO 16 +BEGIN + PROMPT 3 5 "Ordinamento per" + ITEM "C|Clienti" + MESSAGE ENABLE,1@|CLEAR,2@|CLEAR,3@ + ITEM "A|Agenti" + MESSAGE CLEAR,1@|ENABLE,2@|CLEAR,3@ + ITEM "Z|Zone" + MESSAGE CLEAR,1@|CLEAR,2@|ENABLE,3@ +END + +NUMBER F_CODICE_CLIFO_DA 6 +BEGIN + PROMPT 20 6 "da codice cliente " + FLAG "UR" + USE LF_CLIFO + INPUT TIPOCF "C" + INPUT CODCF F_CODICE_CLIFO_DA + DISPLAY "Codice cliente," CODCF + DISPLAY "Ragione sociale@50" RAGSOC + OUTPUT F_CODICE_CLIFO_DA CODCF + GROUP 1 +END + +NUMBER F_CODICE_CLIFO_A 6 +BEGIN + PROMPT 55 6 "a " + FLAG "UR" + USE LF_CLIFO + INPUT TIPOCF "C" + INPUT CODCF F_CODICE_CLIFO_A + COPY DISPLAY F_CODICE_CLIFO_DA + OUTPUT F_CODICE_CLIFO_A CODCF + NUM_EXPR #F_CODICE_CLIFO_A>=#F_CODICE_CLIFO_DA + WARNING "Digitare un codice maggiore o uguale al campo 'da codice cliente'" + GROUP 1 +END + +STRING F_CODICE_AGENTE_DA 5 +BEGIN + PROMPT 20 7 "da codice agente " + FLAG "UR" + USE AGE + INPUT CODTAB F_CODICE_AGENTE_DA + DISPLAY "Codice agente" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_CODICE_AGENTE_DA CODTAB + GROUP 2 +END + +STRING F_CODICE_AGENTE_A 5 +BEGIN + PROMPT 55 7 "a " + FLAG "UR" + USE AGE + INPUT CODTAB F_CODICE_AGENTE_A + COPY DISPLAY F_CODICE_AGENTE_DA + OUTPUT F_CODICE_AGENTE_A CODTAB + NUM_EXPR #F_CODICE_AGENTE_A>=#F_CODICE_AGENTE_DA + WARNING "Digitare un codice maggiore o uguale al campo 'da codice agente'" + GROUP 2 +END + +STRING F_CODICE_ZONA_DA 2 +BEGIN + PROMPT 20 8 "da codice zona " + FLAG "UR" + USE ZON + INPUT CODTAB F_CODICE_ZONA_DA + DISPLAY "Codice Zona" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_CODICE_ZONA_DA CODTAB + GROUP 3 +END + +STRING F_CODICE_ZONA_A 2 +BEGIN + PROMPT 55 8 "a " + FLAG "UR" + USE ZON + INPUT CODTAB F_CODICE_ZONA_A + COPY DISPLAY F_CODICE_ZONA_DA + OUTPUT F_CODICE_ZONA_A CODTAB + STR_EXPR #F_CODICE_ZONA_A>=#F_CODICE_ZONA_DA + WARNING "Digitare un codice maggiore o uguale al campo 'da codice zona'" + GROUP 3 +END + +DATE F_DATA_DOCUMENTO_DA +BEGIN + PROMPT 20 10 "da data documento " + WARNING "E' necessario specificare una data" +END + +DATE F_DATA_DOCUMENTO_A +BEGIN + PROMPT 55 10 "a " + VALIDATE DATE_CMP_FUNC >= F_DATA_DOCUMENTO_DA + WARNING "Specificare una data maggiore o uguale a 'da data documento'" +END + +STRING F_CODICE_NUMERAZIONE 4 +BEGIN + PROMPT 20 11 "Codice numerazione " + FLAG "UZ" + USE %NUM + INPUT CODTAB F_CODICE_NUMERAZIONE + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_CODICE_NUMERAZIONE CODTAB + CHECKTYPE NORMAL + MESSAGE EMPTY CLEAR,F_NUMERO_DOCUMENTO_DA|CLEAR,F_NUMERO_DOCUMENTO_A + MESSAGE ENABLE,F_NUMERO_DOCUMENTO_DA|ENABLE,F_NUMERO_DOCUMENTO_A +END + +NUMBER F_NUMERO_DOCUMENTO_DA 7 +BEGIN + PROMPT 20 12 "da numero documento " + USE LF_DOC + JOIN %TIP ALIAS 104 INTO CODTAB=TIPODOC + JOIN LF_CLIFO INTO TIPOCF=TIPOCF CODCF=CODCF + INPUT PROVV "D" + INPUT ANNO F_ANNO_ELAB SELECT + INPUT CODNUM F_CODICE_NUMERAZIONE SELECT + INPUT NDOC F_NUMERO_DOCUMENTO_DA + DISPLAY "Numero" NDOC + DISPLAY "Tipo@50" 104@->S0 + DISPLAY "Ragione sociale@50" LF_CLIFO->RAGSOC + OUTPUT F_NUMERO_DOCUMENTO_DA NDOC +END + +NUMBER F_NUMERO_DOCUMENTO_A 7 +BEGIN + PROMPT 55 12 "a " + COPY USE F_NUMERO_DOCUMENTO_DA + INPUT PROVV "D" + INPUT ANNO F_ANNO_ELAB SELECT + INPUT CODNUM F_CODICE_NUMERAZIONE SELECT + INPUT NDOC F_NUMERO_DOCUMENTO_A + COPY DISPLAY F_NUMERO_DOCUMENTO_DA + OUTPUT F_NUMERO_DOCUMENTO_A NDOC + NUM_EXPR (#THIS_FIELD==0)||(#THIS_FIELD>=#F_NUMERO_DOCUMENTO_DA) + WARNING "Specificare un numero documento superiore a quello di partenza" +END + +BUTTON DLG_OK 10 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 10 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE + +ENDMASK