***********************************************************************************
 '@PG PERS_EST_DOCUNI_RIG_02      ' PERSONALIZZAZIONE DOC.UNI. Ges. estensione riga
***********************************************************************************
      

      '===================================================================
      '@SR TAB_RIGHE
      '===================================================================
      '
      TASTO_USC%=0
      '
      ' Lettura transitorio di testata documento
      '@FINDDBDATA TABELLA[TDOT] _
                   TIPOREC[F1] _
                   IND[0 \IDD=IDD_DOC\] _
                   VIRTUALE[SQ_VIRTUALE] _
                   ERRORE[#NOKEY]
      '
      ' Lettura transitorio di riga documento
      '@FINDDBDATA TABELLA[TDOR] _
                   TIPOREC[F3] _
                   IND[0 \IDD=IDD_DOC\\IDR=IDR_DOC\] _
                   VIRTUALE[SQ_VIRTUALE] _
                   ERRORE[#NOKEY]
      '
      ' Lettura elementi di personalizzazione per determinare se il tab prevede la visualizzazione campi utente
      GOSUB LET_ETIC_PERS
      '
      ' Se il tab abilitato prevede la gestione campi utente viene richiamata la visualizzazione dei campi utente di testata
      IF FL_TAB_CAMPIUTENTE=1 THEN
         '
         GOSUB VID_CAMPI_UTENTE
      ELSE
         '
         '
         ' Lettura tabella di estensione
   '       '@FINDDBDATA TABELLA[EST_RIGA CLONESTAZIONE] _
   '                    TIPOREC[ESTR] _
   '                    IND[0 \IDD=IDD_DOC\\IDR=IDR_DOC\] _
   '                    CAMPI[CAMPOPERS] _
   '                    VIRTUALE[SQ_VIRTUALE] _
   '                    ERRORE[#NOKEY]
         '
      '@SBC YSUB_REGOFF                   _ ' REGISTRO OFFERTE
            MODAREOF[1]=2          [IN]   _ ' 0-Inserimento da Sk.; 1-Variazione da Sk.; 2=Inserimewnto / Variazione da Doc.
            B_RFIDD[9]=0           [IN]   _ ' 0a---- IDENTIFICATORE REGISTRO OFFRTE _
            B_IDD[9]=IDD_DOC       [IN]   _ ' 0a---- IDENTIFICATORE DOCUMENTO _
            B_IDR[9]=IDR_DOC       [IN]   _ ' 0b---- IDENTIFICATORE RIGA DOCUMENTO _
            B_NPOS[7,2]=F3NR       [IN]   _ ' 0c---- NUMERO POSIZIONE COMPONENTE _
            B_NPR[7,2]=F3NPR1      [IN]   _ ' 0d---- NUMERO PROGRESSIVO RIGA _
            B_INTDC[1]=F1INTDC     [IN]   _ ' Interrogazione documneto
            FL_USC%[1]             [OUT]    ' Tasto premuto in uscita



   '   '@DEFVID DIM[1,117] TIT["TAB_PERSONALIZZATO"] ID["PERS_EST_DOCUNI_RIG_001"]

'      '@DEFLABEL VAR["Inserire i campi della personalizzazione"] POS[1,2] DIM[1,40] ID["LABEL_1"] FMT[TESTO]

'      '@DEFFUNCKEY TASTO[ESC] VAR["Esci"] AZIONE[TASTO_USC%=1:EXITSR] NASCOSTO[ABI_TASTO_ESC=0] INVISIBILE[1]

'      '@DEFFUNCKEY TASTO[F1] VAR["Abbandona"] AZIONE[TASTO_USC%=1:EXITSR]

'      '@DEFFUNCKEY TASTO[F11] VAR["Altre funzioni"] AZIONE[ESEGUIMENU[""]] DISABILITATO[1]

'      '@DEFFUNCKEY TASTO[END] VAR["Salva"] CONVARIABILI[1] NASCOSTO[F1INTDC>0]

 '     '@RUNVID DISABILITATO[F1INTDC>0]
         '
         IF F1INTDC>0 THEN EXITSR
         '
   '       ' Aggiornamento / Scrittura tabella di estensione
   '       ESTRIDD=IDD_DOC
   '       ESTRIDR=IDR_DOC
   '       '
   '       '@WRITEDBDATA TABELLA[EST_RIGA CLONESTAZIONE] _
   '                     TIPOREC[ESTR] _
   '                     IND[0 \IDD=IDD_DOC\\IDR=IDR_DOC\] _
   '                     PRIORITA[INSERT] _
   '                     VIRTUALE[SQ_VIRTUALE]
      ENDIF
      '
      RETURN
      '