Skip to main content
se eliminaron 2 caracteres en el cuerpo
Origen Enlace
ALDO56
  • 37
  • 13
    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
se añadieron 628 caracteres en el cuerpo
Origen Enlace
ALDO56
  • 37
  • 13

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>
Origen Enlace
ALDO56
  • 37
  • 13

¿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