Macro Execução do Parâmetro MV_LOJAPED

Descrição:

Está habilitada, no módulo de Controle de Lojas (SIGALOJA), a macro execução no parâmetro MV_LOJAPED.
Por meio desta macro execução, é possível retornar um array contendo o Número de Série da Nota e o Número da Nota, que serão usados mais tarde para gerar os pedidos de venda,
criados pela rotina de Venda Assistida (LOJA701).A macro execução pode ser ativada colocando-se no valor do parâmetro: &(NOME_DA_USER_FUNCTION() ).
Por exemplo:No parâmetro MV_LOJAPED, cadastrado pelo SIGACFG: &U_NumPedido()
Essa macro execução auxilia no controle de concorrência de vários PDVs não fiscais emitindo Venda Direta ou NFC-e.

Exemplo:

User Function NumPedido()
Local aNota := {} // Array de retorno contendo a Série do Pedido e o Número da Nota
Local nNumNota := 1 // Número da nota
Local nTamDoc := 9 // Tamanho do campo L1_DOC
Local cSerPed := "PED" // Exemplo de Série do Pedido
Local cNumNota := AllTrim(Str( nNumNota ))
cNumNota := PadR( cNumNota, nTamDoc ) // Tratamento tamanho Nota Fiscal
AAdd(aNota , {cSerPed, cNumNota}) // Retorno da função, neste exemplo será: "PED" // na posição aNota[1][1] e 1 na posição aNota[1][2]
Return aNota

Exemplo 2:

#INCLUDE "RWMAKE.CH"
User Function NumPedido()
Local aRet := {} // O Retorno deste array deve ser: {Serie, Numero}
Local cSerPed := "PED" // Série padrao do MV_LOJAPED
Local nRet := 0
cSerPed := PadR(xNumCaixa(),3) // Serie com o numero do caixa
If Empty(cSerPed) //Se o retorno for vazio, retorna o conteudo padrao
cSerPed := "PED"
EndIf
nRet := Randomize(1,999999)
aRet := { {cSerPed, StrZero(nRet,6)} }
Return aRet