952eeb374f
Files correlati : fp0400 Commento : - Rifatta maschera per separare meglio parte fp da f1 - Aggiunti controlli sui bottoni - Aggiustati filtri elenco fatture - Aggiunta possibilita' di aprire registrazione da elenco fatture contabilizzate
562 lines
8.8 KiB
Plaintext
562 lines
8.8 KiB
Plaintext
#include "fp0400a.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
|
|
BUTTON DLG_ALL 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "~Tutti"
|
|
PICTURE TOOL_MULTISEL
|
|
END
|
|
|
|
BUTTON DLG_SAVEREC 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "Salva Fornitori"
|
|
PICTURE TOOL_ELABORA
|
|
FLAGS ""
|
|
END
|
|
|
|
BUTTON DLG_NEWREC 10 2
|
|
BEGIN
|
|
PROMPT 1 1 "Nuovo"
|
|
PICTURE BMP_NEWREC
|
|
PICTURE BMP_NEWRECDN
|
|
END
|
|
|
|
BUTTON DLG_RECALC 10 2
|
|
BEGIN
|
|
PROMPT -13 -11 "Aggiorna"
|
|
PICTURE BMP_RECALC
|
|
END
|
|
|
|
BUTTON DLG_EXPORT 10 2
|
|
BEGIN
|
|
PROMPT 4 1 "Contabilizzaz."
|
|
PICTURE TOOL_EXPORT
|
|
END
|
|
|
|
#include <helpbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Fatture Passive" 0 2 0 0
|
|
|
|
GROUPBOX DLG_NULL 30 7
|
|
BEGIN
|
|
PROMPT 0 1 "@BFornitori"
|
|
END
|
|
|
|
BOOLEAN F_FORNOTASS
|
|
BEGIN
|
|
PROMPT 1 2 "Non Associati"
|
|
END
|
|
|
|
BOOLEAN F_FORASS
|
|
BEGIN
|
|
PROMPT 1 3 "Associati"
|
|
END
|
|
|
|
BOOLEAN F_FORALL
|
|
BEGIN
|
|
PROMPT 1 4 "Tutti"
|
|
END
|
|
|
|
DATE F_DATAINI
|
|
BEGIN
|
|
PROMPT 1 5 "Data iniziale"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
DATE F_DATAEND
|
|
BEGIN
|
|
PROMPT 1 6 "Data finale "
|
|
VALIDATE DATE_CMP_FUNC >= F_DATAINI
|
|
WARNING "La data finale non può essere minore della data iniziale"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
GROUPBOX F_GROUPCON 30 5
|
|
BEGIN
|
|
PROMPT 0 10 "@BContabilita'"
|
|
END
|
|
|
|
BOOLEAN F_CONTABIL
|
|
BEGIN
|
|
PROMPT 1 11 "Contabilizzate"
|
|
MODULE F1
|
|
END
|
|
|
|
DATE F_DATAINIREG
|
|
BEGIN
|
|
PROMPT 1 12 "Data iniziale"
|
|
CHECKTYPE REQUIRED
|
|
MODULE F1
|
|
END
|
|
|
|
DATE F_DATAENDREG
|
|
BEGIN
|
|
PROMPT 1 13 "Data finale "
|
|
VALIDATE DATE_CMP_FUNC >= F_DATAINIREG
|
|
WARNING "La data finale non può essere minore della data iniziale"
|
|
CHECKTYPE REQUIRED
|
|
MODULE F1
|
|
END
|
|
|
|
RADIOBUTTON F_FATTORD 20 20
|
|
BEGIN
|
|
PROMPT 31 1 "Ordinamento fatture per "
|
|
ITEM "|Data Ricezione"
|
|
ITEM "D|Data Documento"
|
|
FLAGS ""
|
|
END
|
|
|
|
RADIOBUTTON F_VERSOORD 20 20
|
|
BEGIN
|
|
PROMPT 52 1 "Ordinamento:"
|
|
ITEM "|Decrescente"
|
|
ITEM "C|Crescente"
|
|
FLAGS ""
|
|
END
|
|
|
|
SPREADSHEET F_PROT 25 4
|
|
BEGIN
|
|
PROMPT 31 5 "Selezionare o aggiungere un filtro sul Tipo Progressivo"
|
|
ITEM "@1"
|
|
ITEM "Codice\nProtocol.@12"
|
|
END
|
|
|
|
GROUPBOX F_GROUPCAU 59 7
|
|
BEGIN
|
|
PROMPT 31 10 "@BSelezionare Causale per Registrazione Contabile:"
|
|
END
|
|
|
|
STRING F_CAUSFA 3
|
|
BEGIN
|
|
PROMPT 32 11 "Causale per Fattura Acquisti (FA) "
|
|
FLAGS "UZ"
|
|
FIELD CODCAUS
|
|
USE LF_CAUSALI
|
|
INPUT CODCAUS F_CAUSFA
|
|
DISPLAY "Codice" CODCAUS
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Tipo" TIPODOC
|
|
DISPLAY "Registro" REG
|
|
DISPLAY "SC" TIPOMOV
|
|
DISPLAY "CA" MOVIND
|
|
DISPLAY "CE" COLLCESP
|
|
DISPLAY "770" M770
|
|
OUTPUT F_CAUSFA CODCAUS
|
|
OUTPUT F_DESCAUSFA DESCR
|
|
ADD RUN cg0 -4
|
|
CHECKTYPE NORMAL
|
|
WARNING "Causale assente"
|
|
MODULE F1
|
|
END
|
|
|
|
STRING F_DESCAUSFA 50
|
|
BEGIN
|
|
PROMPT 32 12 ""
|
|
USE LF_CAUSALI KEY 2
|
|
CHECKTYPE NORMAL
|
|
INPUT DESCR F_DESCAUSFA
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Codice" CODCAUS
|
|
DISPLAY "Tipo" TIPODOC
|
|
DISPLAY "Registro" REG
|
|
DISPLAY "SC" TIPOMOV
|
|
DISPLAY "CA" MOVIND
|
|
DISPLAY "CE" COLLCESP
|
|
DISPLAY "770" M770
|
|
COPY OUTPUT F_CAUSFA
|
|
ADD RUN cg0 -4
|
|
MODULE F1
|
|
END
|
|
|
|
STRING F_CAUSNC 3
|
|
BEGIN
|
|
PROMPT 32 13 "Causale per Nota Credito Acquisti [TD04]"
|
|
FLAGS "UZ"
|
|
FIELD CODCAUS
|
|
USE LF_CAUSALI
|
|
INPUT CODCAUS F_CAUSNC
|
|
DISPLAY "Codice" CODCAUS
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Tipo" TIPODOC
|
|
DISPLAY "Registro" REG
|
|
DISPLAY "SC" TIPOMOV
|
|
DISPLAY "CA" MOVIND
|
|
DISPLAY "CE" COLLCESP
|
|
DISPLAY "770" M770
|
|
OUTPUT F_CAUSNC CODCAUS
|
|
OUTPUT F_DESCAUSNC DESCR
|
|
ADD RUN cg0 -4
|
|
CHECKTYPE NORMAL
|
|
WARNING "Causale assente"
|
|
MODULE F1
|
|
END
|
|
|
|
STRING F_DESCAUSNC 50
|
|
BEGIN
|
|
PROMPT 32 14 ""
|
|
USE LF_CAUSALI KEY 2
|
|
CHECKTYPE NORMAL
|
|
INPUT DESCR F_DESCAUSNC
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Codice" CODCAUS
|
|
DISPLAY "Tipo" TIPODOC
|
|
DISPLAY "Registro" REG
|
|
DISPLAY "SC" TIPOMOV
|
|
DISPLAY "CA" MOVIND
|
|
DISPLAY "CE" COLLCESP
|
|
DISPLAY "770" M770
|
|
COPY OUTPUT F_CAUSNC
|
|
ADD RUN cg0 -4
|
|
MODULE F1
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Elenco Fatture" 0 2 0 0
|
|
|
|
SPREADSHEET F_DOCS
|
|
BEGIN
|
|
PROMPT 0 2 ""
|
|
ITEM ""
|
|
ITEM "Anno"
|
|
ITEM "Tipo Doc.\nSDI@6"
|
|
ITEM "Numero\nDocumento@18"
|
|
ITEM "Data\nRicezione@8"
|
|
ITEM "Data\nDoc.@8"
|
|
ITEM "Totale\nDocumento@12"
|
|
ITEM "Salvato in\nFP PRO@7"
|
|
ITEM "Num. Registrazione\ncontabile@12"
|
|
ITEM "Data Registrazione\ncontabile@12"
|
|
ITEM "Fornitore@7"
|
|
ITEM "Ragione Sociale@50"
|
|
ITEM "Stato\nP.IVA@4"
|
|
ITEM "Partita IVA@10"
|
|
ITEM "Cod. Fiscale@16"
|
|
ITEM "Allegati@7"
|
|
ITEM "Codice\ndestinatario@8"
|
|
ITEM "Ragione Sociale (XML)@50"
|
|
ITEM "Numero Protocollo (in entrata)\n[anno-tipo prot/progressivo]@22"
|
|
ITEM "Chiave Prot.@80"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Errore Fornitori" 0 2 0 0
|
|
|
|
SPREADSHEET F_ERR
|
|
BEGIN
|
|
PROMPT 0 2 ""
|
|
ITEM "@1"
|
|
ITEM "Stato\nP.IVA@5"
|
|
ITEM "P. IVA@16"
|
|
ITEM "Cod. Fiscale@16"
|
|
ITEM "Rag. Soc. (XML)@50"
|
|
ITEM "Descrizione @100"
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|
|
|
|
|
|
PAGE "Spread protocol " -1 -1 50 5
|
|
|
|
BOOLEAN S_SELCODPROT
|
|
BEGIN
|
|
PROMPT 1 1 "Seleziona Protocollo"
|
|
FLAGS ""
|
|
END
|
|
|
|
STRING S_CODPROT 12
|
|
BEGIN
|
|
PROMPT 1 3 "Codice Protocollo"
|
|
FLAGS ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
TOOLBAR "Fatture Passive" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 2 2
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
END
|
|
|
|
BUTTON DLG_USER 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "Collega"
|
|
PICTURE TOOL_LINK
|
|
END
|
|
|
|
|
|
BUTTON DLG_CANCEL 2 2
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|
|
|
|
|
|
PAGE "Documento" -1 -1 78 9
|
|
|
|
BOOLEAN S_SELECTED
|
|
BEGIN
|
|
PROMPT 1 0 ""
|
|
FLAGS ""
|
|
END
|
|
|
|
NUMBER S_ANNO 4
|
|
BEGIN
|
|
PROMPT 7 0 "Anno "
|
|
FLAGS "D"
|
|
END
|
|
|
|
LIST S_TIPODOCSDI 35
|
|
BEGIN
|
|
PROMPT 25 0 "Tipo Doc SDI"
|
|
ITEM "TD01|TD01 Fattura"
|
|
ITEM "TD02|TD02 Acconto/Anticipo su fattura"
|
|
ITEM "TD03|TD03 Acconto/Anticipo su parcella"
|
|
ITEM "TD04|TD04 Nota di credito"
|
|
ITEM "TD05|TD05 Nota di debito"
|
|
ITEM "TD06|TD06 Parcella"
|
|
ITEM "TD20|TD20 Autofattura"
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING S_NDOC 20
|
|
BEGIN
|
|
PROMPT 1 1 "Numero Doc. "
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE S_DATARIC
|
|
BEGIN
|
|
PROMPT 20 1 "Data\nRicezione"
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE S_DATADOC
|
|
BEGIN
|
|
PROMPT 40 1 "Data Doc. "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER S_TOTDOC 11 3
|
|
BEGIN
|
|
PROMPT 1 2 "Totale Doc. "
|
|
FLAGS "D"
|
|
END
|
|
|
|
BOOLEAN S_FPPRO
|
|
BEGIN
|
|
PROMPT 15 2 "Salvato in FP-PRO"
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER S_NUMREGCONT 6 0
|
|
BEGIN
|
|
PROMPT 40 2 "Num. Registrazione contabile"
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE S_DATAREGCONT
|
|
BEGIN
|
|
PROMPT 1 3 "Data Registrazione contabile"
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER S_FORNITORE 6
|
|
BEGIN
|
|
PROMPT 1 4 "Fornitore "
|
|
FIELD CODCF
|
|
FLAGS "GR"
|
|
KEY 1
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "F" SELECT
|
|
INPUT CODCF S_FORNITORE
|
|
DISPLAY "Codice@6R" CODCF
|
|
DISPLAY "Sospeso@C" SOSPESO
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Codice fiscale@16" COFI
|
|
DISPLAY "Partita IVA@11" PAIV
|
|
OUTPUT S_FORNITORE CODCF
|
|
OUTPUT S_RAGSOC RAGSOC
|
|
ADD RUN cg0 -1 F S_FORNITORE
|
|
HELP "Codice relativo al cliente o fornitore"
|
|
MESSAGE COPY,2@
|
|
END
|
|
|
|
STRING S_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 21 4 ""
|
|
KEY 2
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "F"
|
|
INPUT RAGSOC S_RAGSOC
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Sospeso@C" SOSPESO
|
|
DISPLAY "Codice@R" CODCF
|
|
DISPLAY "Codice fiscale@16" COFI
|
|
DISPLAY "Partita IVA@11" PAIV
|
|
COPY OUTPUT S_FORNITORE
|
|
HELP "Prima parte della ragione sociale o cognome"
|
|
MESSAGE COPY,3@
|
|
WARNING "Manca la ragione sociale"
|
|
END
|
|
|
|
STRING S_STATOPAIV 2
|
|
BEGIN
|
|
PROMPT 1 5 ""
|
|
HELP "Codice ISO dello stato"
|
|
FLAGS "U"
|
|
USE %SCE
|
|
INPUT CODTAB S_STATOPAIV
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT S_STATOPAIV CODTAB
|
|
CHECKTYPE NORMAL
|
|
FLAGS "D"
|
|
END
|
|
|
|
|
|
STRING S_PARIVA 50 20
|
|
BEGIN
|
|
PROMPT 10 5 "P. IVA"
|
|
KEY 5
|
|
USE LF_CLIFO KEY 5
|
|
INPUT TIPOCF "F"
|
|
INPUT STATOPAIV F_STATOPAIV
|
|
INPUT PAIV S_PAIV
|
|
DISPLAY "ISO@3" STATOPAIV
|
|
DISPLAY "Partita IVA@11" PAIV
|
|
DISPLAY "Sospeso" SOSPESO
|
|
DISPLAY "Codice@R" CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Codice fiscale@16" COFI
|
|
COPY OUTPUT S_FORNITORE
|
|
HELP "Partita IVA del cliente/fornitore"
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING S_CODFISC 50 20
|
|
BEGIN
|
|
PROMPT 1 6 "Cod. Fisc."
|
|
FLAGS "U"
|
|
KEY 4
|
|
USE LF_CLIFO KEY 4
|
|
INPUT TIPOCF "F"
|
|
INPUT COFI F_COFI
|
|
DISPLAY "Codice fiscale@16" COFI
|
|
DISPLAY "Sospeso" SOSPESO
|
|
DISPLAY "Codice@R" CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Partita IVA@11" PAIV
|
|
COPY OUTPUT S_FORNITORE
|
|
HELP "Codice fiscale del cliente/fornitore"
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING S_CODSDI 20
|
|
BEGIN
|
|
PROMPT 35 6 "Cod. Destinatario"
|
|
FLAGS "D"
|
|
END
|
|
|
|
BOOLEAN S_ATTACH
|
|
BEGIN
|
|
PROMPT 1 7 "Documenti in allegato"
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING S_RAGXML 50
|
|
BEGIN
|
|
PROMPT 1 8 ""
|
|
FLAGS "D"
|
|
HELP "Ragione sociale scritta nell'xml"
|
|
END
|
|
|
|
STRING S_NPROT 32
|
|
BEGIN
|
|
PROMPT 1 9 "Numero Protocollo"
|
|
HELP "Numero Protocollo"
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING S_PROKEY 80
|
|
BEGIN
|
|
PROMPT 1 10 "db key"
|
|
HELP "Chiave database"
|
|
FLAGS "D"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
TOOLBAR "Documento" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 2 2
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
END
|
|
|
|
BUTTON DLG_USER 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "Collega"
|
|
PICTURE TOOL_LINK
|
|
END
|
|
|
|
|
|
BUTTON DLG_CANCEL 2 2
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|
|
|
|
|
|
PAGE "Riga Errore" -1 -1 69 14
|
|
|
|
BOOLEAN S_SELECTF
|
|
BEGIN
|
|
PROMPT 21 4 "Seleziona Fornitore da salvare"
|
|
FLAGS ""
|
|
END
|
|
|
|
STRING S_STATOERR 2
|
|
BEGIN
|
|
PROMPT 21 4 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING S_PIVAERR 50 20
|
|
BEGIN
|
|
PROMPT 21 4 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING S_CODFIERR 50 20
|
|
BEGIN
|
|
PROMPT 21 4 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING S_RAGSERR 50
|
|
BEGIN
|
|
PROMPT 21 4 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING S_DESCERR 100
|
|
BEGIN
|
|
PROMPT 21 4 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
|
|
ENDPAGE
|
|
ENDMASK
|