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

Correzzione al codice magazzino e codice IVA

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3817 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1996-10-23 14:21:44 +00:00
parent 43b9c4f92b
commit 8859f4d506
2 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ve/velib01.cpp
View File

@ -213,7 +213,10 @@ HIDDEN bool iva_handler( TMask_field& f, KEY key )
const TString16 codiva = mask.condv().clifo().get(LF_CFVEN, "ASSFIS"); const TString16 codiva = mask.condv().clifo().get(LF_CFVEN, "ASSFIS");
if (codiva.not_empty()) if (codiva.not_empty())
{
f.set(codiva); f.set(codiva);
f.check();
}
} }
return TRUE; return TRUE;
} }

22
ve/verig.uml
View File

@ -69,22 +69,22 @@ ELSEIF
PROMPT 2 3 "Magazzino " PROMPT 2 3 "Magazzino "
ENDIF ENDIF
USE MAG SELECT CODTAB ? "???" USE MAG SELECT CODTAB ? "???"
INPUT CODTAB[1,3] FR_CODMAG INPUT CODTAB FR_CODMAG
DISPLAY "Codice" CODTAB[1,3] DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT FR_CODMAG CODTAB[1,3] OUTPUT FR_CODMAG CODTAB
OUTPUT FR_DESMAG S0 OUTPUT FR_DESMAG S0
IFDEF(CH_CODMAG)
CHECKTYPE CH_CODMAG
ELSE
CHECKTYPE NORMAL
ENDIF
WARNING "Magazzino assente" WARNING "Magazzino assente"
FLAGS "U" FLAGS "U"
IFDEF(FL_CODMAG) IFDEF(FL_CODMAG)
FLAGS FL_CODMAG FLAGS FL_CODMAG
ENDIF ENDIF
KEY 1 KEY 1
IFDEF(CH_CODMAG)
CHECKTYPE CH_CODMAG
ELSEIF
CHECKTYPE NORMAL
ENDIF
FIELD CODMAG[1,3] FIELD CODMAG[1,3]
END END
@ -107,14 +107,14 @@ ENDIF
IFDEF(F_CODDEP) IFDEF(F_CODDEP)
STRING FR_CODDEP 2 STRING FR_CODDEP 2
BEGIN BEGIN
IFDEF(X_DESMAG) IFDEF(X_CODDEP)
PROMPT X_DESMAG Y_DESMAG PR_DESMAG PROMPT X_DESMAG Y_DESMAG PR_DESMAG
ELSEIF ELSEIF
PROMPT 2 4 "Deposito " PROMPT 2 4 "Deposito "
ENDIF ENDIF
USE MAG SELECT (CODTAB[1,3]==#FR_CODMAG) && (CODTAB ? "?????") USE MAG SELECT (CODTAB[1,3]==#FR_CODMAG) && (CODTAB ? "?????")
IN CODTAB[1,3] FR_CODMAG INPUT CODTAB[1,3] FR_CODMAG
IN CODTAB[4,5] FR_CODDEP INPUT CODTAB[4,5] FR_CODDEP
DISPLAY "Codice mag." CODTAB[1,3] DISPLAY "Codice mag." CODTAB[1,3]
DISPLAY "Codice dep." CODTAB[4,5] DISPLAY "Codice dep." CODTAB[4,5]
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0