Histórico da Página
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#INCLUDE "PROTHEUS.CH" User Function F986Valid() Local oModel := ParamIxb[1] //Sub-model MVC da tabela FKF Local nOpc := ParamIxb[2] //3-Inclusão/4-Alteração Local cIdDoc := ParamIxb[3] //ID do título na tabela FK7 Local cAliasC := ParamIxb[4] //SE1 para contas a receber / SE2 para contas a pagar) Local cChave := ParamIxb[5] //Chave do título If cAliasC == "SE2" //Complemento de Título do Contas a Pagar If Alltrim(oModel:GetValue("FKFMASTER","FKF_NATREN")) $ "20001" .And. M->E2_IRRF > 0 Help( ,,"F986Valid",,"Revise a Natureza de Rendimento, pois não deve conter imposto na carteira a pagar", 1, 0 ) EndIf EndIf Return |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas