Corretto assoggettamento fiscale

git-svn-id: svn://10.65.10.50/trunk@3860 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1996-11-04 11:01:19 +00:00
parent 96dffd8e44
commit 8524e0f62f

View File

@ -331,7 +331,7 @@ BEGIN
PROMPT 32 16 "Sospeso "
FIELD SOSPESO
HELP "Indicare se il C/F e' movimentato ma non piu' utilizzabile"
END
END
BUTTON DLG_FAX 10 2
BEGIN
@ -941,7 +941,7 @@ BEGIN
GROUP 7
SHEET "Codice|Ragione sociale@50|Indirizzo@35|Nr.@10|Localita@35"
ITEM " |**Nessuno**| | | "
INPUT F_CODINDDOC
INPUT F_CODINDDOC
OUTPUT F_CODINDDOC
HELP "Codice indirizzi di pag.4"
END
@ -951,6 +951,7 @@ BEGIN
PROMPT 43 5 "Codice Note Cli/Fo "
FIELD LF_CFVEN->CODNOTE
USE %NOT
FLAGS "U"
INPUT CODTAB F_CODNOTE
DISPLAY "Codice nota" CODTAB
DISPLAY "Destinazione@30" S0
@ -1104,6 +1105,7 @@ BEGIN
FIELD LF_CFVEN->CODNOTESP1
GROUP 7
USE %NDO
FLAGS "U"
INPUT CODTAB F_CODNOTESP1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@30" S0
@ -1117,6 +1119,7 @@ BEGIN
PROMPT 33 4 ""
FIELD LF_CFVEN->CODNOTESP2
GROUP 7
FLAGS "U"
COPY USE F_CODNOTESP1
INPUT CODTAB F_CODNOTESP2
COPY DISPLAY F_CODNOTESP1
@ -1127,7 +1130,7 @@ END
STRING F_CODSPMEZZO 2
BEGIN
PROMPT 46 4 "Codice modalita spedizione "
PROMPT 46 4 "Codice modalita'spedizione "
FIELD LF_CFVEN->CODSPMEZZO
USE %MSP
INPUT CODTAB F_CODSPMEZZO
@ -1235,16 +1238,21 @@ NUMBER F_ASSFIS 4
BEGIN
PROMPT 2 11 "Codice Assoggettamento fiscale "
FIELD LF_CFVEN->ASSFIS
FLAGS "Z"
USE %ASF
INPUT CODTAB F_ASSFIS
DISPLAY "Codice assogg." CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_ASSFIS CODTAB
HELP "Codice d'assoggettamento fiscale"
USE %IVA
FLAGS "U"
INPUT CODTAB F_ASSFIS
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
DISPLAY "Tipo" S1
DISPLAY "Sospeso" B2
OUTPUT F_ASSFIS CODTAB
HELP "Inserire il codice IVA"
CHECKTYPE NORMAL
VALIDATE ZEROFILL_FUNC 2
END
BOOLEAN F_FATTSOSP
BOOLEAN F_FATTSOSP
BEGIN
PROMPT 51 11 "Fatture in sospensione"
FIELD LF_CFVEN->FATTSOSP
@ -1573,7 +1581,7 @@ BEGIN
DISPLAY "Magazzino" CODTAB[1,3]
DISPLAY "Descrizione@50" S0
OUTPUT F_CODMAG CODTAB[1,3]
WARNING "Magazzino errato"
WARNING "Magazzino errato"
FLAGS "U"
END