Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

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

Gravado em

comparado com

Nova versão 3

changes.mady.by.user Leandro De Oliveira Lima

Gravado em

Chave

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

...

Produto:

Microsiga Protheus

Passo a passoDescriçã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 .

 

ExemploObservações:

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 notanota 
 Local nTamDoc := 9       // Tamanho do campo L1_DOCLocalDOC
 Local cSerPed := "PED"   // Exemplo de Série do PedidoLocalPedido
 Local cNumNota := AllTrim(Str( nNumNota ))
 cNumNota := PadR( cNumNota, nTamDoc )  //  Tratamento tamanho Nota Fiscal
 AAddFiscalAAdd(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