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");
if (codiva.not_empty())
{
f.set(codiva);
f.check();
}
}
return TRUE;
}

22
ve/verig.uml
View File

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