CPC-AT0112C.p

• Rotina utilizada para restringir a criação da guia caso exista um insumo cujo módulo não se encontra dentre os módulos dos procedimentos desta mesma guia.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
• Será permitido para esta CPC apenas um registro na tabela temporária de saída. Caso possuir mais de um registro um erro será reportado.

Localização

• Dentro do programa at0112c.p ao pressionar F1 no browse de procedimentos.
• Ao efetuar a inclusão de um registro.

Ponto de Utilização

• "BLOQ-MOD-INS"
• "INICIO-MODIFICA"

Include das definições das tabelas temporárias

• cpc-at0112c.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-at0112c-entrada

def temp-table tmp-cpc-at0112c-entrada no-undo

field tp-inter                  like guiautor.tp-inter.

Definição campo a campo da tabela de entrada

• • tp-inter – Indica o tipo de internação da guia

Tabela de movimentos (procedimentos) tmp-cpc-at0112c-procguia

def temp-table tmp-cpc-at0112c-procguia no-undo

field cd-modulo                  like insuguia.cd-modulo.

Definição campo a campo da tabela de saída

• • cd-modulo– Código do modulo do insumo.

Tabela de movimentos (insumos) tmp-cpc-at0112c-insuguia

def temp-table tmp-cpc-at0112c-insuguia no-undo

field cd-modulo                 like insuguia.cd-modulo.

Definição campo a campo da tabela de saída

• • cd-modulo– Código do modulo do insumo.

Tabela de saída tmp-cpc-at0112c-saida

def temp-table tmp-cpc-at0112c-saida no-undo

field lg-bloq-mod-insu         as log.

Definição campo a campo da tabela de saída

• • lg-bloq-mod-insu– Variável que indica se a criação da guia será bloqueada devido ao modulo do insumo não existir dentre os módulos dos procedimentos da guia.