60895564e1
Files correlati : Report Clienti e fornitori I report devono avere library = repcom Campi di selezione CODCF Codice RAGSOC Ragione Sociale CAPCF CAP CODAG Codice agente CODZONA Codice Zona CODAG1 Codice Agente 2 CODLIST Codice listino SCONTO Sconto FIDO Fido CODPAG Pagamento CODMAG Magazzino CODDEP Deposito VSDATAREG Data Esenzione CODPORTO Porto CODSPMEZZO Spedizione CATVEN Categoria economica DATAUFATT Data ultima fattura IMPFATT Fatturato netto TOTFATT Totale fatturato DARE Dare AVERE Avere SCADUTO Scaduto MOVIMENTATO Movimentato NINS Numero insoluti ESPCAM Esposto su questi imposta un between coi valori da a vengono anche impostate tutte le variabili #DA_<nome campo> #A_<nome campo> Macro $REPCOM viene sostituito con tutte le select ( between ) costruite con la maschera di input $KEY viene sostituito con la chiave selezionata TIPOCF viene sostituito con col tipo cliente fornitore $ANNO viene sostituito con l'anno di esercizio iniziale $AANNO viene sostituito con l'anno di esercizio finale $DA viene sostituito con la data iniziale $A viene sostituito con la data finale git-svn-id: svn://10.65.10.50/branches/R_10_00@23440 c028cbd2-c16b-5b4b-a496-9718f37d4682
144 lines
2.1 KiB
Plaintext
144 lines
2.1 KiB
Plaintext
#include "ba9b00.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
#include <printbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
TOOLBAR "bottombar" 0 -2 0 1
|
|
|
|
STRING F_REPORT 256 64
|
|
BEGIN
|
|
PROMPT 2 -2 "Report "
|
|
RSELECT "repcom"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING DLG_PROFILE 50
|
|
BEGIN
|
|
PROMPT 2 -1 "Profilo "
|
|
PSELECT
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Report Clienti Fornitori" 0 2 0 0
|
|
|
|
LISTBOX F_KEY 50
|
|
BEGIN
|
|
PROMPT 1 1 "Chiave "
|
|
ITEM "1|Codice (TIPOCF CODCF)"
|
|
ITEM "2|Ragione sociale (TIPOCF RAGSOC)"
|
|
ITEM "3|Conto (TIPOCF GRUPPO CONTO CODCF)"
|
|
ITEM "4|Codice fiscale (TIPOCF COFI)"
|
|
ITEM "5|Partita IVA (TIPOCF STATOPAIV PAIV"
|
|
ITEM "6|Ricerca alternativa (TIPOCF+RICALT)"
|
|
END
|
|
|
|
LISTBOX F_TIPOCF 10
|
|
BEGIN
|
|
PROMPT 1 3 "Tipo "
|
|
ITEM "C|Clienti"
|
|
ITEM "F|Fornitori"
|
|
MESSAGE COPY,S_TIPOCF
|
|
END
|
|
|
|
NUMBER F_CODES 4
|
|
BEGIN
|
|
PROMPT 21 3 "Esercizio Da"
|
|
USE ESC
|
|
INPUT CODTAB F_CODES
|
|
DISPLAY "Codice Esercizio" CODTAB
|
|
DISPLAY "Data inizio esercizio" D0
|
|
DISPLAY "Data fine esercizio " D1
|
|
OUTPUT F_CODES CODTAB
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_CODES_TO 4
|
|
BEGIN
|
|
PROMPT 55 3 "A "
|
|
USE ESC
|
|
INPUT CODTAB F_CODES_TO
|
|
DISPLAY "Codice Esercizio" CODTAB
|
|
DISPLAY "Data inizio esercizio" D0
|
|
DISPLAY "Data fine esercizio " D1
|
|
OUTPUT F_CODES_TO CODTAB
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
DATE F_DA
|
|
BEGIN
|
|
PROMPT 32 4 "Dal"
|
|
END
|
|
|
|
DATE F_A
|
|
BEGIN
|
|
PROMPT 55 4 "Al "
|
|
END
|
|
|
|
SPREADSHEET F_SHEET 0 -3
|
|
BEGIN
|
|
PROMPT 15 6 "Selezione"
|
|
ITEM "Campo@25"
|
|
ITEM "Da@50"
|
|
ITEM "A@50"
|
|
ITEM "Nome campo@25"
|
|
ITEM "Tipo"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Riga Selezione" -1 -1 78 19
|
|
|
|
STRING S_DESCR 25
|
|
BEGIN
|
|
PROMPT 2 2 "Campo"
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING S_DA 50
|
|
BEGIN
|
|
PROMPT 2 4 "Da "
|
|
END
|
|
|
|
STRING S_A 50
|
|
BEGIN
|
|
PROMPT 2 6 "A "
|
|
END
|
|
|
|
STRING S_FIELD 25
|
|
BEGIN
|
|
PROMPT 2 8 "Nome campo"
|
|
FLAGS "D"
|
|
END
|
|
|
|
LISTBOX S_TIPOCF 9
|
|
BEGIN
|
|
PROMPT 2 10 ""
|
|
FLAGS "HGD"
|
|
ITEM "C|Cliente"
|
|
ITEM "F|Fornitore"
|
|
EN
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|