Borrar subtipo de supertipo - genexus

Objetivo

Explicar una forma de implementar una Inserción, Modificación y Eliminación (ABM) de una tabla Supertipo trabajando siempre desde el Subtipo.

1 Escenario

Tenemos una transaccionPersonaJuridica y Banco. Siendo Banco subtipo de persona Juridica.

La idea es querer hacer todo el ABM directamente desde Banco.

|Persona Juridica|
|[pic]|
|Banco|
|[pic]|

Implementación

La idea es implementar via código disparado desde la transacción de Banco, el ABM de Persona Jurídica.

1 Modificaciones aTransacción Supertipo

Para esto se debe definir la transacción de Persona Jurídica como BC.

2 Creación de Procedimiento que implementa el ABM del Supertipo

Rules
parm(&PersonaJuridica, in: &Mode,out: &PersonaJuridicaId, out: &K2BResultado);

Variable PersonaJuridica basada en BC

Source
&PersonaJuridicaNew = New PersonaJuridica()
If &Mode TrnMode.Insert&PersonaJuridicaNew.Load(&PersonaJuridica.PersonaJuridicaId)
EndIf

If &Mode = TrnMode.Delete
&PersonaJuridicaNew.Delete()
Else
&PersonaJuridicaNew.PersonaJuridicaDescripcion =&PersonaJuridica.PersonaJuridicaDescripcion
&PersonaJuridicaNew.PersonaJuridicaId = &PersonaJuridica.PersonaJuridicaId

&PersonaJuridicaNew.Save()

EndIf

If &PersonaJuridicaNew.Fail()
&K2BResultado.Mensajes =...