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
447 lines
6.7 KiB
Plaintext
Executable File
447 lines
6.7 KiB
Plaintext
Executable File
#include "ef0A00a.h"
|
|
|
|
TOOLBAR "Toolbar" 0 -3 0 3
|
|
|
|
BUTTON F_UNCONTABIL 30
|
|
BEGIN
|
|
PROMPT -12 0 "~Annulla contabilizzazione"
|
|
FLAGS "H"
|
|
END
|
|
|
|
BUTTON F_CONTABILI 30
|
|
BEGIN
|
|
PROMPT -22 0 "~Contabilizzazione"
|
|
GROUP 5
|
|
END
|
|
|
|
BUTTON DLG_NEWREC 10 2
|
|
BEGIN
|
|
PROMPT -16 -1 "~Nuovo"
|
|
PICTURE BMP_NEWREC
|
|
PICTURE BMP_NEWRECDN
|
|
GROUP 3
|
|
END
|
|
|
|
BUTTON DLG_SAVEREC 10 2
|
|
BEGIN
|
|
PROMPT -26 -1 "~Registra"
|
|
|
|
PICTURE BMP_SAVEREC
|
|
PICTURE BMP_SAVERECDN
|
|
END
|
|
|
|
BUTTON DLG_DELREC 10 2
|
|
BEGIN
|
|
PROMPT -36 -1 "~Elimina"
|
|
|
|
PICTURE BMP_DELREC
|
|
PICTURE BMP_DELRECDN
|
|
GROUP 5
|
|
END
|
|
|
|
BUTTON DLG_PRINT 10 2
|
|
BEGIN
|
|
PROMPT -46 -1 ""
|
|
PICTURE BMP_PRINT
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -56 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -66 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Disposizioni incassi/pagamenti" -1 -1 78 19
|
|
|
|
GROUPBOX DLG_NULL 78 6
|
|
BEGIN
|
|
PROMPT 1 0 "@bDistinta"
|
|
END
|
|
|
|
LIST F_TIPODIST 1 15
|
|
BEGIN
|
|
PROMPT 2 1 "Tipo "
|
|
ITEM "I|All'incasso"
|
|
MESSAGE ENABLE,F_TIPOEFF
|
|
ITEM "B|Salvo buon fine"
|
|
MESSAGE RESET,F_TIPOEFF|DISABLE,F_TIPOEFF
|
|
ITEM "S|Allo sconto"
|
|
MESSAGE RESET,F_TIPOEFF|DISABLE,F_TIPOEFF
|
|
GROUP 3
|
|
END
|
|
|
|
LIST F_DUMMYDIST 1
|
|
BEGIN
|
|
PROMPT 15 1 ""
|
|
ITEM "1|1"
|
|
FLAGS "H"
|
|
END
|
|
|
|
NUMBER F_DIST 5
|
|
BEGIN
|
|
PROMPT 28 1 "Numero "
|
|
USE LF_EFFETTI KEY 4 SELECT NRIGADIST==1
|
|
INPUT TIPODIST F_TIPODIST
|
|
INPUT NDIST F_DIST
|
|
INPUT NRIGADIST F_DUMMYDIST
|
|
DISPLAY "Tipo" TIPODIST
|
|
DISPLAY "Numero" NDIST
|
|
DISPLAY "Data@10" DATADIST
|
|
DISPLAY "C/F" TIPOCF
|
|
DISPLAY "ABI@5" CODABIP
|
|
DISPLAY "CAB@5" CODCABP
|
|
DISPLAY "Valuta" CODVAL
|
|
OUTPUT F_TIPODIST TIPODIST
|
|
OUTPUT F_DIST NDIST
|
|
OUTPUT F_DATADIST DATADIST
|
|
OUTPUT F_CODVAL CODVAL
|
|
OUTPUT F_CAMBIO CAMBIO
|
|
OUTPUT F_DATACAMBIO DATACAMBIO
|
|
OUTPUT F_EURO CONTROEURO
|
|
OUTPUT F_TIPOCF TIPOCF
|
|
OUTPUT F_ABI CODABIP
|
|
OUTPUT F_CAB CODCABP
|
|
OUTPUT F_TIPOPAG TIPOPAG
|
|
OUTPUT F_SPESE SPESE
|
|
CHECKTYPE SEARCH
|
|
GROUP 4
|
|
END
|
|
|
|
STRING F_CODVAL 3
|
|
BEGIN
|
|
PROMPT 50 1 "Valuta "
|
|
FLAGS "UZ"
|
|
USE %VAL
|
|
INPUT CODTAB F_CODVAL
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Cambio\nStandard" S4
|
|
DISPLAY "Contro\nEuro@6" B1
|
|
DISPLAY "Denominazione@50" S0
|
|
OUTPUT F_CODVAL CODTAB
|
|
OUTPUT F_EURO B1
|
|
CHECKTYPE NORMAL
|
|
GROUP 3
|
|
MESSAGE EMPTY CLEAR,6@
|
|
MESSAGE ENABLE,6@
|
|
END
|
|
|
|
BOOLEAN F_EURO
|
|
BEGIN
|
|
PROMPT 64 1 "Contro Euro"
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE F_DATADIST
|
|
BEGIN
|
|
PROMPT 2 2 "Data "
|
|
FLAGS "A"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
DATE F_DATACAMBIO
|
|
BEGIN
|
|
PROMPT 23 2 "Data cambio "
|
|
FLAGS "R"
|
|
USE CAM
|
|
JOIN %VAL ALIAS 104 INTO CODTAB[1,3]==CODTAB[1,3]
|
|
INPUT CODTAB[1,3] F_CODVAL SELECT
|
|
INPUT CODTAB[4,11] F_DATACAMBIO
|
|
DISPLAY "Cod" CODTAB[1,3]
|
|
DISPLAY "Data@10" D0
|
|
DISPLAY "Cambio" S4
|
|
DISPLAY "Parita'\nEuro@6" B1
|
|
DISPLAY "Valuta@50" 104@->S0
|
|
OUTPUT F_DATACAMBIO D0
|
|
OUTPUT F_CAMBIO S4
|
|
CHECKTYPE SEARCH
|
|
GROUP 6
|
|
END
|
|
|
|
NUMBER F_CAMBIO 15 6
|
|
BEGIN
|
|
PROMPT 50 2 "Cambio "
|
|
GROUP 6
|
|
END
|
|
|
|
NUMBER F_ABI 5
|
|
BEGIN
|
|
PROMPT 2 3 "Banca "
|
|
FLAGS "Z"
|
|
USE BNP
|
|
JOIN %BAN ALIAS 100 INTO CODTAB==CODTAB
|
|
INPUT CODTAB[1,5] F_ABI
|
|
INPUT CODTAB[6,10] F_CAB
|
|
DISPLAY "ABI@5" CODTAB[1,5]
|
|
DISPLAY "CAB@5" CODTAB[6,10]
|
|
DISPLAY "Denominazione@50" 100@->S0
|
|
OUTPUT F_ABI CODTAB[1,5]
|
|
OUTPUT F_CAB CODTAB[6,10]
|
|
OUTPUT F_DESCAB 100@->S0
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
NUMBER F_CAB 5
|
|
BEGIN
|
|
PROMPT 17 3 ""
|
|
FLAGS "Z"
|
|
COPY ALL F_ABI
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_DESCAB 50 48
|
|
BEGIN
|
|
PROMPT 26 3 ""
|
|
USE %BAN KEY 2 SELECT 100@->CODTAB!=""
|
|
JOIN BNP ALIAS 100 INTO CODTAB==CODTAB
|
|
INPUT S0 F_DESCAB
|
|
DISPLAY "Denominazione@50" S0
|
|
DISPLAY "ABI@5" CODTAB[1,5]
|
|
DISPLAY "CAB@5" CODTAB[6,10]
|
|
OUTPUT F_ABI CODTAB[1,5]
|
|
OUTPUT F_CAB CODTAB[6,10]
|
|
OUTPUT F_DESCAB S0
|
|
CHECKTYPE SEARCH
|
|
END
|
|
|
|
LIST F_TIPOPAG 1 30
|
|
BEGIN
|
|
PROMPT 2 4 "Pagamento "
|
|
ITEM "1|Rimessa Diretta"
|
|
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 interbancari diretti"
|
|
ITEM "9|Bonifico"
|
|
END
|
|
|
|
LIST F_TIPOEFF 1 10
|
|
BEGIN
|
|
PROMPT 50 4 "Tipo effetti "
|
|
ITEM "C|Attivi"
|
|
MESSAGE COPY,F_TIPOCF
|
|
ITEM "F|Passivi"
|
|
MESSAGE COPY,F_TIPOCF
|
|
END
|
|
|
|
LIST F_TIPOCF 1 9
|
|
BEGIN
|
|
PROMPT 2 6 ""
|
|
ITEM "C|Cliente"
|
|
ITEM "F|Fornitore"
|
|
FLAGS "D"
|
|
//GROUP 3
|
|
END
|
|
|
|
NUMBER F_CLIFO 6
|
|
BEGIN
|
|
PROMPT 15 6 ""
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF F_TIPOCF SELECT
|
|
INPUT CODCF F_CLIFO
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
OUTPUT F_CLIFO CODCF
|
|
OUTPUT F_RAGSOCCF RAGSOC
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_RAGSOCCF 50 37
|
|
BEGIN
|
|
PROMPT 25 6 ""
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF F_TIPOCF SELECT
|
|
INPUT RAGSOC F_RAGSOCCF
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Codice" CODCF
|
|
COPY OUTPUT F_CLIFO
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
DATE F_DA_DATA
|
|
BEGIN
|
|
PROMPT 2 7 "Dal "
|
|
END
|
|
|
|
DATE F_A_DATA
|
|
BEGIN
|
|
PROMPT 20 7 "Al "
|
|
FLAGS "A"
|
|
END
|
|
|
|
LISTBOX F_SORT 10
|
|
BEGIN
|
|
PROMPT 35 7 "Ordinamento "
|
|
ITEM " |Standard"
|
|
ITEM "1|Scadenza"
|
|
ITEM "2|Residuo"
|
|
END
|
|
|
|
BUTTON F_AGGIORNA 10 2
|
|
BEGIN
|
|
PROMPT 66 6 ""
|
|
PICTURE BMP_SELECT
|
|
END
|
|
|
|
SPREADSHEET F_SHEET 0 -2
|
|
BEGIN
|
|
PROMPT 0 8 ""
|
|
ITEM "Importo@18"
|
|
ITEM "A/S@3"
|
|
ITEM "Residuo@18"
|
|
ITEM "Codice"
|
|
ITEM "Ragione Sociale@20"
|
|
ITEM "Anno"
|
|
ITEM "Partita"
|
|
ITEM "Riga"
|
|
ITEM "Rata"
|
|
ITEM "Scadenza@10"
|
|
ITEM "Riga"
|
|
ITEM "Effetto"
|
|
ITEM "Tipo Pagamento@20"
|
|
END
|
|
|
|
CURRENCY F_TOTAL 18
|
|
BEGIN
|
|
PROMPT 1 -1 "Totale "
|
|
DRIVENBY F_CODVAL
|
|
FLAGS "D"
|
|
END
|
|
|
|
CURRENCY F_SPESE 18
|
|
BEGIN
|
|
PROMPT 28 -1 "Spese "
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Selezione effetti" -1 -1 78 19
|
|
|
|
LIST F_TIPOPAGEFF 1 30
|
|
BEGIN
|
|
PROMPT 2 1 "Solo effetti con tipo pagamento "
|
|
ITEM " | "
|
|
ITEM "1|Rimessa Diretta"
|
|
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 interbancari diretti"
|
|
ITEM "9|Bonifico"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Rate" -1 -1 60 9
|
|
|
|
NUMBER F_RIGADIST 4
|
|
BEGIN
|
|
PROMPT 31 1 "Riga effetto "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_RIGAEFF 4
|
|
BEGIN
|
|
PROMPT 51 1 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_CODCF 6
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 9 1 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 1 3 "Anno "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_PARTITA 7
|
|
BEGIN
|
|
PROMPT 21 3 "Partita "
|
|
FLAGS "D_"
|
|
END
|
|
|
|
NUMBER F_RIGA 4
|
|
BEGIN
|
|
PROMPT 38 3 "Riga "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_RATA 4
|
|
BEGIN
|
|
PROMPT 50 3 "Rata "
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE F_DATA
|
|
BEGIN
|
|
PROMPT 1 4 "Scadenza"
|
|
FLAGS "D"
|
|
END
|
|
|
|
CURRENCY F_RESIDUO 18
|
|
BEGIN
|
|
PROMPT 1 5 "Residuo "
|
|
FLAGS "D"
|
|
DRIVENBY -F_CODVAL
|
|
END
|
|
|
|
CURRENCY F_IMPORTO 18
|
|
BEGIN
|
|
PROMPT 1 6 "Importo "
|
|
DRIVENBY -F_CODVAL
|
|
END
|
|
|
|
LIST F_ACCSAL 1 10
|
|
BEGIN
|
|
PROMPT 41 6 ""
|
|
ITEM "A|Acconto"
|
|
ITEM "S|Saldo"
|
|
END
|
|
|
|
STRING F_DESC_TIPO 20
|
|
BEGIN
|
|
PROMPT 1 7 "Tipo pagamento "
|
|
FLAGS "D"
|
|
END
|
|
|
|
BUTTON F_PAGA 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 "~Paga"
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK |