Histórico da Página

User Function CBRETEAN()
    Local cId   := AllTrim(PARAMIXB[1])         //

 CÓDIGO DO PRODUTO (B1_CODBAR)
    Local aRet  := {}                           //

 DADOS DA ETIQUETA
    Local aArea := {}                           // ESTADO DOS ARQUIVOS DE TRABALHO
    Local cPrd  := SubStr(cId, 1, Len(cId) - 1) // CÓDIGO DO PRODUTO (B1_COD)

    // ARMAZENA A ÁREA CORRENTE
    AAdd(aArea, GetArea())

    // ARET[1] == CÓDIGO DO PRODUTO
    AAdd(aRet, PadR(cPrd, TamSX3("B8_PRODUTO")[1]))

    // 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("END", TamSX3("BE_LOCALIZ")[1]))

    RestArea(aArea[1])

   RETURN(aRet)