ff6d6fbbcb
Files correlati : ef0.exe Ricompilazione Demo : [ ] Commento : PG200007 Presupposti: fattura accompagnatoria passiva da ordine fornitore: creato tipo documento fattura accompagnatoria con causale di magazzino di carico merce da ordine,utilizzo dello stesso numeratore delle fatture da d.d.t.ed elaborazione differita di tipo "consegna ordini" che parte dall'ordine fornitore ed arriva alla fattura (stato 1).La funzione di "elabora" dai documenti interattivi (ordine ) pur riscontrando che le elaborazioni sono due non modifica la destinazione mentre per il documento interattivo (fattura) non è presente nessun tipo di elaborazione git-svn-id: svn://10.65.10.50/trunk@11356 c028cbd2-c16b-5b4b-a496-9718f37d4682
183 lines
3.4 KiB
Plaintext
Executable File
183 lines
3.4 KiB
Plaintext
Executable File
// DEFINIZIONE MASCHERA PRINCIPALE PER LA GESTIONE DISTINTE
|
|
#include "ef0300.h"
|
|
|
|
TOOLBAR "" 0 -2 0 2
|
|
#include <toolbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Distinta" 0 -1 0 19
|
|
|
|
GROUPBOX DLG_NULL 78 10
|
|
BEGIN
|
|
PROMPT 1 0 ""
|
|
END
|
|
|
|
LIST F_TIPODIST 17
|
|
BEGIN
|
|
PROMPT 2 1 "Tipo Distinta "
|
|
KEY 4
|
|
FIELD LF_EFFETTI->TIPODIST
|
|
ITEM "I|All'incasso"
|
|
MESSAGE ENABLE,F_TIPOCF
|
|
ITEM "B|Salvo buon fine"
|
|
MESSAGE RESET,F_TIPOCF|DISABLE,F_TIPOCF
|
|
ITEM "S|Allo sconto"
|
|
MESSAGE RESET,F_TIPOCF|DISABLE,F_TIPOCF
|
|
END
|
|
|
|
LIST F_NUMBERRIGA 12
|
|
BEGIN
|
|
PROMPT 1 60 "Numero Riga Distinta "
|
|
KEY 4
|
|
FIELD LF_EFFETTI->NRIGADIST
|
|
ITEM "1|PRIMA RIGA"
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_NUMBER 5
|
|
BEGIN
|
|
PROMPT 48 1 "Numero Distinta "
|
|
FIELD LF_EFFETTI->NDIST
|
|
FLAGS "R"
|
|
KEY 4
|
|
USE LF_EFFETTI KEY 4 SELECT NRIGADIST == 1
|
|
INPUT TIPODIST F_TIPODIST
|
|
INPUT NDIST F_NUMBER
|
|
INPUT NRIGADIST F_NUMBERRIGA
|
|
DISPLAY "Numero" NDIST
|
|
DISPLAY "Tipo" TIPODIST
|
|
DISPLAY "Data@10" DATADIST
|
|
DISPLAY "ABI@5" CODABIP
|
|
DISPLAY "CAB@5" CODCABP
|
|
DISPLAY "C/F@5" TIPOCF
|
|
OUTPUT F_NUMBER NDIST
|
|
OUTPUT F_TIPODIST TIPODIST
|
|
OUTPUT F_NUMBERRIGA NRIGADIST
|
|
OUTPUT F_NPROGTR NPROGTR
|
|
OUTPUT F_TIPOCF TIPOCF
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER F_NPROGTR 7
|
|
BEGIN
|
|
PROMPT 1 60 ""
|
|
KEY 1
|
|
FIELD LF_EFFETTI->NPROGTR
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE F_DATA
|
|
BEGIN
|
|
PROMPT 2 2 "Data Distinta "
|
|
FIELD LF_EFFETTI->DATADIST
|
|
END
|
|
|
|
LIST F_TIPOCF 10
|
|
BEGIN
|
|
PROMPT 48 2 "Tipo effetti "
|
|
ITEM "C|Attivi"
|
|
ITEM "F|Passivi"
|
|
END
|
|
|
|
NUMBER F_CODABIP 5
|
|
BEGIN
|
|
PROMPT 15 3 "Codice ABI "
|
|
FIELD LF_EFFETTI->CODABIP
|
|
FLAGS "Z"
|
|
USE BNP
|
|
JOIN %BAN ALIAS 100 INTO CODTAB==CODTAB
|
|
INPUT CODTAB[1,5] F_CODABIP
|
|
INPUT CODTAB[6,10] F_CODCABP
|
|
DISPLAY "Codice ABI" CODTAB[1,5]
|
|
DISPLAY "Codice CAB" CODTAB[6,10]
|
|
DISPLAY "Denominazione@50" 100@->S0
|
|
OUTPUT F_CODABIP CODTAB[1,5]
|
|
OUTPUT F_CODCABP CODTAB[6,10]
|
|
OUTPUT F_DENBANP 100@->S0
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
NUMBER F_CODCABP 5
|
|
BEGIN
|
|
PROMPT 15 4 "Codice CAB "
|
|
FIELD LF_EFFETTI->CODCABP
|
|
FLAGS "Z"
|
|
COPY ALL F_CODABIP
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_DENBANP 50
|
|
BEGIN
|
|
PROMPT 2 5 "Banca di Presentazione "
|
|
USE %BAN KEY 2 SELECT 100@->CODTAB!=""
|
|
JOIN BNP ALIAS 100 INTO CODTAB==CODTAB
|
|
INPUT S0 F_DENBANP
|
|
DISPLAY "Denominazione@50" S0
|
|
DISPLAY "Codice ABI" CODTAB[1,5]
|
|
DISPLAY "Codice CAB" CODTAB[6,10]
|
|
OUTPUT F_CODABIP CODTAB[1,5]
|
|
OUTPUT F_CODCABP CODTAB[6,10]
|
|
OUTPUT F_DENBANP S0
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
LIST F_TIPOPAG 24
|
|
BEGIN
|
|
PROMPT 2 6 "Tipo Pagamento "
|
|
FIELD LF_EFFETTI->TIPOPAG
|
|
ITEM "2|Tratta"
|
|
ITEM "3|Ricevuta Bancaria"
|
|
ITEM "4|Cessione"
|
|
ITEM "5|Paghero'"
|
|
ITEM "6|Lettera di credito"
|
|
ITEM "7|Tratta accettata"
|
|
ITEM "8|Rapporti interb. diretti"
|
|
ITEM "9|Bonifico"
|
|
END
|
|
|
|
STRING F_CODVAL 3
|
|
BEGIN
|
|
PROMPT 2 7 "Codice Valuta "
|
|
FLAGS "UZ"
|
|
USE %VAL
|
|
INPUT CODTAB F_CODVAL
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Nome@50" S0
|
|
OUTPUT F_CODVAL CODTAB
|
|
END
|
|
|
|
CURRENCY F_TOTIMP 18
|
|
BEGIN
|
|
PROMPT 2 8 "Valore di presentazione "
|
|
FLAGS "D"
|
|
DRIVENBY F_CODVAL
|
|
END
|
|
|
|
BUTTON F_IMPBUTTON 10 2
|
|
BEGIN
|
|
PROMPT 50 7 "~Selezione"
|
|
PICTURE BMP_SELECT
|
|
END
|
|
|
|
SPREADSHEET F_SHEET_RIBA
|
|
BEGIN
|
|
PROMPT 0 10 "RIGHE DISTINTA"
|
|
ITEM "Da elim."
|
|
ITEM "Nr. Ri.Ba."
|
|
ITEM "Scadenza"
|
|
ITEM "Cliente/Fornitore@50"
|
|
ITEM "Banca d'appoggio@40"
|
|
ITEM "Nr. Fattura"
|
|
ITEM "Data Fattura"
|
|
ITEM "Nr. Rata"
|
|
ITEM "Valuta"
|
|
ITEM "Importo"
|
|
ITEM "Importo Val."
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|
|
|
|
#include "ef0300b.uml"
|
|
|