Tengo un webpanel en el cual selecciono algunos datos en intento enviarlo a un procedimiento que tiene como regla 5 variables que deberían de ser enviadas desde el webpanel, en la parte de patterns y entity services en una transacción que está asociada al webpanel he creado un botón con el nombre de enviar y al darle f4 he agregado un código en event begin code, este código lo he copiado de la parte de webpanel por que he activado el multidelete en la transaccion y lo estoy utilizando como ejemplo pero yo no quiero eliminar los registros yo solo quiero enviar los datos seleccionados a un procedimiento con el nombre Eliminarrecibo ¿sería algo así como debo hacerlo? este código da error no me funciona
Event 'enviar'
Do 'LoadSelectedRows'
If K2BIsAuthorizedActivityName.Udp(!"PEMTN008", !"PEMTN008", K2BStandardActivityType.Delete, !"",!"")
If &SelectedRows.Count > 0
&ConfirmMessage = format('¿Está seguro que quiere eliminar %1 número de recibo procesados?', &SelectedRows.Count)
&ConfirmationSubId = !"Confirm_DoMultipleDelete"
TableConditionalConfirm.Visible = True
Else
msg("K2BT_NoRowsSelectedError")
EndIf
EndIf
EndEvent
Sub 'LoadSelectedRows'
&SelectedRows = new()
For Each line In Grid
If &Selected = True
&SelectedRow = new()
&SelectedRow.PemRenIde = PemRenIde
&SelectedRow.PemRenAnh = PemRenAnh
&SelectedRow.PemRenMes = PemRenMes
&SelectedRow.PemRenNro = PemRenNro
&SelectedRow.PemRenNdc = PemRenNdc
&SelectedRow.PemRenLot = PemRenLot
&SelectedRow.PemRenBen = PemRenBen
&SelectedRow.PemRenLel = PemRenLel
&SelectedRow.PemRenBel = PemRenBel
&SelectedRows.Add(&SelectedRow)
EndIf
EndFor
EndSub
Sub 'Confirm_DoMultipleDelete'
Do 'LoadSelectedRows'
If K2BIsAuthorizedActivityName.Udp(!"PEMTN008", !"PEMTN008", K2BStandardActivityType.Delete, !"",!"")
If &SelectedRows.Count > 0
// Code added in [MultipleDelete.BeginCode] --- START
&DeletedCount = 0
&ErrorCount = 0
For &SelectedRow in &SelectedRows
&MultipleDelete_BC.Load(&SelectedRow.PemRenIde)
//&MultipleDelete_BC.Delete()
&MultipleDelete_BC = Eliminarrecibo.Udp(PemRenAnh,PemRenMes, PemRenLot.ToString(), PemRenNdc.ToString(), PemRenIde)
If &MultipleDelete_BC.Success()
&DeletedCount += 1
Else
&ErrorCount += 1
&ErrorMessage = format('Número de recibo procesado "%1" no pudo ser eliminado por causa de estos errores:', &MultipleDelete_BC.PemRenLot)
For &Message in &MultipleDelete_BC.GetMessages()
&ErrorMessage += newline() + " - " + &Message.Description
EndFor
msg(&ErrorMessage)
EndIf
EndFor
If &ErrorCount > 0
Rollback
msg('Ningún Número de recibo procesado fue eliminado')
Else
Commit
msg(format('%1 número de recibo procesados eliminados', &DeletedCount))
EndIf
Grid.Refresh()
// Code added in [MultipleDelete.BeginCode] --- END
Else
msg("K2BT_NoRowsSelectedError")
EndIf
EndIf
EndSub
Bueno este codigo da error al compilar creo que no debe estar en event begin code
error src0062: Expecting 'EndSub' command to close subroutine definition. (Web Panel 'PEMTN008WW' Events, Line: 197, Char: 1, Details)
error src0051: Unexpected expression (Web Panel 'PEMTN008WW' Events, Line: 240, Char: 57, Details)
error: Supported grammar:FOR <variable> IN <array|collection>