Ponto-de-Entrada: PL992CNAT - Classificação SIP na tabela BZZ
| Abrangências: | Microsiga Protheus 10 |
| Compatível às Bases de Dados: | Todos |
Descrição:
Altera o código de classificação do SIP antes da gravação da tabela BZZ.
Eventos
Antes da gravação da tabela BZZ.
Programa Fonte
Sintaxe
PL992CNAT - Classificação SIP na tabela BZZ ( [ cGrpGer ], [ cNature ], [ cRecon ], [ cRefer ], [ cUF ], [ cTpPlan ], [ cSegmen ] ) --> cClasip
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| cGrpGer | Caracter | Grupo gerencial do SIP.Conteúdo do parametro MV_PLGRSIP. | |||||||||||||||
| cNature | Array of Record | Código de classificação do SIP. | |||||||||||||||
| cRecon | Array of Record | Data de reconhecimento. | |||||||||||||||
| cRefer | Array of Record | Data de ocorrência do evento. | |||||||||||||||
| cUF | Array of Record | UF principal da guia. | |||||||||||||||
| cTpPlan | Array of Record | Tipo do plano. | |||||||||||||||
| cSegmen | Array of Record | Código do segmento. |
Retorno
-
cClasip(caracter)
- Código da classificação do SIP.
Exemplos
User Function PL992CNAT() Local cGrpGer := paramixb[01] Local cNature := paramixb[02] Local cRecon := paramixb[03] Local cRefer := paramixb[04] Local cUF := paramixb[05] Local cTpPlan := paramixb[06] Local cSegmen := paramixb[07] If cNature == "I999" cClaSip := "A1" Else cClaSip := cNature EndIf Return cClaSip