PVADTINC - Bloqueio da inclusão de adiantamento por meio do pedido de venda e pedido de compras.

O ponto de entrada PVADTINC é utilizado para bloquear a opção de inclusão de adiantamento por meio da rotina do pedido de venda e pedido de compras.

User Function PVADTINC()

Local lRet := .F.
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 := .T.
EndIf
EndIf

Return lRet

Português(Brasil)

Microsiga_Protheus11 e Microsiga_Protheus12

Todos

Todas

cPedido - Tipo: Caracter - Número do pedido de venda / Número do pedido de Compra
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.- Bloqueia a inclusão de adiantamento / .F.- Libera a inclusão de adiantamento

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

FINXAPI.PRX