Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • PL992DNAT - Classificação SIP na Tabela BZW
  • Criado por Usuário desconhecido (ana.lira), última alteração por admin em 24 jun, 2012

Ponto-de-Entrada: PL992DNAT - Classificação SIP na Tabela BZW
Versões: Microsiga Protheus 10
Compatível Países: Brasil
Sistemas Operacionais: Todos
Descrição: 
Altera a classificação SIP antes da gravação da tabela BZW.
Programa Fonte
Sintaxe

PL992DNAT - Classificação SIP na Tabela BZW ( [ cNature ], [ cCodOpe ], [ cCodLdp ], [ cCodPeg ], [ cNumero ], [ cOriMov ], [ cSequen ], [ cCodPad ], [ cCodPro ] ) --> cClassip

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
cNature Caracter Classificação atual do sip.
cCodOpe Array of Record Código da operadora.
cCodLdp Array of Record Código do local da digitação.
cCodPeg Array of Record Código da Peg.
cNumero Array of Record Código do procedimento formado pelos seguintes campos da tabela BD7: BD7_CODOPE+BD7_CODLDP+BD7_CODPEG+BD7_NUMERO.
cOriMov Array of Record Origem do movimento. Conteúdo do campo BD7_ORIMOV.
cSequen Array of Record Código da sequencia.Conteúdo do campo BD7_SEQUEN.
cCodPad Array of Record Código do tipo da tabela.Conteúdo do campo BD7_CODPAD.
cCodPro Array of Record Código do procedimento.Conteúdo do campo BD7_CODPRO.
Retorno
    cClassip(caracter)
  • Código da classificação do SIP.
Exemplos 
User Function PL992DNAT()	Local cNature	:= paramixb[01]	Local cCodOpe	:= paramixb[02]	Local cCodLdp	:= paramixb[03]	Local cCodPeg	:= paramixb[04]	Local cNumero	:= paramixb[05]	Local cOriMov	:= paramixb[06]	Local cSequen	:= paramixb[07]	Local cCodPad	:= paramixb[08]	Local cCodPro	:= paramixb[09]	Local cClaSip	:= ""	If cNature == "I999" 		cClaSip := "A1"	Else		cClaSip := cNature	EndIf	Return cClaSip
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não