Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 21

changes.mady.by.user Leandro De Oliveira Lima

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Usuário desconhecido (loliana.silva)

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

...