Linha de Produto: | Microsiga Protheus | ||||
Segmento: | Serviços | ||||
Módulo: | SIGAGCT (Gestão de Contratos) | ||||
Rotina: |
| ||||
Chamados Relacionados | MPRIMESP-20353 | ||||
País(es): | Todos | ||||
Banco(s) de Dados: | Todos | ||||
Tabelas Utilizadas: | SC1 - Solicitação de Compras | ||||
Sistema(s) Operacional(is): | Todos |
Descrição: | Ponto de Entrada para posicionamento da solicitação de compras, ao validar os itens da planilha - tabela CNB | ||||||||
Localização: | Contratos/Manutenção | ||||||||
Eventos: | Validar planilha e itens | ||||||||
Programa Fonte: | CNTA300.PRW | ||||||||
Função: | CN300VldPlan | ||||||||
| Parâmetros | PARAMIXB[1]: Modelo de dados - CNTA300 | ||||||||
Retorno: |
|
Exemplo:
#INCLUDE "PROTHEUS.CH"
//-------------------------------------------------------------------
/*/{Protheus.doc} A300VLSC
Rotina para posicionamento da SC em relação ao item da planilha
validacao de linha da tabela CNA
@param Paramixb[1] Model
@author vitor.pires
@since 02/03/2020
@version P12.1.25
/*/
//-------------------------------------------------------------------
User Function A300VLSC()
Local oModel := ParamIXB[1]
Local oModelCNB:= oModel:GetModel("CNBDETAIL")
Local oModelCN9:= oModel:GetModel("CN9MASTER")
Local cProdut:= oModelCNB:GetValue('CNB_PRODUT')
Local cFilCtr := cFilAnt
If !Empty(oModelCN9:GetValue('CN9_FILORI'))
cFilCtr := oModelCN9:GetValue('CN9_FILORI')
EndIf
lRet := (SC1->(dbSeek(xFilial("SC1",cFilCTR)+oModelCNB:GetValue("CNB_NUMSC")+oModelCNB:GetValue("CNB_ITEMSC"))) .And. SC1->C1_PRODUTO == cProdut)
Return(lRet)
