Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user admin

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Nilton Mioshi Koyanagui

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.


01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Serviços
Módulo:SIGAACD- Automação de Coleta de Dados
Rotina:

 CBRETEAN -ACDXFUN- Informa Dados das Etiquetas


02. PONTO DE ENTRADA


Descrição:Ponto de Entrada utilizado para informar os dados pertinentes a etiquetas, quando utilizadas etiquetas de código natural, dessa forma ele permite a criação da própria composição da quantidade por embalagem e interpretação de leitura do código de barras.
Eventos:

O Ponto de Entrada é chamado no momento da leitura de etiquetas quando não utilizado o parâmetro MV_ACDCB0. 

Programa Fonte:ACDV167.prg
OBSPonto de entrada genérico deve ser avaliado o comportamento em todas as rotinas que utilizam litura de código de barras
Parâmetros:

PARAMIXB[01] - Código da etiqueta lida.

Retorno aRet → Vetor 
Composition Setup
import.css=/download/attachments/327912/newLayout.css

...

Ponto-de-Entrada: CBRETEAN - Informa Dados das Etiquetas
Abrangências: Microsiga Protheus 10
Versões: Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição: 
Ponto de Entrada utilizado para informar os dados pertinentes a etiquetas, quando utilizadas etiquetas de código natural.
Programa Fonte 
ACDXFUN
Sintaxe

CBRETEAN - Informa Dados das Etiquetas ( [ cId ] ) --> aRet

...

{"Código do Produto","Quantidade(Embalagem normalmente analisado na nQE := SB1->B1_QE no processo padrão)","Lote","Data de Validade","Número de Série","Endereço Destino"}
Observações

O Ponto de Entrada é chamado no momento da leitura de etiquetas quando não utilizado o parâmetro MV_ACDCB0.

Exemplos 
User Function CBRETEAN()Local cId := PARAMIXB[1] // Código da etiqueta lidaLocal aRet := {}// Validações do usuárioReturn aRet // Estrutura do vetor: {"Código do Produto","Quantidade","Lote","Data de Validade","Número de Série"}
Exemplo:


#Include "TOTVS.CH"
 

UserFunctionCBRETEAN()
    LocalcId   := Padr(PARAMIXB[1],TAMSX3("B1_CODBAR")[1])  // CÓD. PRODUTO
    LocalaRet  := {}                                              // DADOS DA ETIQUETA
    LocalaAreaSB1 := {}                                      // ESTADO DOS ARQUIVOS DE TRABALHO
    LocalaAreaSB8 := {}                                      //  
    LocalcPrd  := ''                                              // CÓDIGO DO PRODUTO (B1_COD)
    LocalnQE   := 1
 
    // ARMAZENA A ÁREA CORRENTE
    aAreaSb1:= SB1->(GetArea())
    aAreaSB8:= SB8->(GetArea())
 
    dbselectarea('SB1')
    dbsetorder(5) // B1_FILIAL+B1_CODBAR
    dbseek(xFilial("SB1")+cId)
    AAdd(aRet,PadR(B1_COD,TamSX3("B1_COD")[1]))
    cPrd := B1_COD
    // ARET[2] Calculo de quantidade por embalagem
    AAdd(aRet,nQE)
 
    // ARET[3] LOTE
    DbSelectArea("SB8")
    DbSetOrder(1)
    DbSeek(FwXFilial("SB8") + PadR(cPrd,TamSX3("B8_LOTECTL")[1]))
    AAdd(aRet,SB8->B8_LOTECTL)
 
    // ARET[4] DATA DE VALIDADE
    AAdd(aRet,SB8->B8_DTVALID)
    DbCloseArea() // RESTAURA O ESTADO FECHADO DO ARQUIVO SB8
 
    // ARET[5] NÚMERO DE SÉRIE
    AAdd(aRet,PadR("",TamSX3("BF_NUMSERI")[1]))
 
    // ARET[6] ENDEREÇO DESTINO
    AAdd(aRet,PadR("",TamSX3("BE_LOCALIZ")[1]))



    // DEVOLVE AS AREAS
    RestArea(aAreaSB8)
    RestArea(aAreaSB1)

   RETURN(aRet)



Image AddedImage AddedImage Added

...