| At line 1 added 91 lines |
| %%(display:none) |
| {{{ |
| WikiUp |
| }}} |
| /% |
| [{TableOfContents }]\\ |
| !!! Obiettivo\\ |
| Interrogazione DISTINTA BASE prevista nella tabella di personalizzazione applicazioni B£1 |
|
| !!! Input\\ |
|
| Campi fondamentali |
|
| £DIBSP : ' ' - inizio scansione |
| '1' - continua scansione (è riempito dalla routine) |
| 'L' - interrompe il ramo e prosegue con l'elemento |
| successivo dello stesso livello |
|
| £DIBPG : se non blanks lancia il programma con questo |
| suffisso: serve nel caso in cui ci siano due |
| scansioni di distinta attive contemporaneamente |
| nella stessa applicazione (lanciate da programmi |
| diversi). |
|
| N.B. Deve essere ripulito anche in caso di gestione singolo |
| legame (funzione 'GD') |
|
|
|
| !!! Output\\ |
|
| *IN35 : se On = fine scansione |
|
| !!! Prerequisiti\\ |
|
| D/COPY QILEGEN,£DIBE |
|
|
| !!! Esempio di chiamata\\ |
| Esempio 1: scansione distinta ordine di produzione |
|
| C* EVAL £DIBSP=' ' *BLANKS = inizio scansione |
| C* EVAL £DIBFU='DD' Funzione |
| C* EVAL £DIBME=' ' Metodo |
| C* EVAL £DIBPG=' ' Suffisso programma di aggiustamento |
| C* EVAL £DIBQT=1 Quantità |
| C* CLEAR £DIBDT Data Validità |
| C* EVAL £DIBCG='' Configurazione |
| C* EVAL £DIBLM=0 Livello Massimo |
| C* CLEAR £DIBIT Tipo Distinta |
| C* EVAL £DIBIC=N.ordine numero ordine di produzione |
| C* EVAL £DIBIS='10' Stato |
| C* EVAL £DIBIQ='' Sequenza Ciclo |
| C* EVAL £DIBIR=0 N.Record |
| C* EVAL £DIBI1='' Par.condiz.1 |
| C* EVAL £DIBI2='' Par.condiz.2 |
| C* EVAL £DIBFE='' Esponente Modifica |
| C* EVAL £DIBEI='' Esp.Componente |
| C* |
| C* DO *HIVAL $H 3 0 |
| C* EXSR £DIB |
| C* IF £DIB35=*ON Indicatore errore |
| C* LEAVE |
| C* |
| C* ENDIF |
| C* EVAL componente=£DIBCO |
| C* EVAL coefficente di impiego=£DIV(6) |
| C* EVAL configurazione componente=£DIBS2 |
| C* ENDDO |
|
| Esempio 2: scansione distinta di un articolo |
|
| C* EVAL £DIBSP=' ' *BLANKS = inizio scansione |
| C* EVAL £DIBFU='ED' Funzione |
| C* EVAL £DIBME='3' Metodo |
| C* EVAL £DIBQT=100 Quantità |
| C* EVAL £DIBIC=Codice articolo Codice Articolo |
| C* |
| C* DO *HIVAL $H 3 0 |
| C* EXSR £DIB |
| C* IF £DIB35=*ON Indicatore errore |
| C* LEAVE |
| C* ENDIF |
| C* |
| C* EVAL componente=£DIBCO |
| C* EVAL coefficente di impiego=£DIV(6) |
| C* EVAL configurazione componente=£DIBS2 |
| C* ENDDO |
|
| !!! Note particolari\\ |
|
