Vai al contenuto

COGM30 - Uscita dal Magazzino Principale (Trasferimenti Interni)

Funzione

Gestisce il trasferimento di merci tra magazzini interni. Acquisisce i prodotti tramite codice a barre (EAN o serial number) o selezione manuale, quindi genera in aggiornamento la coppia di documenti uscita/entrata sui rispettivi magazzini (COGMOMAG + COGTESBO).

  • Magazzino > Trasferimenti > Trasferimenti Interni > Uscita dal Mag. principale
  • Magazzino > Trasferimenti > Trasferimenti Interni (altra posizione)

Tabelle e file principali

Tabella Descrizione Accesso
COGMERCI Anagrafica merci Lettura (chiave primaria e chiave EAN chia2)
COGGEANA Anagrafica generale (clienti/fornitori) Lettura
COGMAGA2 Anagrafica magazzini Lettura (verifica esistenza magazzino)
COGTESBO Testate bolle/documenti Scrittura (inserimento testata uscita e entrata)
COGMOMAG Movimenti di magazzino Scrittura (inserimento righe uscita e entrata)
COGMATRI Matricole/serial number Lettura (verifica SN libero e carico su mag.)
COGMTUSC Matricole in uscita Lettura (verifica SN gia' uscito)
COGDESAG Destinazioni articoli Lettura
COGTABEL Tabelle di codifica Lettura
COGDESOR Descrizioni ordini Lettura
COGGENER Dati generali (es. prenotazioni buoni prelievo) Lettura
FEURTAB Tabelle configurazione sistema Lettura

Logica principale

Configurazione (x99-conf)

Legge da RNEWCONF le causali di uscita/entrata, i tipi numerazione, i flag di conto lavoro, e altri parametri di configurazione tramite utilncnf.

Fase 1 - Selezione magazzini (paragrafi a25, a35)

  • Accetta magazzino di uscita (tm-da-mag) con F8=aiuto lista magazzini (send-w36 -> WIN036).
  • Verifica esistenza in COGMAGA2.
  • Accetta magazzino di entrata (tm-a-mag); blocca se uguale a tm-da-mag.
  • Chiama x99-conf-cau-u e x99-conf-cau-e per leggere le causali configurate per il tipo di coppia magazzini.

Fase 2 - Inserimento righe (b-accept thru ex-b)

  • Loop su righe (b-10): accetta tm-lettura(i) (campo 30 byte: serial number o codice a barre).
  • Se compilato chiama c2-lettura thru ex-c2:
  • Ricerca per SN (c2-10-loop): scan su COGMATRI con chiave4 (per SN); verifica mtr-ent-mag = tm-da-mag; verifica non gia' in COGMTUSC; verifica non prenotato in COGGENER (tipo 'CM').
  • Ricerca per EAN (c22-cerca-ean thru ex-c22): se il codice e' numerico, cerca in COGMERCI per mer-ean; blocca se merce gestita a SN.
  • Accorpamento quantita' per EAN; righe separate per SN.
  • Se il campo e' vuoto e la merce e' gia' presente, consente modifica manuale con z-s68-tm-merce (WIN068 per SN associato).
  • F3 in b-10 -> acc-conf -> se confermato salta a ex-b.

Fase 3 - Aggiornamento (c-aggiorna thru ex-c)

Logica di numerazione (tipi documento): - Con XAB (cassa): uscita tipo 'U' numerazione 3, entrata tipo 'T' numerazione 2. - Senza XAB: entrata e uscita tipo 'T' numerazione 2.

Paragrafi di scrittura: - c2-testa: crea testata COGTESBO (chiama COGS25 per numero progressivo). - c3-righe: scrive righe COGMOMAG per l'uscita (EU='U') e per l'entrata (EU='E'). - c4-note: scrive note/riferimenti documento.

Chiamate principali

Chiamata Tipo Scopo
COGS25 CALL/CANCEL Generazione numero documento (progressivo)
COGS54 CALL/CANCEL Gestione stampa (chiamata alla chiusura)
WIN036 (send-w36) PERFORM/CALL Elenco aiuto magazzini
WIN068 (call-win068) PERFORM/CALL Ricerca SN associato a merce
GRIDADMN non usato (usa display/accept diretti su schermo text-mode)
z-99-init-program / z-99-exit-program PERFORM (mmmask.cpy) Init/exit programma standalone

Note tecniche

  • Programma text-mode (schermo definito in mm-1 nel working-storage, non in screen section separata).
  • source-computer. pc-sperry / object-computer. pc-sperry.
  • Configurazione letta tramite utilncnf.cpy -> x99-conf: causali (tm-cfg-cau-usc, tm-cfg-cau-ent), tipi numerazione, flag conto lavoro.
  • Tabella righe: tm-righe occurs k-t-size con tm-lettura, tm-qta, tm-mat, tm-sn, tm-merce, tm-mer-des.
  • Gestione w-control-phrase per case sensitivity del campo lettura (dipende da ext-case-sn).
  • Encoding: ISO-8859-1.