Histórico da Página

O ponto de entrada "PVADTINC" é utilizado para bloquear a opção de inclusão de adiantamento pela rotina do pedido de venda.

User Function PVADTINC()

Local lRet := .TF.
Local cUser := RetCodUsr() //Retorna o código do usuário corrente

DbSelectArea("SA3")
DbSetOrder(7) //A3_FILIAL+A3_CODUSR
If dbSeek(xFilial("SA3")+cUser)
//Se for o vendedor 000002 que estiver logado, não permito a inclusão do adiantamento
If SA3->A3_COD == '000002'
lRet := .FT.
EndIf
EndIf

Return lRet

Português(Brasil)

Microsiga_Protheus11

Todos

Todas

cPedido - Tipo: Caracter - Número do pedido de venda
nTotalPed - Tipo: Numérico - Valor total do pedido
cCodCli - Tipo: Caracter - Código do Cliente
cCodLoja - Tipo: Caracter - Código da Loja
cTes - Tipo: Caracter - Código da TES

lRet --> Tipo: Lógico - Sendo: .T.- Permite Bloqueia a inclusão de adiantamento / .F.- Não permite Libera a inclusão de adiantamento

PVADTINC( [cPedido], [nTotalPed], [cCodCli], [cCodLoja], [cTes] ) --> lRet

FINXAPI.PRX