Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: TMKVPED - Substitui a gravação do SC5/SC6


Abrangências:Microsiga Protheus 10 , Microsiga Protheus 11
Versões:Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países:Todos
Sistemas Operacionais:Todos
Compatível às Bases de Dados:Todos
Idiomas:Português (Brasil)


Descrição:
O ponto de entrada TMKVPED será executado em televendas e substitui a gravação do SC5/SC6.
ProgramaFonte
TMKA273D
Sintaxe

TMKVPED - Substitui a gravação do SC5/SC6 ( [ PARAMIXB ] ) --> Nil

Parâmetros:



Nome

Tipo

Descrição

Default

Obrigatório

Referência

PARAMIXB

Numérico

contendo M->UA_NUM










Retorno
Nil

Observação: Caso este ponto de entrada seja utilizado, a regra de desbloqueio da tabela Saldo em Estoque (SB2) deverá estar contemplado na programação.

Exemplo:

User Function TMKVPED()
    Local nX := 0

   For nX := 1 To Len(aCols)
      SB1->(DbSeek(xFilial("SB1")+aCols[nX][nPProd]))
      SF4->(DbSeek(xFilial("SF4")+aCols[nX][nPTes]))

      //Destrava o resgitro da tabela SB2 - Saldos em Estoque.
      If SF4->F4_ESTOQUE == "S" .And. SB2->(dbSeek(xFilial("SB2")+SB1->B1_COD+SB1->B1_LOCPAD))
         SB2->(MsUnlock())
      EndIf
   ...
Return