01. DADOS GERAIS

Produto:

Linha de Produto:

Segmento:

Módulo:Gestão de Contratos
Função:CNTA121 - Nova medição
País:Brasil
Ticket:10923493
Requisito/Story/Issue (informe o requisito relacionado) :DMANMAT02-31758

02. SITUAÇÃO/REQUISITO

Nenhum dos pontos de entrada padrão do MVC possibilitam uma equiparação com os pontos de entrada CN120ESTMD e CN120ESMED existentes no CNTA120.

03. SOLUÇÃO

O sistema foi ajustado para disponibilizarmos no CNTA121 o ponto de entrada CN121EST que substitui os pontos de entrada CN120ESTMD e CN120ESMED.

/*{Protheus.doc} CN121EST()
    Possibilita ao desenvolvedor realizar operações após o estorno da medição que tenha ocorrido com sucesso.
*/
User Function CN121EST()
    Local aDocuments:= PARAMIXB[1] //Listagem de documentos estornados pela medição.
    Local lInTrans  := PARAMIXB[2] //Verdadeiro caso seja dentro da transação, Falso fora da transação
    Local nX        := 0
    Local cTipo     := ""
    Local cIdDoc    := ""
    Local xTemp     := Nil
    Local cMensagem := ""
 
    If lInTrans
        MsgInfo("Chamada dentro da transação."  ,"U_CN121EST")
    Else
        MsgInfo("Chamada fora da transação."    ,"U_CN121EST")
    EndIf
 
    for nX := 1 to Len(aDocuments)
        cMensagem := ""
        cTipo := aDocuments[nX, 1]
        cIdDoc:= aDocuments[nX, 2]
        xTemp := aDocuments[nX, 3]//Para pedidos, guarda a filial da medição. Para títulos, o RecNo da CND.
 
        Do Case
            Case(cTipo == "1")//Pedido de Compra
                cMensagem += "Pedido de Compra:"+cIdDoc
                cMensagem += ". Filial Medicao := "+ xTemp
            Case(cTipo == "2")//Pedido de Venda
                cMensagem += "Pedido de Venda:"+cIdDoc
                cMensagem += ". Filial Medicao := "+ xTemp
            Case(cTipo == "3")//Titulo a Pagar - SE2
                cMensagem += "Titulo a Pagar:"+cIdDoc
                cMensagem += ". RecNo Medicao := "+ cValToChar(xTemp)
            Case(cTipo == "4")//Titulo a Receber - SE1
                cMensagem += "Titulo a Receber:"+cIdDoc
                cMensagem += ". RecNo Medicao := "+ cValToChar(xTemp)
        EndCase
 
        MsgInfo(cMensagem , "U_CN121EST")
    next nX
Return

Conferir a documentação listada em Assuntos Relacionados para mais informações sobre sua utilização.

04. DEMAIS INFORMAÇÕES

Não ha.

05. ASSUNTOS RELACIONADOS




<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}

.aui-tabs.horizontal-tabs>.tabs-menu>.menu-item.active-tab a::after { 
	background: #FF9900; !important 
}

.menu-item.active-tab { 
	border-bottom: none !important; 
}

</style>