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
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
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
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 Start'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>
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 pero yo no quiero eliminar los registros yo solo quiero enviar los datos seleccionados a un procedimiento con el nombre Eliminarrecibo
Event Start
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
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>
¿Cómo puedo hacer un multiselect y enviar las variables a una api en genexus?
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 pero yo no quiero eliminar los registros yo solo quiero enviar los datos seleccionados a un procedimiento con el nombre Eliminarrecibo
Event Start
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