Correzzioni

git-svn-id: svn://10.65.10.50/trunk@3594 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1996-09-17 09:42:37 +00:00
parent b0d3bae2c2
commit bf903e9cf2
8 changed files with 93 additions and 23 deletions

View File

@ -230,7 +230,7 @@ LISTBOX F_NATMAG 1 50
BEGIN
PROMPT 2 17 "Natura del magazzino "
FIELD MAG->I2
ITEM "1|Proprietà dell'azienda "
ITEM "1|Proprieta' dell'azienda "
ITEM "2|Materiale nostro in lavorazione presso terzi"
ITEM "3|Materiale nostro in deposito presso terzi"
ITEM "4|Materiale di terzi in lavorazione presso l'azienda"

View File

@ -82,15 +82,31 @@ BEGIN
FLAG "D"
END
NUMBER F_PREZZO 13 2
LISTBOX F_CAMPI 15
BEGIN
PROMPT 2 10 "Prezzo "
PROMPT 2 10 "Campo default "
FIELD S6
ITEM "Q|Qta prezzo "
MESSAGE ENABLE,F_QTA
ITEM "V|Valore "
MESSAGE CLEAR,F_QTA
END
NUMBER F_PREZZO 15 3
BEGIN
PROMPT 2 12 "Prezzo "
FIELD R0
END
NUMBER F_QTA 13 5
BEGIN
PROMPT 35 12 "Quantita' "
FIELD R1
END
STRING F_UM 2
BEGIN
PROMPT 35 10 "U.M. "
PROMPT 63 12 "U.M. "
FIELD S7
FLAGS "U"
USE %UMS
@ -103,14 +119,14 @@ END
NUMBER F_GRUPPOV 3
BEGIN
PROMPT 2 12 "Conto vendita "
PROMPT 2 14 "Conto vendita "
FIELD I0
CHECKTYPE NORMAL
END
NUMBER F_CONTOV 3
BEGIN
PROMPT 22 12 ""
PROMPT 22 14 ""
FIELD I1
USE LF_PCON SELECT INDBIL=="4"
INPUT GRUPPO F_GRUPPOV
@ -127,7 +143,7 @@ BEGIN
NUMBER F_SOTTOV 6
BEGIN
PROMPT 30 12 ""
PROMPT 30 14 ""
FIELD I2
USE LF_PCON
INPUT GRUPPO F_GRUPPOV SELECT
@ -148,20 +164,20 @@ END
STRING F_DESCRCONTOV 50
BEGIN
PROMPT 17 13 ""
PROMPT 17 15 ""
FLAG "D"
END
NUMBER F_GRUPPOA 3
BEGIN
PROMPT 2 14 "Conto acquisti "
PROMPT 2 16 "Conto acquisti "
FIELD I3
CHECKTYPE NORMAL
END
NUMBER F_CONTOA 3
BEGIN
PROMPT 22 14 ""
PROMPT 22 16 ""
FIELD I4
USE LF_PCON SELECT INDBIL=="3"
INPUT GRUPPO F_GRUPPOA
@ -178,7 +194,7 @@ BEGIN
NUMBER F_SOTTOA 6
BEGIN
PROMPT 30 14 ""
PROMPT 30 16 ""
FIELD I5
USE LF_PCON
INPUT GRUPPO F_GRUPPOA SELECT
@ -199,7 +215,7 @@ END
STRING F_DESCRCONTOA 50
BEGIN
PROMPT 17 15 ""
PROMPT 17 17 ""
FLAG "D"
END

View File

@ -87,21 +87,21 @@ BEGIN
PROMPT 2 10 "Campo default "
FIELD S6
ITEM "Q|Qta prezzo "
MESSAGE SHOW,1@|ENABLE,2@|RESET,2@|HIDE,3@|RESET,3@
MESSAGE SHOW,1@|ENABLE,2@|HIDE,3@|RESET,3@
ITEM "V|Valore "
MESSAGE SHOW,1@|"1",F_QTA|DISABLE,2@|HIDE,3@|RESET,3@
MESSAGE SHOW,1@|CLEAR,2@|HIDE,3@|RESET,3@
ITEM "P|Percentuale "
MESSAGE SHOW,3@|HIDE,1@|RESET,1@
END
NUMBER F_PREZZO 13 2
NUMBER F_PREZZO 15 3
BEGIN
PROMPT 2 11 "Prezzo "
FIELD R0
GROUP 1
END
NUMBER F_QTA 13 2
NUMBER F_QTA 13 5
BEGIN
PROMPT 35 11 "Quantita' "
FIELD R1
@ -179,7 +179,7 @@ NUMBER F_SOTTOV 6
BEGIN
PROMPT 30 15 ""
FIELD I2
USE LF_PCON SELECT (SOTTOCONTO!="") && ($-500->INDBIL=="4")
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
@ -231,7 +231,7 @@ NUMBER F_SOTTOA 6
BEGIN
PROMPT 30 17 ""
FIELD I5
USE LF_PCON SELECT (SOTTOCONTO!="") && ($-500->INDBIL=="3")
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

