campo-sirio/cm/cm1100a.frm

#include "cm1100.h"

SECTION GRAPHICS ODD

LINEA -1 132 1
BEGIN
  PROMPT 1 7 "@b"
END

LINEA -1 132 1
BEGIN
  PROMPT 1 9 "@b"
END

END

// intestazione generale stampa pagato per commessa
SECTION HEADER ODD 9

NUMERO -1
BEGIN
	KEY "Nr. pagina"
	PROMPT  1 1 "Pag. "
	MESSAGE _PAGENO
END

STRINGA -1
BEGIN
	KEY "Data"
	PROMPT  115 1 "Data "
	MESSAGE _TODAY
END

STRINGA -1
BEGIN
  KEY "Intestazione stampa"
  PROMPT 50 2 "@bPAGATO PER COMMESSA / FORNITORE"
END

DATA FR_HO_DATAINI                                   
BEGIN
  KEY "Parametri stampa: data iniziale"
  PROMPT 1 3 "@bMovimenti dal@r "
END

DATA FR_HO_DATAFIN
BEGIN
  KEY "Parametri stampa: data finale"
  PROMPT 40 3 "@bal@r "
END

STRINGA FR_HO_DACDC
BEGIN
  KEY "da codice commessa"
  PROMPT 1 4 "@bDa comm.@r "
END

STRINGA FR_HO_DADESC 35
BEGIN
  KEY "da descr commessa"
  PROMPT 30 4 ""
END

STRINGA FR_HO_ACDC
BEGIN
  KEY "a codice commessa"
  PROMPT 66 4 "@bA comm.@r "
END

STRINGA FR_HO_ADESC 35
BEGIN
  KEY "a descr commessa"
  PROMPT 93 4 ""
END

STRINGA FR_HO_DACFSC
BEGIN
  KEY "da codice fase"
  PROMPT 1 5 "@bDa fase@r "
END

STRINGA FR_HO_DADESFSC 43
BEGIN
  KEY "da descrizione fase"
  PROMPT 20 5 ""
END

STRINGA FR_HO_ACFSC
BEGIN
  KEY "a codice fase"
  PROMPT 66 5 "@bA fase@r "
END

STRINGA FR_HO_ADESFSC
BEGIN
  KEY "a descrizione fase"
  PROMPT 81 5 ""
END

STRINGA FR_HO_DACODFOR
BEGIN
  KEY "da codice fornitore"
  PROMPT 1 6 "@bDal forn.@r "
END

STRINGA FR_HO_DADESFOR 48
BEGIN
  KEY "da ragsoc"
  PROMPT 17 6 ""
END

STRINGA FR_HO_ACODFOR
BEGIN
  KEY "a codice fornitore"
  PROMPT 66 6 "@bAl forn.@r "
END

STRINGA FR_HO_ADESFOR
BEGIN
  KEY "a ragsoc"
  PROMPT 84 6 ""
END

STRINGA -1
BEGIN
  KEY "numero registrazione"
  PROMPT 1 8 "@bN. reg."
END

STRINGA -1
BEGIN
  KEY "data pagamento"
  PROMPT 10 8 "@bData pag."
END

STRINGA -1
BEGIN
  KEY "descrizione pagamento"
  PROMPT 22 8 "@bDescrizione pagamento"
END

STRINGA FR_HO_FORNCMS
BEGIN
  KEY "codice fornitore"
  PROMPT 63 8 "@b"
END

STRINGA -1
BEGIN
  KEY "totale fattura"
  PROMPT 85 8 "@bTotale fattura"
END

STRINGA -1
BEGIN
  KEY "totale pagamento"
  PROMPT 101 8 "@bTotale pagamento"
END

STRINGA -1
BEGIN
  KEY "totale residuo"
  PROMPT 118 8 "@bTotale residuo"
END

END // section header odd

// riga con solo il codice commessa ed una riga vuota
SECTION HEADER LAST 3

STRINGA FR_HL_CODCMS
BEGIN
  KEY "codice commessa"
  PROMPT 1 2 "@b"
END

END //section header last

// riga di stampa (utilizzata per ogni gruppo/conto/sottoconto e per tutti i totali)
SECTION BODY ODD 1

STRINGA -1
BEGIN
  KEY "tipo riga"
  PROMPT 1 1 ""
  MESSAGE _TIPORIGA|COPY,FR_BO_TIPORIGA
  FLAGS "H"
END

LISTA FR_BO_TIPORIGA
BEGIN
  KEY "lista tipo riga"
  PROMPT 1 1 ""
  ITEM "0|0" MESSAGE ENABLE,1@|DISABLE,2@
  ITEM "1|1" MESSAGE ENABLE,2@|DISABLE,1@
  ITEM "2|2" MESSAGE ENABLE,2@|DISABLE,1@
  FLAGS "H"
END

STRINGA -1
BEGIN
  KEY "codice commessa"
  PROMPT 1 1 ""
  MESSAGE _CODCMS
  FLAGS "H"
END

NUMERO -1 7
BEGIN
  KEY "numero registrazione"
  PROMPT 1 1 ""
  MESSAGE _NREG
  GROUP 1
END

DATA -1
BEGIN
  KEY "data pagamento"
  PROMPT 10 1 ""
  MESSAGE _DATAPAG
  GROUP 1
END

NUMERO -1 3
BEGIN
  KEY "gruppo"
  PROMPT 3 1 ""
  MESSAGE _GRUPPO
  GROUP 2
END

NUMERO -1 3
BEGIN
  KEY "conto"
  PROMPT 7 1 ""
  MESSAGE _CONTO
  GROUP 2
END

NUMERO -1 6
BEGIN
  KEY "sottoconto"
  PROMPT 11 1 ""
  MESSAGE _SOTTOCONTO
  GROUP 2
END

STRINGA FR_BO_DESC 40
BEGIN
  KEY "descrizione pagamento"
  PROMPT 22 1 ""
  MESSAGE _DESCRPAG
END

STRINGA -1
BEGIN
  KEY "codice fornitore/commessa"
  PROMPT 63 1 ""
  MESSAGE _CODFORN
  GROUP 1
END

VALUTA -1 15
BEGIN
  KEY "totale fattura"
  PROMPT 84 1 ""
  MESSAGE _TOTDOC
  GROUP 1
END

VALUTA -1 15
BEGIN
  KEY "totale pagamento"
  PROMPT 101 1 ""
  MESSAGE _TOTPAG
END

VALUTA -1 15
BEGIN
  KEY "totale residuo"
  PROMPT 117 1 ""
  MESSAGE _TOTRES
END

STRINGA -1
BEGIN
  KEY "avanza 1 pagamento"
  PROMPT 1 1 ""
  MESSAGE _NEXTPAG
  FLAGS "H"
END

END // section body

SECTION FOOTER ODD 1
END

END // form