| Produto: | TOTVS Backoffice |
|---|---|
| Linha de Produto: | Linha Protheus |
| Segmento: | Backoffice |
| Módulo: | Gestão de Contratos |
| Rotina: | CNTXFUN - Funções Contratos MATA094 - Aprovação de Documentos |
Esse documento tem o propósito de explicar a funcionalidade da função CnRejDoc e como utilizá-la para rejeitar documentos oriundo do SIGAGCT.
#INCLUDE "PROTHEUS.CH"
#INCLUDE "FWMVCDEF.CH"
User Function RejDoc()
Local cTipo := "" //Informar o tipo do documento
Local cNum := "" //Informar o número do documento
Local cChave := xFilial("SCR") + cTipo + cNum
Local cChaveRej := ""
SCR->(DbSetOrder(3))//CR_FILIAL+CR_TIPO+CR_NUM+CR_APROV
If SCR->(DbSeek(cChave))
If SCR->CR_TIPO $ "CT|IC|RV|IR|MD|IM"
CnRejDoc(SCR->CR_TIPO)
Else
/*
Quando não for oriundo do GCT, utilizar a função MaAlcDoc, nesse caso é preciso informar o argumento cChaveRej para tipo ST e PC;
ST = chave p/ índice 1 da tabela NNS
PC = chave p/ índice 1 da tabela SC7
*/
MaAlcDoc({SCR->CR_NUM,SCR->CR_TIPO,,SCR->CR_APROV,,SCR->CR_GRUPO,,,,dDataBase,"Observacao" }, dDataBase ,7,,,SCR->CR_ITGRP,,,,cChaveRej)
EndIf
EndIf
Return Nil