Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Este Ponto de Entrada está localizado na rotina Mov Inter. Veiculo (VEIVM120), executado após gravação da Movimentação fora da transação, tem como finalidade possibilitar customizações após gravação.

Localização:

Atualizações \ Mov Atendimento \ Mov Inter. Veiculo (VEIVM120)

Eventos:

END TRANSACTION

If ExistBlock("VM120DGR") // Ponto de Entrada apos a Gravacao da Movimentacao Interna

ExecBlock("VM120DGR",.f.,.f.,{ SB1->B1_COD , VV1->VV1_CHASSI , cArmDe , cArmPara })

EndIf

MsgInfo(STR0010,STR0009) // Movimentacao efetuada com sucesso! / Atencao

Programa Fonte:

VEIVM120.PRW

Função:

FS_VEIVM120()

Parâmetros:
NomeTipoDescrição

SB1->B1_COD

Caracter

Codigo do Produto

VV1->VV1_CHASSI

Caracter

Chassi do Veiculo

cArmDe

Caracter

Armazem Origem ( De )

cArmPara

Caracter

Armazem Destino ( Para )

Retorno:N/A

Exemplo:

Include totvs.ch

/*

ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ

±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍ»±±

±±ºPrograma ³ VM120DGR º Autor ³ º Data ³ 09/03/2020 º±±

±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍ͹±±

±±ºDescricao ³ Executado apos a gravacao da Mov. Interna do Veiculo º±±

±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±

±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

*/

User Function VM120DGR()

Local cCodSB1 := ParamIXB[01] // SB1->B1_COD - Codigo do Produto referente ao Veiculo

Local cChassi := ParamIXB[02] // VV1->VV1_CHASSI - Chassi do Veiculo

Local cArmDe := ParamIXB[03] // Armazem de Origem ( De )

Local cArmPara := ParamIXB[04] // Armazem de Destino ( Para )


MsgInfo("Ponto de Entrada VM120DGR executado com sucesso!", "Atenção")


Return