Histórico da Página
...
Linha de Produto: | Microsiga Protheus® |
---|---|
Segmento: | BackOffice |
Módulo: | Gestão de Contratos |
Função: | CNTA121/CNTA120 - Medições |
Ticket: | 8604688 |
Issue: | DMANMAT02-27379 |
02. SITUAÇÃO/REQUISITO
O cliente solicita Desenvolvida uma função que retorne retorna as competências de determinado contrato, de forma que possa escolher qual competência ira irá medir no modelo MVC do CNTA121.
03. SOLUÇÃO
Disponibilizamos a função CtrCompetsfunção CtrCompets, que retorna um vetor contendo todas as competências passíveis de medição de determinado contrato.
O vetor contêm as competências no formato MM/AAAA, exemplo: { '11/2020', '12/2020', '01/2021' }. Veja Utilizando o modelo do CNTA121 para mais detalhes.
Exemplo prático:
Bloco de código | ||||
---|---|---|---|---|
| ||||
Static Function CNT121_006() Local oModel := Nil Local cCodCTR := "CNTA121EXEMP006" Local aCompets := {} Local nCompet := 0 Local cNumMed := "" Local aMsgDeErro:= {} Local lRet := .F. CN9->(DbSetOrder(1)) If CN9->(DbSeek(xFilial("CN9") + cCodCTR))//Posicionar na CN9 para realizar a inclusão aCompets := CtrCompets() nCompet := aScan(aCompets, {|x| AllTrim(x) == '05/2020' }) oModel := FWLoadModel("CNTA121") oModel:SetOperation(MODEL_OPERATION_INSERT) If(oModel:CanActivate()) oModel:Activate() oModel:SetValue("CNDMASTER","CND_CONTRA" ,CN9->CN9_NUMERO) oModel:SetValue("CNDMASTER","CND_RCCOMP" , cValToChar(nCompet))//Selecionar competência oModel:SetValue("CXNDETAIL","CXN_CHECK" , .T.)//Marcar a planilha(nesse caso apenas uma) If (oModel:VldData()) /*Valida o modelo como um todo*/ oModel:CommitData() EndIf EndIf If(oModel:HasErrorMessage()) aMsgDeErro := oModel:GetErrorMessage() Else cNumMed := CND->CND_NUMMED oModel:DeActivate() lRet := CN121Encerr(.T.) //Realiza o encerramento da medição EndIf EndIf Return lRet |
04. DEMAIS INFORMAÇÕES
O campo CND_RCCOMP é um campo criado pelo modelo do programa. Não faz parte do dicionário de dados, desta forma, não há necessidade de criá-lo.
05. ASSUNTOS RELACIONADOS
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas