VENTAS014 Rutina despues de insertar una Partida

'----**** 
'----**** MyBusiness POS V20
'----**** Version del script: 1.0
'----**** 19/02/2020
'----**** 
Public sub Main()

   Dim MaxPartidas

   'Aqui Cambiar el Numero Maximo de Partidas

   MaxPartidas = 30

   if fg2.Row >= MaxPartidas then
      msgbox "El Número Máximo de Partidas(" & MaxPartidas & ") ha sido alcanzado"
   End If
   

End Sub