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: |
| |||||||||
Retorno: |
|
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