campo-sirio/ve/ve1200a.frm

#include "ve1200a.h"

USE LF_DOC
JOIN LF_RIGHEDOC INTO PROVV==PROVV ANNO==ANNO CODNUM==CODNUM NDOC==NDOC

END

// Testata
SECTION HEADER ODD 3

DATA H_DATARIF
BEGIN
  PROMPT 50 1 "@bSCOPERTO DA FATTURA AL "
END

DATA B_NULL
BEGIN
  PROMPT 1 2 "Data di stampa "
  MESSAGE _TODAY
END

NUMERO B_NULL 4
BEGIN
  PROMPT 118 2 "Pag."
  MESSAGE _PAGENO
END

END

// Testata bolle
SECTION BODY FIRST 5

STRINGA B_NULL
BEGIN
  PROMPT 1 1 "__________________________________________________________________________________________________________________________________"
END

STRINGA B_NULL
BEGIN
  PROMPT 1 2 "@bData Bolla"
END

DATA B_NULL 10
BEGIN
  PROMPT 1 3 ""
  FIELD LF_DOC->DATADOC
END

STRINGA B_NULL
BEGIN
  PROMPT 12 2 "Numeraz."
END

STRINGA B_NULL 4
BEGIN
  PROMPT 12 3 ""
  FIELD LF_DOC->CODNUM
END

STRINGA B_NULL
BEGIN
  PROMPT 22 2 "N."
END

NUMERO B_NULL 7
BEGIN
  PROMPT 17 3 ""
  FIELD LF_DOC->NDOC
END

STRINGA B_NULL
BEGIN
  PROMPT 25 2 "Stato"
END

STRINGA B_NULL
BEGIN
  PROMPT 25 3 ""
  FIELD LF_DOC->STATO
END

NUMERO B_NULL 6
BEGIN
  PROMPT 28 3 ""
  FIELD LF_DOC->CODCF
END

STRINGA B_NULL
BEGIN
  PROMPT 35 2 "Fornitore"
END

STRINGA B_NULL 40
BEGIN
  PROMPT 35 3 ""
  MESSAGE _CLIFO
END

STRINGA B_NULL
BEGIN
  PROMPT 94 2 "Doc. rif."
END

STRINGA B_NULL
BEGIN
  PROMPT 94 3 ""
  FIELD NUMDOCRIF
END

STRINGA B_NULL
BEGIN
  PROMPT 104 2 "Data rif."
END

STRINGA B_NULL
BEGIN
  PROMPT 103 3 ""
  FIELD DATADOCRIF
END

STRINGA B_NULL
BEGIN
  PROMPT 76 2 "Valuta"
END

STRINGA T_CODVAL
BEGIN
  PROMPT 76 3 ""
  FIELD CODVAL
END

STRINGA B_NULL
BEGIN
  PROMPT 87 2 "Cambio"
END

NUMERO B_NULL 13 5
BEGIN
  PROMPT 80 3 ""
  FIELD CAMBIO
  PICTURE "###.###,@@@@@"
END

STRINGA B_NULL
BEGIN
  PROMPT 1 5 "@bCodice               Articolo"
END

STRINGA B_NULL
BEGIN
  PROMPT 43 5 "UM"
END

STRINGA B_NULL
BEGIN
  PROMPT 51 5 "Quantità"
END

STRINGA B_NULL
BEGIN
  PROMPT 69 5 "Prezzo"
END

STRINGA B_NULL
BEGIN
  KEY "Intestazione valore (azzera totale)"
  PROMPT 85 5 "Valore"
  MESSAGE RESET,BE->R_VALORE
END

STRINGA B_NULL
BEGIN
  PROMPT 93 5 "Fatt. Rif."
END

STRINGA B_NULL
BEGIN
  PROMPT 104 5 "Data Rif."
END

STRINGA B_NULL
BEGIN
  PROMPT 114 5 "Fattura  N."
END

STRINGA B_NULL
BEGIN
  PROMPT 126 5 "Note"
END

END

// Righe bolle
SECTION BODY ODD 1

STRINGA B_NULL
BEGIN
  PROMPT 1 1 ""
  FIELD LF_RIGHEDOC->CODARTMAG
END

STRINGA B_NULL 20
BEGIN
  PROMPT 22 1 ""
  MESSAGE _DESCART
END

STRINGA B_NULL
BEGIN
  PROMPT 43 1 ""
  FIELD LF_RIGHEDOC->UMQTA
END

NUMERO R_QUANT 13 3
BEGIN
  KEY "Quantità o residuo (riempito da programma)"
  PROMPT 46 1 "" 
  PICTURE "#.###.###,@@@"
END

VALUTA B_NULL 15
BEGIN
  KEY "Prezzo Unitario"
  PROMPT 60 1 ""
  FIELD LF_RIGHEDOC->PREZZO
  DRIVENBY BF->T_CODVAL
  FLAGS "U"
END

VALUTA R_VALORE 15
BEGIN
  KEY "Valore della riga (impostato da programma)"
  PROMPT 76 1 ""
  DRIVENBY BF->T_CODVAL
  MESSAGE ADD,BE->R_VALORE
END

STRINGA R_DOCRIF
BEGIN
  KEY "Documento di riferimento (impostato da programma)"
  PROMPT 93 1 ""
END

STRINGA R_DATARIF
BEGIN
  KEY "Data di riferimento (impostato da programma)"
  PROMPT 103 1 ""
END

STRINGA R_CODNUM_FAT
BEGIN
  KEY "Numerazione fattura (impostato da programma)"
  PROMPT 114 1 ""
END

NUMERO R_NDOC_FAT 7
BEGIN
  KEY "Numero fattura (impostato da programma)"
  PROMPT 118 1 ""
END

STRINGA R_NOTA
BEGIN
  KEY "Nota in calce (impostato da programma)"
  PROMPT 126 1 ""
END

END

// Riga Totale bolla
SECTION BODY EVEN 1

STRINGA B_NULL
BEGIN
  PROMPT 22 1 "@bTOTALE BOLLA"
END


VALUTA R_VALORE 15
BEGIN
  KEY "Totale documento"
  PROMPT 76 1 ""
  DRIVENBY BF->T_CODVAL
  MESSAGE ADD,BL->R_VALORE
END
  
END

// Riga Totale Generale
SECTION BODY LAST 2

STRINGA B_NULL
BEGIN
  PROMPT 1 1 "__________________________________________________________________________________________________________________________________"
END

STRINGA B_NULL
BEGIN
  PROMPT 22 2 "@bTOTALE SCOPERTO"
END

VALUTA R_VALORE 15
BEGIN
  KEY "Totale Generale"
  PROMPT 76 2 ""
  DRIVENBY BF->T_CODVAL
END
  
END