Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Ponto de Entrada para ser executado na inclusão da devolução de venda e compra após a confirmação dos dados da devolução nas rotinas Entr. Devol. Venda (VEIXA002) e Saída Devol. Compra (VEIXA012)

Localização:

Atualizações \ Mov Entrada \ Entr. Devol. Venda (VEIXA002)

Atualizações \ Mov Saída \ Saída Devol. Compra (VEIXA012)

Eventos:

Function FGX_SELVEI( _cAli , _cTit , _cFil , _cNro , _aPar , _cFVldTES , _lFuncVld , _aChassiPerm )

...

Local lVXSELVEI := existBlock("VXSELVEI")

Local lRet := .T.

...

If nOpcao == 1 // OK Tela

aRetorno := {aClone(aRet),aClone(aIteVei)}


if lVXSELVEI

lRet := execBlock("VXSELVEI", .F., .F., { aClone(aRet), aClone(aIteVei) } )

if valType(lRet) == "L" .and. ! lRet

aRetorno := {}

endif

endif

EndIf

....

Return(aRetorno)

Programa Fonte:

VEIXFUNA.PRW

Função:

FGX_SELVEI()

Parâmetros:
NomeTipoDescrição

aRet

Matriz

ParamIxb[1] - Vetor de retorno do Parambox

alteVei

Matriz

ParamIxb[2] - Vetor dos Veiculos

Retorno:
NomeTipoDescrição
lRetLógico

.T. - Continua inclusão | .F. - Aborta inclusão

Exemplo:

#include "totvs.ch"
/*/{Protheus.doc} VXSELVEI
P.E. confirmação de inclusão de NF de Devolução
Rotinas:
   Entrada Devolução por Venda (VEIXA002)
   Saída Devoluçao por Compra (VEIXA012)
@type function
@version 1.0
@author cristiamRossi
@since 5/29/2024
@return logical, .T. confirma inclusão - .F. aborta
/*/
user function VXSELVEI
local aArea  := getArea()
local aCabec := paramIXB[1]
local aVeic  := paramIXB[2]
local lRet   := .T.



    if ! msgYesNo( "Deseja seguir com a Devolução?", "P.E. VXSELVEI" )
        lRet := .F.
    endif

    restArea( aArea )
return lRet