Linha de Produto: | Microsiga Protheus | ||||
Segmento: | Serviços | ||||
Módulo: | Gestão de Contratos | ||||
Rotina: |
| ||||
País(es): | Todos | ||||
Banco(s) de Dados: | Todos | ||||
Sistema(s) Operacional(is): | Todos |
Descrição: | Ponto de entrada para alteração da natureza dos títulos financeiros gerados no encerramento da medição. | ||||||||
Localização: | Atualizações / Contratos / Medições | ||||||||
Eventos: | Geração dos títulos financeiros no encerramento da medição | ||||||||
Programa Fonte: | CNTA120.PRW | ||||||||
Função: | C120TITSE1 e C120TITSE2 | ||||||||
| Parâmetros | PARAMIXB[1]: Filial da medição PARAMIXB[2]: Numero da medição PARAMIXB[3]: Código da natureza que esta sendo utilizada | ||||||||
Retorno: |
|
Exemplo:
#Include 'Protheus.ch'
User Function CN120NAT()
Local cFilialCND := PARAMIXB[1]
Local cNumMed := PARAMIXB[2]
Local cRetNat := PARAMIXB[3]
If CN9->CN9_ESPCTR == '1'
cRetNat := '001'
EndIf
Return cRetNat