View File

@ -1,7 +1,7 @@
#include "batbtri.h"
TOOLBAR "" 0 20 60 2
#include "toolbar.h"
#include "toolbar.h"
ENDPAGE
PAGE "Tipo di riga" -1 -1 60 14

View File

@ -189,7 +189,6 @@ ENDIF
OUTPUT FR_CODSPV CODTAB
OUTPUT FR_DESCRSPV S0
OUTPUT FR_VALORE R0
OUTPUT FR_QTA R1
OUTPUT FR_UMQTASP S7
OUTPUT FR_CODIVA S3
MESSAGE DIRTY,FR_CODIVA|K_TAB,FR_CODIVA|DISABLE,FR_QTA
@ -216,6 +215,7 @@ ENDIF
DISPLAY "Descrizione@50" S0
OUTPUT FR_CODSPQ CODTAB
OUTPUT FR_DESCRSPQ S0
OUTPUT FR_QTA R1
OUTPUT FR_PREZZO R0
OUTPUT FR_UMQTASP S7
OUTPUT FR_CODIVA S3
@ -270,6 +270,7 @@ ENDIF
OUTPUT FR_CODPRS CODTAB
OUTPUT FR_DESCRPRS S0
OUTPUT FR_PREZZO R0
OUTPUT FR_QTA R1
OUTPUT FR_UMQTASP S7
OUTPUT FR_CODIVA S3
MESSAGE DIRTY,FR_CODIVA|K_TAB,FR_CODIVA
@ -427,12 +428,12 @@ END
ENDIF
IFDEF(F_QTA)
NUMBER FR_QTA 11 3
NUMBER FR_QTA 13 5
BEGIN
IFDEF(X_QTA)
PROMPT X_QTA Y_QTA PR_QTA
ELSEIF
PROMPT 22 9 "Qta' "
PROMPT 22 9 "Qta' "
ENDIF
FIELD QTA
END
@ -444,7 +445,7 @@ BEGIN
IFDEF(X_PERCSP)
PROMPT X_PERCSP Y_PERCSP PR_PERCSP
ELSEIF
PROMPT 22 9 "%Spesa "
PROMPT 2 9 " % "
ENDIF
FIELD PSPESA
END

13
ve/verig07.uml Executable file
View File

@ -0,0 +1,13 @@
#include "verigdef.h"
#define FULL_SCREEN
#define MASK_TITLE1 "Sconto ad importo"
DEFINE_FIELD(DESCR)
DEFINE_FIELD(VALORE)
DEFINE_FIELD(CODIVA)
DEFINE_FIELD(DESIVA)
#include "verig.uml"

13
ve/verig08.uml Executable file
View File

@ -0,0 +1,13 @@
#include "verigdef.h"
#define FULL_SCREEN
#define MASK_TITLE1 "Sconto percentuale"
DEFINE_FIELD(DESCR)
DEFINE_FIELD(SCONTO)
DEFINE_FIELD(CODIVA)
DEFINE_FIELD(DESIVA)
#include "verig.uml"

27
ve/verig09.uml Executable file
View File

@ -0,0 +1,27 @@
#include "verigdef.h"
#define FULL_SCREEN
// else
// #define MASK_WIDTH 60
// #define MASK_HEIGHT 14
//
#define MASK_TITLE1 "Omaggio"
DEFINE_FIELD(CODMAG)
// F_POS(CODMAG, 2, 3, "Magazzino ")
// F_FLG(CODMAG, "U")
// F_CHK(CODMAG, REQUIRED)
DEFINE_FIELD(DESMAG)
DEFINE_FIELD(CODDEP)
DEFINE_FIELD(DESDEP)
DEFINE_FIELD(CODART)
DEFINE_FIELD(DESCRART)
DEFINE_FIELD(UMQTA)
DEFINE_FIELD(QTA)
DEFINE_FIELD(PREZZO)
DEFINE_FIELD(CODIVA)
DEFINE_FIELD(DESIVA)
#include "verig.uml"