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
60 lines
944 B
Plaintext
60 lines
944 B
Plaintext
#include "ba9b00.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
#include <stdbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Riga Selezione cliente/fornitore" -1 -1 78 19
|
|
|
|
STRING S_DESCR 25
|
|
BEGIN
|
|
PROMPT 2 2 "Campo"
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER S_DA 6
|
|
BEGIN
|
|
PROMPT 2 4 "Da "
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF S_TIPOCF SELECT
|
|
INPUT CODCF S_DA
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Partita IVA@11" PAIV
|
|
OUTPUT S_DA CODCF
|
|
FLAGS "Z"
|
|
END
|
|
|
|
NUMBER S_A 6
|
|
BEGIN
|
|
PROMPT 2 6 "A "
|
|
COPY USE S_DA
|
|
INPUT TIPOCF S_TIPOCF SELECT
|
|
INPUT CODCF S_A
|
|
COPY DISPLAY S_DA
|
|
OUTPUT S_A CODCF
|
|
NUM_EXPR (#S_A=="")||(#S_A>=#S_DA)
|
|
WARNING "Il limite superiore deve essere maggiore di quello inferiore"
|
|
FLAGS "Z"
|
|
END
|
|
|
|
STRING S_FIELD 25
|
|
BEGIN
|
|
PROMPT 2 8 "Nome campo"
|
|
FLAGS "D"
|
|
END
|
|
|
|
LISTBOX S_TIPOCF 9
|
|
BEGIN
|
|
PROMPT 2 12 ""
|
|
FLAGS "HGD"
|
|
ITEM "C|Cliente"
|
|
ITEM "F|Fornitore"
|
|
END
|
|
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|