Produto:

Microsiga Protheus®

Ocorrência:

MSCBSPOOL: Monitor de fila de impressão de etiquetas - configuração e local do arquivo de configuração.

Passo a passo:

Localização do arquivo de configuração : A partir da data 28/10/2019 do fonte MSCBSPOOL o arquivo de configuração MSCBSPOOL.INI deverá ser movido para a pasta SYSTEM do Protheus.


Execução : Informar MSCBSPOOL no smartClient



Clicar em Desativar e Parametros 


Alterar qualquer parâmetro com exceção ao parâmetro impressora

Por exemplo alterar o parâmetro tamanho para 20x20 e confirmar

a filial, produto e armazém de origem / destino e a quantidade em estoque.

Através do uso deste ponto de entrada, será possível atualizar a base de dados. Não é esperado nenhum retorno neste ponto de entrada.

Programa fonte: MATA310.PRW

Sintaxe: M310ESTO - Permite manipulação da base de dados ( < PARAMIXB> ) --> Nil

Parâmetro:

NomeTipoDescriçãoDefaultObrigatórioReferência
PARAMIXBCaracterÉ passado via parâmetro para este ponto de entrada um array com 07 dimensões com os seguintes conteúdos:

ParamIXB[ 01 ] //Produto Origem
ParamIXB[ 02 ] //Filial Origem
ParamIXB[ 03 ] //Armazém Origem
ParamIXB[ 04 ] //Produto Destino
ParamIXB[ 05 ] //Filial Destino
ParamIXB[ 06 ] //Armazém Destino
ParamIXB[ 07 ] //Quantidade em Estoque


X

Retorno:

Nil(nulo)

  • Neste ponto de entrada não é esperado retorno.

Exemplo:


User Function M310ESTO()
Local aArea     := GetArea()
Local aAreaSB2  := SB2->( GetArea() )
Local aParams   := ParamIXB
Local cProdOrig := ParamIXB[ 01 ] //Produto Origem
Local cFilOrig  := ParamIXB[ 02 ] //Filial  Origem 
Local cLocalOrig:= ParamIXB[ 03 ] //Armazem Origem
Local cProdDest := ParamIXB[ 04 ] //Produto Destino
Local cFilDest  := ParamIXB[ 05 ] //Filial  Destino 
Local cLocalDest:= ParamIXB[ 06 ] //Armazem Destino
Local nQtdEst   := ParamIXB[ 07 ] //Quantidade em Estoque

dbSelectArea( 'SB2' )
SB2->( dbSetOrder( 1 ) )

If !SB2->( dbSeek( cFilOrig + cProdOrig + cLocalOrig ) )
    CriaSB2( cProdOrig, cFilOrig )
EndIf

If !SB2->( dbSeek( cFilDest + cProdDest + cLocalDest ) )
    CriaSB2( cProdDest, cLocalDest )
EndIf

RestArea( aAreaSB2 )
RestArea( aArea )
Return Nil


SA



Observações:

versões 12.1.17, 12.1.23, 12.1.25 e superiores.