Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 16

changes.mady.by.user Leandro De Oliveira Lima

Gravado em

comparado com

Nova versão 17

changes.mady.by.user Leandro De Oliveira Lima

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

Macro Execução do Parâmetro MV_LOJAPED

Produto:

Microsiga Protheus

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