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

Corretta maschera tabella Ulteriore Classificazione e tabella Condizioni

Browse Source 
di pagamento.


git-svn-id: svn://10.65.10.50/trunk@299 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1994-09-30 17:50:15 +00:00
parent 511e70cae9
commit ba280a1c47
2 changed files with 21 additions and 15 deletions

13
ba/ba3700a.uml

@ -138,15 +138,18 @@ BEGIN
ITEM "8|Altro pagamento"
END
STRING 104 2
STRING 104 1
BEGIN
PROMPT 4 7 "Ulteriore classificazione "
FIELD %RPG->S1
USE %CLR
INPUT CODTAB 104
DISPLAY "Codice" CODTAB
INPUT CODTAB[1,1] 103 SELECT
INPUT CODTAB[2,2] 104
DISPLAY "Tipo pagamento" CODTAB[1,1]
DISPLAY "Classificazione" CODTAB[2,2]
DISPLAY "Descrizione@50" S0
OUTPUT 104 CODTAB
OUTPUT 103 CODTAB[1,1]
OUTPUT 104 CODTAB[2,2]
CHECKTYPE NORMAL
HELP "Scegliere uno dei codici della tabella, oppure lasciare il campo vuoto"
END
@ -169,4 +172,4 @@ END
ENDPAGE
ENDMASK
ENDMASK

23
ba/batb%clr.uml

@ -15,13 +15,14 @@ BEGIN
SHEET "Cod|Descrizione@60"
INPUT F_CODICERATA
OUTPUT F_CODICERATA
ITEM " |Totale documento ripartito tra tutte le rate"
ITEM "1|Tutte le imposte sulla prima rata"
ITEM "2|Tutte le spese sulla prima rata"
ITEM "3|Imposte e spese sulla prima rata"
ITEM "4|Spese e merce sulla prima rata, l'imposta su tutte le altre"
ITEM "5|Merce e imposte sulla prima rata, le spese su tutte le altre"
ITEM "6|La merce sulla prima rata, imposte e spese su tutte le altre"
ITEM "1|Rimessa diretta o contanti"
ITEM "2|Tratta"
ITEM "3|Ricevuta Bancaria"
ITEM "4|Cessione"
ITEM "5|Paghero'"
ITEM "6|Lettera di accredito"
ITEM "7|Tratta accettata"
ITEM "8|Altro pagamento"
END
STRING F_CODICEALFA 1
@ -30,9 +31,10 @@ BEGIN
FIELD %CLR->CODTAB[2,2]
KEY 1
USE %CLR
INPUT CODTAB[1,1] F_CODICERATA
INPUT CODTAB[1,1] F_CODICERATA
INPUT CODTAB[2,2] F_CODICEALFA
DISPLAY "Codice" CODTAB
DISPLAY "Tipo pagamento" CODTAB[1,1]
DISPLAY "Classificazione" CODTAB[2,2]
DISPLAY "Descrizione@50" S0
OUTPUT F_CODICERATA CODTAB[1,1]
OUTPUT F_CODICEALFA CODTAB[2,2]
@ -48,7 +50,8 @@ BEGIN
USE %CLR
INPUT S0 F_DESCR
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
DISPLAY "Tipo pagamento" CODTAB[1,1]
DISPLAY "Classificazione" CODTAB[2,2]
OUTPUT F_CODICERATA CODTAB[1,1]
OUTPUT F_CODICEALFA CODTAB[2,2]
OUTPUT F_DESCR S0