Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada A300VLSC 

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

SIGAGCT (Gestão de Contratos)

Rotina:

Rotina

Nome Técnico

CNTA300

Manutenção de Contratos

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



Ponto de Entrada

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:

Nome

Tipo

Descrição

Obrigatório

 lRet

Lógico

.T. = Encontrou o item da SC

.F. = Não encontrou o item da SC

Sim

 

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)