root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level :2.2_2006 408

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :aggiunto il conto acquisti nella maschera delle prestazioni (riporto da 2.2 2005)


git-svn-id: svn://10.65.10.50/trunk@13971 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2006-05-10 12:54:46 +00:00
parent d459a2e78e
commit 2ca3c4433e
3 changed files with 57 additions and 2 deletions

3
ve/ve0400.cpp

@ -190,7 +190,8 @@ TMask* TVendite_tabapp::set_mask(TMask* m)
} else
if (vm->table_code() == "PRS")
{
ca_create_fields(*vm, 0, LF_PCONANA, 2, 12, PRS_CDC_V1, PRS_CDC_V1+10, 0x0, "S1");
ca_create_fields(*vm, 0, LF_PCONANA, 2, 11, PRS_CDC_V1, PRS_CDC_V1+10, 0x0, "S1");
ca_create_fields(*vm, 0, LF_PCONANA, 2, 17, PRS_CDC_A1, PRS_CDC_A1+10, 0x0, "S2");
add_anal_fields(*vm);
} else
if (vm->table_code() == "RSS")

5
ve/vetbprs.h

@ -13,10 +13,15 @@
#define PRS_CONTOV 113
#define PRS_SOTTOV 114
#define PRS_DESCRCONTOV 115
#define PRS_GRUPPOA 116
#define PRS_CONTOA 117
#define PRS_SOTTOA 118
#define PRS_DESCRCONTOA 119
#define PRS_CAMPI 120
#define PRS_QTA 121
#define PRS_CDC_V1 131
#define PRS_CDC_A1 151
#ifndef __VETBANAL_H
#include "vetbanal.h"

51
ve/vetbprs.uml

@ -173,7 +173,7 @@ END
NUMBER PRS_GRUPPOV 3
BEGIN
PROMPT 2 9 "Conto vendita "
PROMPT 2 9 "@bConto vendita "
FIELD I0
CHECKTYPE NORMAL
END
@ -234,6 +234,55 @@ BEGIN
ADD RUN CG0 -0
END
NUMBER PRS_GRUPPOA 3
BEGIN
PROMPT 2 15 "@bConto acquisti "
FIELD I3
END
NUMBER PRS_CONTOA 3
BEGIN
PROMPT 22 15 ""
FIELD I4
END
NUMBER PRS_SOTTOA 6
BEGIN
PROMPT 28 15 ""
FIELD I5
USE LF_PCON SELECT SOTTOCONTO!=""
INPUT GRUPPO PRS_GRUPPOA
INPUT CONTO PRS_CONTOA
INPUT SOTTOCONTO PRS_SOTTOA
DISPLAY "Gruppo@3" GRUPPO
DISPLAY "Conto@3" CONTO
DISPLAY "Sottoconto@6" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT PRS_GRUPPOA GRUPPO
OUTPUT PRS_CONTOA CONTO
OUTPUT PRS_SOTTOA SOTTOCONTO
OUTPUT PRS_DESCRCONTOA DESCR
CHECKTYPE NORMAL
WARNING "Sottoconto errato"
ADD RUN CG0 -0
END
STRING PRS_DESCRCONTOA 50
BEGIN
PROMPT 17 16 ""
FLAG "U"
USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
INPUT DESCR PRS_DESCRCONTOA
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo@3" GRUPPO
DISPLAY "Conto@3" CONTO
DISPLAY "Sottoconto@6" SOTTOCONTO
COPY OUTPUT PRS_SOTTOA
CHECKTYPE NORMAL
WARNING "Il conto deve essere un ricavo"
ADD RUN CG0 -0
END
ENDPAGE
PAGE "Analitica" 11 60 14