Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 4

changes.mady.by.user Usuário desconhecido (tp.marcelo.h)

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Marcia Junko Doi

Gravado em

Chave

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

01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Backoffice
Módulo:ACD - Automação Coleta de Dados
Função:

ACDV170 - Movimentação Interna de Produtos

ACDV176 - Movimentação Interna de Produtos

02. DESCRIÇÃO

O Este ponto de entrada é chamado dentro da função que Desfaz a Separação dos Produtosna função de validação da etiqueta ao desfazer a separação dos produtos, para manipular dados do array aEtiqueta. 

Neste ponto de entrada, além de manipulação do array, é possível efetuar uma validação adicional, retornando o array vazio, bloqueando assim o usuário de continuar com o processo. 


Variáveis disponíveis para utilização

nQtdLida - quantidade já lida
cVolume - código do volume
cLoteNew - código lote
cSLoteNew - código sub-lote


03. PARÂMETROS

NomeTipoDescrição
aETIQUETAParamIXB[1]Array

01 - ProdutoCódigo do produto

02 - Quantidade

03 - Código Usuáriodo usuário ( CB0_USUARI ) 

04 - NF Entradaentrada ( CB0_NFENT )

05 - Serie EntradaSérie da NF entrada ( CB0_SERIEE )

06 - Código Fornecedordo fornecedor 

07 - Loja Fornecedordo fornecedor

08 - Pedido Comprade compra ( CB0_PEDCOM )

09 - Localização ( CB0_LOCALI )

10 - Almoxarifado ( CB0_LOCAL )

11 - OP ( CB0_OP )

12 - Numero SequenciaNúmero de sequência ( CB0_NUMSEQ )

13 - NF Saída ( CB0_NFSAI )

14 - Serie SaídaSérie da NF saída ( CB0_SERIES )

15 - Código Etiqueta Clienteda etiqueta do cliente ( CB0_CODET2 )

16 - Lote

17 - Sub-Lotelote

18 - Data Validadede validade ( CB0_DTVLD )

19 - Centro Custode custo ( CB0_CC ) 

20 - Armazém Originaloriginal ( CB0_LOCORI )

21 - Código Palletdo pallet ( CB0_PALLET )

22 - OP destino ( CB0_OPREQ )

23 - Numero SérieNúmero de série ( CB0_NUMSER )

24 - Origem ( CB0_ORIGEM )

25 - Item NF Entradade entrada ( CB0_ITNFE )

04. RETORNO

NomeTipoObrigatórioDefaultObservação
aEtiquetaAArraySimNão

Array com dados da Etiqueta, caso retorne em branco não realiza a validação, retornando .F. para o usuário em telaetiqueta, 

05. EXEMPLO DE UTILIZAÇÃO

Bloco de código
languagevb
themeMidnight
firstline1
titleACD170VD
linenumberstrue
/*/{Protheus.doc} User Function  ACD170VD
    Manipular array aEtiqueta
    @type  Function
    @author TOTVS
    /*/
User Function ACD170VD()
    Local aArea    := GetArea()
    Local aAreaSA2 := SA2->( GetArea() )
    Local aEtq     := PARAMIXB      // validação do cliente

    // customizaçãovalidação do cliente
    If !Empty( aEtq[ 06 ] ) .And. !Empty( aEtq[ 07 ] )
        SA2->( DbSetOrder( 1 ) )
        If SA2->( DbSeek( xFilial( "SA2" ) + aEtq[ 06 ] + aEtq[ 07 ] )
           If SA2->A2_MSBLQL == "1" // retorna bloqueado
              VtAlert( "Fornecedor " + aEtq[ 06 ] + "/" + aEtq[ 07 ] + " bloqueado!" , "ACD170VD", .T., 4000 )
              aEtq := {}
           Endif
        Endif
    Endif 

    RestArea( aAreaSA2 )  
    RestArea( aArea )
Return aEtq




Templatedocumentos

...